Discussion :

[Aizen64]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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".

[Invité]

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

Bonjour,

Pourquoi ?

Starec

[Aizen64]

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

[Invité]

Re

Essaye avec des parenthèses

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Starec

[Aizen64]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[tonton fred]

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.