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