Boucle avec conditions multiples

Bonjour,

Je suis débutant en VBA et je rencontre un problème pour réaliser plusieurs conditions ( for each..., if) à l'interieur d'une meme boucle ( j'ai essayer while/do while sans succés)

Le code marche sans problemes pour chacune des conditions mais je n'arrive pas a mettre toutes les conditions au seins de la meme boucle celle ci n'est plus reconnu ( erreur boucle sans do/while)

faut il forcement contourner la contrainte? ou alors j'ai raté qqchose?

i = 3
While Cells(i, 1).Value <> ""
For Each c In Range("etiquette")
If (Cells(i, Range("etiquette").Column) = "A") Or (Cells(i, Range("etiquette").Column) = "B") Or (Cells(i, Range("etiquette").Column) = "C") Or (Cells(i, Range("etiquette").Column) = "D") Then
Cells(i, Range("testetiquette").Column) = "ok"
Else
Cells(i, Range("testetiquette").Column) = "x"
End If
i = i + 1
Next c
Wend

je vous remercie,

Rudy

Salut Rudy,

Le code marche sans problèmes!

On peut voir ça, stp?

A+

Bonjour,

Avec un "Select Case", par contre sans fichier difficile de voir ce que représente les Ranges "etiquette" et "testetiquette" :

I = 3
While Cells(I, 1).Value <> ""

For Each C In Range("etiquette")

    Select Case Cells(I, Range("etiquette").Column)

        Case "A", "B", "C", "D": Cells(I, Range("testetiquette").Column) = "ok"

        Case Else: Cells(I, Range("testetiquette").Column) = "x"

    End Select

    I = I + 1

    Next C

Wend