L
laurent
Guest
Bonjour à tous,
Je débute dans les macros et je me trouve coincé.
J'ai un fichier excel avec 200 lignes qui me servent à rien.
Dans la colonne A de ces lignes, il y a "PCI Dump".
J'aimerai faire une macro qui cherche les cellules contenant "PCI Dump" et supprime ces lignes.
Voici ma macro.
Dim cel As Object
Do
For Each cel In Range("A:A")
If cel.value = "PCI Dump" Then
cel.EntireRow.Delete
End If
Next cel
Loop Until cel.Value = ""
MsgBox "fini"
ça marche mais ça ne me supprime pas la totalité des lignes (obliger de relancer la macro pour supprimer le reste). je lance la macro ça me supprime une 100ène de lignes, la seconde fois une 50ène, puis 30, 10,...jusqu'à 0.
Au total, je doit lancer au moins 5 fois la macro pour ne plus avoir de ligne.
Qu'est ce qui ne va pas dans ma macro??
Merci d'avance
Laurent
Je débute dans les macros et je me trouve coincé.
J'ai un fichier excel avec 200 lignes qui me servent à rien.
Dans la colonne A de ces lignes, il y a "PCI Dump".
J'aimerai faire une macro qui cherche les cellules contenant "PCI Dump" et supprime ces lignes.
Voici ma macro.
Dim cel As Object
Do
For Each cel In Range("A:A")
If cel.value = "PCI Dump" Then
cel.EntireRow.Delete
End If
Next cel
Loop Until cel.Value = ""
MsgBox "fini"
ça marche mais ça ne me supprime pas la totalité des lignes (obliger de relancer la macro pour supprimer le reste). je lance la macro ça me supprime une 100ène de lignes, la seconde fois une 50ène, puis 30, 10,...jusqu'à 0.
Au total, je doit lancer au moins 5 fois la macro pour ne plus avoir de ligne.
Qu'est ce qui ne va pas dans ma macro??
Merci d'avance
Laurent