Problème MDP

Fermé
RomRom - 31 mars 2015 à 07:46
 RomRom - 31 mars 2015 à 10:54
Bonjour à tous voila j'ai un petit problème.

Je suis bloqué sur une étape, je souhaite que sur ma feuille principale, lorsque je rentre "123" dans un Textbox, que je coche un Checkbox, et que je clique sur une image, la Macro ouvre le Userform.

J'ai fait ce code mais sa m'affiche automatiquement 'Mot de Passe Erroné", une idée ? :)

If TextBox1 = 123 And Caseàcocher4 = True Then 'condition : si le MDP est 123
UserForm1.Show 'ouvre l'Userform1
Else: MsgBox "Mot de Passe Erroné" 'message
End If 'fin de la condition
A voir également:

2 réponses

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
31 mars 2015 à 08:36
Bonjour,

Textbox: entree de chaine de caracteres, pas de numerique

donc:

If TextBox1 = "123" And Caseàcocher4 = True Then
0
Bonjour F894009,
J'ai également essayé et ça ne marche pas.
J'ai éssayé "MDP" ça ne marche pas.
J'ai essayé MDP ça ne marche pas non plus.

:/
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702 > RomRom
31 mars 2015 à 09:18
Re,

Faudrait votre fichier a dispo sans donnees sensible

Pour transmettre un fichier,
il faut passer par un site de pièce jointe tel que cjoint.com

Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...
0
Oui je connais bien comment faire, seulement les données dans ce document sont plus ou moins confidentielles, et je ne peut me permettre de tout effacer :/

Mon code actuel est
If TextBox1 = MDP And Caseàcocher4 = True Then 'condition
UserForm1.Show 'ouvre l'Userform1
Else: MsgBox "Mot de Passe Erroné" 'message
End If 'fin de la condition
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702 > RomRom
31 mars 2015 à 10:08
Re,

Textbox1 est sur une feuille avec son code??
0
Re,

Oui TextBox1 est sur ma feuille principale de mon document excel.
J'ai également un textbox1 dans un userform, ça peut peut être venir de la le beug ?
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
31 mars 2015 à 10:40
Re,
adaptez le nom de la feuille et MDP
If TextBox1 = MDP And Sheets("feuil1").Shapes("Check Box 4").ControlFormat.Value = xlOn Then  'condition
0
ça marche !!!

You are very strong ! ;)
Congratulation !

Merci beaucoup !
0