> Tous les forums > Forum Bureautique
 Macro supprimer ligne avec conditionSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
didie78
  Posté le 01/02/2013 @ 16:31 
Aller en bas de la page 
Petite astucienne

Bonjour,

Je souhaite créer une macro dans fichier excel par contre là je suis bloqué je ne sais pas par où commencer.

ma macro doit supprimer des lignes sous certaines conditions :

Voici en version fonction SI ce que je souhaiterai que ma macro fasse. Par contre je n'arrive pas à la traduire en VB.

SI(ET(D12<>"";OU(G12=0;G12="");OU(H12=0;H12="");OU(I12=0;I12="");OU(J12=0;J12="");OU(M12=0;M12="");OU(N12=0;N12="");OU(O12=0;O12="");OU(P12=0;P12=""));"suppr";"")

Je souhaite que cela face une boucle sur l'ensemble du fichier.

Je ne demande pas que l'on me rende le boulot tout fait, mais j'aimerai avoir quelques pistes sur la marche à suivre.

Merci d'avance pour votre aide,

Sandie

Publicité
yojema
 Posté le 01/02/2013 à 18:57 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

salut

essaye de créer un petit fichier de le poster avec ton prochain message

avec de donnée fictiv et de nous détailler tout ça parceque la j en perd mon latin

a+

galopin01
 Posté le 01/02/2013 à 22:00 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonjour,

Un petit quelque chose comme ça devrait faire l'affaire :

Sub galopin()
For i = DerLigne To PremLigne Step -1
Y1 = Cells(i, 4) <> ""
Y2 = Cells(i, 7) = 0 And Cells(i, 8) = 0 And Cells(i, 9) = 0 And Cells(i, 10) = 0
Y3 = Cells(i, 13) = 0 And Cells(i, 14) = 0 And Cells(i, 15) = 0 And Cells(i, 16) = 0
If Y1 And Y2 And Y3 Then Rows(i).Delete
Next
End Sub

Inutile de spécifier les OU : Si =0 est vrai alors "" est forcément vrai et vice versa...

A+

didie78
 Posté le 04/02/2013 à 14:08 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

Bonjour,

Merci pour la réponse, je vais tester cela et je reviens vers vous.

Merci encore.

Sandie

didie78
 Posté le 04/02/2013 à 16:51 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

Milles merci,

C'est parfait.

Sandie

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
188,21 €Carte mère Asus TUF X570-Plus Gaming (WiFi) à 188,21 € livrée
Valable jusqu'au 28 Février

Amazon Allemagne fait une promotion sur la carte mère Asus TUF X570-Plus Gaming qui passe à 181,42 € (avec la TVA ajustée). Comptez 6,79 € pour la livraison en France soit un total de 188,21 € livrée. On la trouve ailleurs à partir de 210 €. 

Prête à accueillir les processeurs AMD Ryzen de 3ème génération et compatible avec ceux de 2ème génération, la carte mère ASUS TUF GAMING X570-PLUS est idéale pour concevoir un PC Gaming doté des technologies les plus avancées. Grâce à la prise en charge de la mémoire vive DDR4 jusqu'à 128 Go, des cartes graphiques PCI-Express 4.0, des disques M.2 PCIe 4.0 4x, la carte mère TUF GAMING X570-PLUS profite grâce à son chipset AMD X570, de ce qui se fait de mieux.

Utilisez votre compte Amazon France sur Amazon Allemagne. Pas de douane.


> Voir l'offre
10,99 €Hub 4 ports USB 3.0 à 10,99 €
Valable jusqu'au 01 Mars

Amazon propose actuellement le hub Anker 4 ports USB 3.0 à 10,99 € alors qu'on le trouve habituellement autour de 15 €. 


> Voir l'offre
84,99 €SSD SanDisk Plus 1 To à 84,99 €
Valable jusqu'au 01 Mars

Amazon propose actuellement le SSD SanDisk Plus 1 To à 84,99 € livré gratuitement. Une bonne affaire pour ce SSD très fiable et performant qui offre des débits de 530 Mo/s en lecture et 445 Mo/s en écriture. Il est garanti 3 ans. On le trouve ailleurs à partir de 100 €. 


> Voir l'offre

Sujets relatifs
Supprimer des fichiers suivant condition par macro
Macro Calc : copie avec condition
Excel 2003 : macro pour supprimer une ligne
Suppress ligne avec cellule nommée en macro
Word 2007 : Comment supprimer tous les retours à la ligne indésirables
Tirage au sort avec macro
Erreur date avec macro/ incapable d'ouvrir ailleurs que chez moi
se positionner avec une macro dans une cellule précise
Supprimer la ligne de la cellule active sauf une cellule
Macro Copier ligne vers un autre fichier
Plus de sujets relatifs à Macro supprimer ligne avec condition
 > Tous les forums > Forum Bureautique