Equivalent fonction excel OR(x,y,z) pour VBA

[SKOBLAR]

Je ne trouve pas grand chose sur la focntion or() en vba ou son equivalent.
Je veux simplement ecrire une ligne if x= or(a,b,c) then.....
Quelqu'un saurait-il faire ca en vba ?
pour info, le moteur de recherche ne fonctionne pas avec des mots cles inferieurs a 4 caracteres.

thanks !!!

Skob

 

[Staple1600]

Re : Equivalent fonction excel OR(x,y,z) pour VBA

Bonjour

Deux exemples:

Avec Select Case

sub test_1() 
Dim x As String
x = "a"
Select Case x
Case "a", "b", "c"
MsgBox "ok"
End Select
end sub

Avec If

Sub test_2() 
Dim x As String
x = "a"
If x="a" Or x="b" Or x="c" then msgbox "ok"
End Sub

edit: bonsoir Pierrot93

 

[Pierrot93]

Re : Equivalent fonction excel OR(x,y,z) pour VBA

Bonsoir

autre solution avec la condition if :

If x = "a" Or x = "b" Or x = "c" Then

bonne soirée
@+

 

[SKOBLAR]

Re : Equivalent fonction excel OR(x,y,z) pour VBA

super, merci a tous
bonne soiree