Discussion :

[sphynxounet]

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

[smyley]

Fait un If Then ElseIf etc..

[sphynxounet]

Oui en fait c'est tout simple suffit de simuler un Select case avec une boucle for et des If. Le Select case peut être intéressant mais il est est un peu limité je trouve.
Des fois que ça intéresse des gens en gros il faut faire comme ceci :

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
 
        For i As Integer = 0 To 0
 
            If a = ... And b = ... Then
                ...
                Exit For
            End If
 
            If a = ... And b = ...Then
                ...
                Exit For
            End If
 
            ...
 
        Next