les conditions If ElseIf THEN

Bonjour,

J'ai un petit soucis dans la maîtrise des conditions if et elseif sous VBA:

J'aimerais écrire les conditions suivantes:

Code:

---

1 2 3 4 5 6

If valeur1 = a and valeur2 = b and valeur3 = c "Alors, si" : valeur4 = x then cells(1,1) = 1 Sinon, si valeur4 = y then cells(1,1) = 2 Sinon, si valeur4 = z then cells(1,1) = 3

---

Quelqu'un a une idée ?

pour l'instant, j'ai écrit cela :

Code:

---

1 2 3 4

If valeur1 = a and valeur2 = b and valeur3 = c and valeur4 = x then cells(1,1) = 1 If valeur1 = a and valeur2 = b and valeur3 = c and valeur4 = y then cells(1,1) = 2 If valeur1 = a and valeur2 = b and valeur3 = c and valeur4 = z then cells(1,1) = 3

---

Cette solution fonctionne, mais prend beaucoup trop de place dans mon cas de figure qui contient beaucoup de conditions...

Merci d'avance pour votre aide..

Bonjour,
il est souvent plus simple à lire/écrire des conditions sous forme de Select Case.
Dans le cas cité, on pourrait y aller comme suit

Code:

---

1 2 3 4 5 6 7 8 9 10

If valeur1 = a And valeur2 = b And valeur3 = c Then Select Case valeur4 Case x Cells(1, 1) = 1 Case y Cells(1, 1) = 2 Case z Cells(1, 1) = 3 End Select End If

---

Bonjour,
voici la façon de l'écrire avec les IF etc....

Code:

---

1 2 3 4 5 6 7 8 9

If valeur1 = a And valeur2 = b And valeur3 = c Then If valeur4 = x Then Cells(1, 1) = 1 ElseIf valeur4 = y Then Cells(1, 1) = 2 ElseIf valeur4 = Z Then Cells(1, 1) = 3 End If End If

---

Bonjour,
Merci à tous les deux pour ces réponses très complètes !