Condition "si" dans VBA

[Famu]

Bonjour à tous,


Je suis obligé de lancer plusieurs fois la macro ci-dessous pour que toutes les conditions soient exécutées.
Y a t-il un moyen pour supprimer ce problème ?


For i = 6 To 1000


If (Cells(i, 1) = 'A' Or Cells(i, 1) = 'B' Or Cells(i, 1) = 'C' Or Cells(i, 1) = 'D' Or Cells(i, 3) = 'E' Or Cells(i, 3) = 'F') Then
Cells(i, 1).EntireRow.Delete
End If
Next


Merci beaucoup pour votre aide,

A bientôt,
Famu.

 

[Hervé]

Bonjour famu, le forum

Le principe en VBA lorsque l'on veut supprimer des lignes c'est de faire la boucle à l'envers. Partir du bas et remonter :

For i = 1000 To 6 Step -1


salut

 

[Hellboy]

Bonjour Famu, Hervé

Pour ajouter au conseil judicieux a Hervé, une autre façon de formuler tes conditions est avec l'utilisation de 'Case' comme ceci:

With Cells(i, 1)
        Select Case .Value
                        Case 'A', 'B', 'C', 'D', 'E', 'F'
                                .EntireRow.Delete
        End Select
End With

 

[Famu]

Merci Hervé pour ton conseil.
Je l'applique dès maintenant !

Bonne journée à toi et à tout le forum.
Famu.

 

[Famu]

ça marche aussi.

Merci à toi.
Famu.