syntaxe du if or

[stephane]

bonkour je cherche à ecrire une macro toute bete avec une variable qui devrait donner ca

si ma variable est égale à 32 ou 46 ou 47 la valeur de a4est 1
sinon si mavariables et égale à 4 ou 6 ou 13 ou 83 la valeur de a4 est 2

ca devrait donner

if mavariable = 32 or 46 or 47 then ......= 1
elseif mavariable = 4 or 6 or 13 or 83 then ......2

et mon or ne fonctionne pas.

Au secours ! Merci de votre aide

 

[@+Thierry]

Bonjour Stephane et le Forum

Tu as deux solutions, souvent il faut pas toujours penser SI / OU mais tout bêtement CAS ... mais les deux solutions ont le même résultat...

Sub si_ou()
Mavar = Sheets(1).Range("a1")
If Mavar = 32 Or Mavar = 46 Or Mavar = 47 Then
Sheets(1).Range("a4") = 1
ElseIf Mavar = 4 Or Mavar = 6 Or Mavar = 13 Or Mavar = 83 Then
Sheets(1).Range("a4") = 2
Else
Sheets(1).Range("a4") = 0
End If
End Sub


Sub Cas()
Mavar = Sheets(1).Range("a1")
Select Case Mavar
Case 32, 46, 47
Sheets(1).Range("a4") = 1
Case 4, 6, 13
Sheets(1).Range("a4") = 2
Case Else
Sheets(1).Range("a4") = 0
End Select
End Sub

Bon App
@+Thierry