Discussion :

[Mickamax]

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 :




J'ai créé une macro comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[MarcelG]

Salut,

Il faut partir de la dernière ligne

For i = Dernl to 2 Step -1

Dans le cas contraire, les numéros de lignes vont s'auto référencer et certaines passeront à travers les mailles du filet.