Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Problème de If (plusieurs conditions)

Problème de If (plusieurs conditions)

2 réponses
Avatar
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?
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonsoir.
Rectifie :
If Cells(4, 1) = "" Or Cells(4, 1) = "A" Or Cells(4, 1) = "B" Then
Cordialement.
Daniel
"YeTi" a écrit dans le message de news:

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?


Avatar
Clément Marcotte
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