Inputbox recalcitrante

[dss]

Bonjour le forum,

Je bute sur la sortie d'une inputbox dont voici le code :

Dim mot As String, motdepasse As String, a As String
mot = "x"
If target.Column >= 1 And target.Column <= 9 Then Exit Sub
If target.Column = 10 And ActiveCell.Offset(0, -1) = "TOTO" Then _
motdepasse = InputBox("Mot de passe,svp")
If motdepasse = "x" Then
a = MsgBox("Valeurs autorisées OUI ou NON", vbYesNo, "Saisie de valeurs")
If a = vbYes Then ActiveCell.Value = "OUI"
If a = vbNo Then ActiveCell.Value = "NON"
Else
target.Offset(0, -1).Select
End If

Le problème est le suivant :

La boite de dialogue s'ouvre si j'essaie de saisir en colonne J mais tant que je saisis le mot de passe"x", elle reboucle sur elle-même que je valide OUI ou NON.

Si l'un d'entre vous a déjà résolu ce problème, ces conseils seront les bienvenus et même plus car cela fait un moment que je bute sur ce problème.

Cordialement

A+

dss

 

[Claudy]

Re : Inputbox recalcitrante

Hello à première vue il te manque quelques "End if"
a+

 

[ERIC S]

Re : Inputbox recalcitrante

Bonjour

tu devrais garder le même fil, cela surcharge le forum

un essai

 

[dss]

Re : Inputbox recalcitrante

Bonsoir Eric,

J'ai mis un peu de temps à te répondre car j'ai dû reconstituer en grande partie mon tableau avant de pouvoir tester ton code : CA FONCTIONNE.
Grand merci à toi.

Je te souhaite un bon réveillon ainsi qu'à tout le forum

Cordialement

dss