Discussion :

[jazzybluesy]

Bonjour à tous,
je me posais la question dernièrement de savoir si l on pouvait raccourcir cette formule :

Code :

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

1
2
3
4
 
If variable1 = 2 Or variable1 = "toujours" Or variable1 = "non" Then
'Est ce qu il existe une formulation comme cette suivante ?
If variable1 = 2 Or "toujours" Or "non" Then

Merci à tous

[Philippe Tulliez]

Bonjour,
Par exemple avec Select Case
Exemple :

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
 Dim Variable1
 Variable1 = 2
 Select Case Variable1
  Case 2, "toujours", "non"
   MsgBox "Pris en compte"
   ' Code
 End Select
End Sub

[jazzybluesy]

Exactement ce que je voulais ! Merci beaucoup