select case deux variables

Bonjour,

J'aimerais avec select case pouvoir tester deux variables.

transcrire le petit code suivant avec case (dans mon vba, ces deux variables doivent être testée sur 50 critères).

Le code avec if :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub test() Dim a, b As Integer   a = 1: b = 2: c = 3 If a = 1 And b = 2 Then msgbox "ca marche" Else msgbox "erreur" End If   End Sub

---

Merci de votre aide

bonjour,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Private Sub CommandButton1_Click() Call SubCase(1, 2) End Sub   Private Sub SubCase(VarA As Integer, VarB As Integer) Select Case VarA Case 1 Select Case VarB Case 1 ' Case 2 MsgBox "ca marche" End Select Case 2 Select Case VarB Case 1 ' Case 2 ' End Select End Select End Sub

---

mais j'ai d'autre solution si tu as plus de détails :D

@+JP