Bonjour,
j'aimerais faire un select case sur plusieurs variables. Mais je me retrouve confronté à un pbm quand je fait un test sur les 2 en même temps.
J'ai fait juste un petit bout de code pour tester :

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
 
        Dim a As String
        Dim b As String
        a = 1
        b = 2
 
        Select Case a And b
 
            Case 1 And 2
                MsgBox("1 et 2")
 
            Case "ok" And "ok"
                MsgBox("ok")
 
            Case Else
                MsgBox("Try AgAin")
 
        End Select
Le problème est que pour une raison qui m'est inconnue, si dans le premier cas celà test 2 integer, dans le second cas malgrès les "" celà fait un test sur un Long (si je mets la souris sur le AND du 2 ème cas il semble déclarer comme un Long).

Il doit y avoir une raison mais aussi une solution mais là je sèche.
Ou alors si y a une autre solution pour tester plusieurs variables voir même un array je suis preneur