Boucle probleme de condition VBA

gopo Messages postés 65 Date d'inscription   Statut Membre Dernière intervention   -  
 rasta67 -
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 !

2 réponses

Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
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)
0
rasta67
 
salut, il suffit de mettre un exit for après ton delete
0