> 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
79,99 €Souris sans fil avec trackball Logitech MX Ergo à 79,99 €
Valable jusqu'au 07 Mars

Amazon fait une belle promotion sur la souris sans fil avec trackball Logitech MX Ergo qui passe à 79,99 € livrée gratuitement. On la trouve ailleurs autour de 100 €. Réduisant de 20% la contrainte musculaire par rapport à une souris standard,  le Logitech MX Ergo vous facilitera le travail en maintenant dans une position très stable votre main.


> Voir l'offre
17,99 €Clé USB 3.0 Philips Flash Drive Vivid Edition 128 Go à 17,99 €
Valable jusqu'au 06 Mars

Amazon fait une promotion sur la clé USB 3.0 Philips Flash Drive Vivid Edition 128 Go qui passe à 17,99 € alors qu'on la trouve ailleurs autour de 30 €. La livraison en relais colis est gratuite.


> Voir l'offre
38,90 €Microsoft Office 2019 Professional Plus à 38,90 €
Valable jusqu'au 05 Mars

Le vendeur sérieux LicenSE-ONLine propose sur Amazon la clé d'activation légale pour Microsoft Office Professionnel 2019 Plus en français à 38,90 €. Cette clé livrée par email vous permettra d'activer Microsoft Office Professionnel 2019 Plus légalement et vous permettra ainsi d'utiliser autant de temps que vous voulez (il s'agit de la version complète et pas d'un abonnement) Word,Excel, PowerPoint, OneNote, Outlook, Publisher et Access 2019 sur un PC. La clé sera à activer sur Office.com où vous pourrez ensuite télécharger toute la suite bureautique. Pour mémoire, Microsoft Office Professionnel 2019 nécessite Windows 10. Pour plus d'info sur la procédure, n'hésitez pas à jeter un oeil à notre dossier pratique Acheter une clé OEM d'Office 2019 et l'installer.


> 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