Boucle probleme de condition VBA

Question

Bonjour,

J'ai ce code la, je voudrais que la boucle s'arrete des qu'elle a Row(i).Delete seulement une fois , en gros, des qu'elle a trouvé RGP elle supprime la ligne et sort de la boucle ... je me casse la tête dessus mais moi et les boucles For ! .

Sub suppr()
Dim i As Integer
     
For i = 1 To 256
    If Cells(i, 3) = "RGP" Then
        Rows(i).Delete
        i = i - 1
    End If
Next
End Sub

Merci de votre aide !

Polux31 · Answer

Bonjour,

Il suffit de sortir de la procédure dès que la condition est remplie :

Sub suppr()
Dim i As Integer

For i = 1 To 256
   If Cells(i, 3) = "RGP" Then
      Rows(i).Delete
      Exit Sub
      i = i - 1
   End If
Next
End Sub 

;o)

rasta67 · Answer

salut, il suffit de mettre un exit for après ton delete

Boucle probleme de condition VBA

2 réponses

Discussions similaires

Newsletters