Discussion :

[manuhell601]

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

[mjpmjp]

bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

@+JP