Condition multiple avec And

Salut.

J'ai un souci sur une gestion d'erreur dans un Inputbox dans VBA Excel.

Je souaite poser 2 conditions :

1. Que les 3 premiers carctères soient une chaine spécifique.

2. Que le 4ème soit aussi une chaine spécifique.

Voilà ce que ça devrait donner :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim SaisieUtilisateur, Erreur As String     SaisieUtilisateur=Inputbox("Saisir une valeur : ")   If Left(SaisieUtilisateur,3) <> "Cha" And Mid(SaisieUtilisateur,4,1) <> "B" Then   Erreur=MsgBox("Valeur entrée fausse.")   Exit Sub   End If

---

J'ai l'impression qu'il n'aime pas le "And".

Citation:

---

Envoyé par Aizen64

J'ai l'impression qu'il n'aime pas le "And".

---

Bonjour,

Pourquoi ?

Starec

Il prend en compte la 1ère condition mais pas celle après le And.

Re

Essaye avec des parenthèses

Code:

---

(Left(SaisieUtilisateur,3) <> "Cha") And (Mid(SaisieUtilisateur,4,1) <> "B")

---

Starec

Ça n'a pas l'air de passer :

Code:

---

1 2 3 4 5 6

If (Left(VariableString,4) <> "TEST") And (Mid(VariableString,5,1) <> "A") Then   'Message d'erreur et sortie de la procédure   End If

---

Ce n'est pas exactement le même exemple mais ça ne marche pas quand même.

Je peux contourner le problème en faisant un autre Else mais je préfère éviter.

Bonjour,
Petite question bete:
Est ce que tu as une erreur ou est ce que ca ne fait pas ce que tu veux ?
Dans le second cas, peut etre un probleme de majuscules dans les tests... Option compare text arrangerait ca.

Je n'ai aucune erreur (bug qui empêche le traitement), il ne prend pas en compte la condition après le And, la condition en début de If est prise en compte.

He bien j'ai fait des essais chez moi et c amarche tres bien

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub truc() Dim variablestring As String variablestring = Cells(1, 1).Value   If (Left(variablestring, 4) <> "TEST") And (Mid(variablestring, 5, 1) <> "A") Then MsgBox ("OK") Else MsgBox ("NOK") End If   End Sub

---

J'ai essaye avec TESTA, asdfA, TESTjljk, gskdg et j'ai a chaque fois eu le bon msgbox qui s'est ouvert...

Bonjour,

As tu essayé ceci:

Code:

---

If ( (Left(variablestring, 4) <> "TEST") And (Mid(variablestring, 5, 1) <> "A") )Then

---

C'est à dire mettre des paranthèses sur l'ensemble de ta condition ? :?

Sur un de mes projets j'ai rencontré le même probleme que toi et avec les paranthèses ça s'est débloqué...:lol:

Bonne journée !

c'est bien étrange.

J'ai recopié ton code à un exeption près, j'ai fait un Inputbox avec la variablestring.

gskdg affiche "OK" tous tes autres tests "NOK". Là je pige pas de tout.

Citation:

---

Envoyé par peaceandloveman01

Bonjour,

As tu essayé ceci:

If ( (Left(variablestring, 4) <> "TEST") And (Mid(variablestring, 5, 1) <> "A") )Then

C'est à dire mettre des paranthèses sur l'ensemble de ta condition ? :?

Sur un de mes projets j'ai rencontré le même probleme que toi et avec les paranthèses ça s'est débloqué...:lol:

Bonne journée !

---

Ton code fonctionne! Putain de parenthèses! :evilred: