Problème MDP

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

2 réponses

  1.  f894009
    Bonjour,

    Textbox: entree de chaine de caracteres, pas de numerique

    donc: 

    If TextBox1 = "123" And Caseàcocher4 = True Then
    0
    1. RomRom
      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
    2. f894009
      @RomRomRe,

      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
    3. RomRom
      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
    4. f894009
      @RomRomRe,

      Textbox1 est sur une feuille avec son code??
      0
  2. RomRom
    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
    1. f894009
      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
    2. RomRom
      ça marche !!!

      You are very strong ! ;)
      Congratulation !

      Merci beaucoup !
      0