1 pièce(s) jointe(s)
Rows(I).delete: des lignes passent au travers
Bonjour à tous,
J'ai un léger problème avec une macro que j'ai créé.
J'ai créé un fichier "Test" pour vous l'illustrer.
Voici deux colonnes au contenu similaire :
Pièce jointe 466151
J'ai créé une macro comme ceci :
Code:
1
2
3
4
5
6
7
8
9
10
| Sub testsupressionligne()
Dligne = Range("A1500").End(xlUp).Row
For I = 3 To Dligne
If Cells(I, 1) = Cells(I, 2) Then Rows(I).Delete
Next I
End Sub |
Mon problème étant que ma macro ne supprime pas TOUTES les lignes dont la cellule en colonne 2 est égale à la cellule en colonne 1.
Je pense que cela viens du fait qu'une fois que la macro supprime une ligne, la ligne du dessous "prends sa place" et la boucle de ma macro passe à la ligne suivante...
Cependant je n'ai aucune idée de la manière dont procéder pour gérer ce "problème"...
Quelqu'un aurait une piste ?
Merci beaucoup et bon week-end.
Mickamax
