Problème de If (plusieurs conditions)

Le
YeTi
Bonjour,

j'aimerais écrire qqch comme ceci dans le code d'un userform

If Cells(4, 1) = "" Or "A" Or "B" Then
CheckBox1.Visible = False
Else
CheckBox1.Visible = True
End If

Cependant ça ne marche pas, et quand je teste, j'ai ce message d'erreur:

"Erreur d'exécution '13':
Incompatibilité de type"

J'aimerais également éviter de taper un code comme ceci:

If Cells(4, 1) = "" Then
CheckBox1.Visible = False
If Cells(4, 1) = "A" Then
CheckBox1.Visible = False
If Cells(4, 1) = "B" Then
CheckBox1.Visible = False
Else
CheckBox1.Visible = True
End If
End If
End If

Vous pourriez m'aider svp?
Vos réponses
Trier par : date / pertinence
Daniel
Le #3367781
Bonsoir.
Rectifie :
If Cells(4, 1) = "" Or Cells(4, 1) = "A" Or Cells(4, 1) = "B" Then
Cordialement.
Daniel
"YeTi"
Bonjour,

j'aimerais écrire qqch comme ceci dans le code d'un userform

If Cells(4, 1) = "" Or "A" Or "B" Then
CheckBox1.Visible = False
Else
CheckBox1.Visible = True
End If

Cependant ça ne marche pas, et quand je teste, j'ai ce message d'erreur:

"Erreur d'exécution '13':
Incompatibilité de type"

J'aimerais également éviter de taper un code comme ceci:

If Cells(4, 1) = "" Then
CheckBox1.Visible = False
If Cells(4, 1) = "A" Then
CheckBox1.Visible = False
If Cells(4, 1) = "B" Then
CheckBox1.Visible = False
Else
CheckBox1.Visible = True
End If
End If
End If

Vous pourriez m'aider svp?


Clément Marcotte
Le #3367711
Bonjour,

Ou, juste pour le fun, puisqu'à la compilation cela ne doit pas faire une
bien grosse différence.

select case cells(4,1).value
case "", "A","B"
CheckBox1.Visible = False
case else
CheckBox1.Visible = True
end select
Publicité
Poster une réponse
Anonyme