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 : Sélectionner tout - Visualiser dans une fenêtre à part
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