Inputbox recalcitrante

  • Initiateur de la discussion Initiateur de la discussion dss
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

dss

XLDnaute Occasionnel
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
808
Compte Supprimé 979
C
Réponses
1
Affichages
497
Réponses
3
Affichages
585
Retour