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