Macro supprimer ligne avec condition

Macro supprimer ligne avec condition Sujet résolu

Ajouter un message à la discussion

didie78

Posté le 01/02/2013 @ 16:31

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

yojema

Posté le 01/02/2013 à 18:57

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

galopin01

Posté le 01/02/2013 à 22:00

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

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

Milles merci,

C'est parfait.

Sandie

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

Vous n'avez pas de compte ? Créez-en un gratuitement !

Les bons plans du moment PC Astuces

Tous les Bons Plans

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

109,99 €

Alimentation modulaire Corsair RM750 80+ Gold à 109,99 €
Valable jusqu'au 05 Mars

Amazon propose actuellement l'alimentation modulaire Corsair RM750 à 109,99 € livrée gratuitement. Cette alimentation de 750W est certifiée 80+ Gold et est garantie 10 ans. Entièrement modulaire, vous pourrez brancher uniquement les câbles (fournis) dont vous avez besoin. On la trouve ailleurs à partir de 130 €.

> Voir l'offre

125,46 €

SSD WD Black SN750 1 To (NMVe M.2, 3470 Mo/s) à 125,46 € livré
Valable jusqu'au 05 Mars

Amazon Allemagne fait une promotion sur le SSD WD Black SN750 1 To (NMVe M.2) qui passe à 120,91 €. Comptez 4,55 € pour la livraison en France soit un total de 125,46 € livré alors qu'on le trouve ailleurs à partir de 170 €. Ce SSD utilise une interface M.2 NVMe PCIe Gen3 x 4 pour une connexion simple et des performances exceptionnelles : jusqu’à 3 470 Mo/s en lecture séquentielle et jusqu’à 3 000 Mo/s en écriture séquentielle. Le SSD est doté de la technologie 3D TLC NAND haute densité offrant une endurance d’écriture durable et assorti d’une garantie de cinq ans.

Vous pouvez utiliser votre compte Amazon FR sur Amazon DE et il n'y a pas de douane.

> Voir l'offre