Select Case Range("A1") Case Is <> "A", "B", "C" MsgBox "Toto"
End Select
Salutations!
"Charles" a écrit dans le message de news:0a3201c3d6b4$d3513dc0$ Bonjour tout le monde,
Voilà j'aimerais juste enchaîner des Case Is <> , mais ca ne marche pas, est-ce normal ? Je fais
Case Is <> "A", Is <> "B" ...
en fait il ne comprend le "différent d'un texte", comment puis-je faire ? Merci
Chris Michel
C'est pas plus simple de faire: If X <> "A" then... puis I X <> "B" then... ?
un select case, si je dis pas d'anerie doit fonctionner avec des valeurs mutuellement exclusivesalros que tes tests logiques ne remplissent pas cette condition.
-----Message d'origine----- Bonjour tout le monde,
Voilà j'aimerais juste enchaîner des Case Is <> , mais ca ne marche pas, est-ce normal ? Je fais
Case Is <> "A", Is <> "B" ...
en fait il ne comprend le "différent d'un texte", comment puis-je faire ? Merci
.
C'est pas plus simple de faire:
If X <> "A" then...
puis
I X <> "B" then...
?
un select case, si je dis pas d'anerie doit fonctionner
avec des valeurs mutuellement exclusivesalros que tes
tests logiques ne remplissent pas cette condition.
-----Message d'origine-----
Bonjour tout le monde,
Voilà j'aimerais juste enchaîner des Case Is <> , mais ca
ne marche pas, est-ce normal ?
Je fais
Case Is <> "A", Is <> "B" ...
en fait il ne comprend le "différent d'un texte", comment
puis-je faire ? Merci
C'est pas plus simple de faire: If X <> "A" then... puis I X <> "B" then... ?
un select case, si je dis pas d'anerie doit fonctionner avec des valeurs mutuellement exclusivesalros que tes tests logiques ne remplissent pas cette condition.
-----Message d'origine----- Bonjour tout le monde,
Voilà j'aimerais juste enchaîner des Case Is <> , mais ca ne marche pas, est-ce normal ? Je fais
Case Is <> "A", Is <> "B" ...
en fait il ne comprend le "différent d'un texte", comment puis-je faire ? Merci
.
AV
Select Case Range("A1") Case Is = "A", "B", "C" Case Else MsgBox "toto" End Select
AV
Select Case Range("A1")
Case Is = "A", "B", "C"
Case Else
MsgBox "toto"
End Select
