Petit problème de boucle

Bonjour à tous,

Je n'arrive pas à résoudre mon problème et j'ai l'impression que c'est évident mais je ne le vois pas.

Dans mon fichier, j'aimerais que les lignes 2 et 3 soient supprimées, selon la valeur de la colonne.

Avec mon code j'arrive à les supprimer mais il faut que je fasse tourner la macro autant de fois qu'il y a de lignes correspondantes.

Seulement j'aimerais pouvoir faire tourner la macro qu'une seule fois évidement.

Si vous pouviez m'aider à trouver la source du problème, je vous serais reconnaissant.

Voici le code utilisé:

Sub Macro3()

Dim DerLig2, i As Long

DerLig2 = Range ("C" & Rows.Count).End(1xUp).Row

For i = 2 To DerLig2

If Range ("B" & i) = "0\" & Range ("D" & i) Then

Rows (i & "/" & i).Delete Shift:=x1Up

End If

Next

End Sub

capture

Bonjour,

En général les macros qui ont pour but de supprimer des lignes partent du bas vers le haut, comme ça ça n'affecte pas tes numéros de ligne... toutes celles que tu bouges, tu y es déjà passé

Du coup il faudrait que tu commences par mettre ta boucle comme ceci :

For i = DerLig2 to 2 step -1

Bonjour,

y'a autre chose :

DerLig2 = Range ("C" & Rows.Count).End(1xUp).Row
Rows (i & "/" & i).Delete Shift:=x1Up

1xUp ? x1Up ? non, c'est pas bon, ça ! dans les 2 cas, c'est xlUp (avec L minuscule)

toutes les constantes Excel commencent par xl

dhany

Bonjour,

y'a autre chose :

DerLig2 = Range ("C" & Rows.Count).End(1xUp).Row
Rows (i & "/" & i).Delete Shift:=x1Up

1xUp ? x1Up ? non, c'est pas bon, ça ! dans les 2 cas, c'est xlup (avec L minuscule)

toutes les constantes Excel commencent par xl

dhany

Bien vu!

ça m'a l'air bien codé

Merci beaucoup à tous

Et bien vu pour le xlup hahahah

merci pour ton retour, et pour avoir passé le sujet en résolu !

bonne continuation !

dhany

Rechercher des sujets similaires à "petit probleme boucle"