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