Résultats de 1 à 5 sur 5

Sujet : demande de mot de passe

  1. #1
    Membre MP
    Inscrit
    août 2013
    Messages
    203

    demande de mot de passe

    coucou ca va?
    j aimerai savoir comment je pourrait faire pour que quand je clique sur un boutton de commande, j ai un message box qui vient pour me demander de sasir un mot de passe?
    merci d avance!!!
    le joyeu luron de la prog qui connait rien en prog ;-)

  2. #2
    Membre MP
    Inscrit
    août 2013
    Messages
    23
    Salut gars,

    Tu pourrai déjà te créer une variable globale qui va te servir à stocker ton mot de passe puis ensuite dans le bouton de commande tu vas te faire une petite procédure simple dans ce style :

    On suppose que ta variable est de type String (chaine de caractères).

    \' Si la variable n\'est pas vide
    if MaVariable <> \"\" then

    \' Execute la commande
    call MaCommande

    \' Sinon
    else

    \' Affiche un message
    msgbox \"Erreur\", vbcritical

    end if

    Alors MaCommande peut faire référence à une sub qui envoie la fonction InputBox qui elle même t\'affichera une boite de dialogue avec une zone de texte par exemple.

    Si c\'est ce que tu cherchais comme solution, ça voudra dire que j\'ai bien répondu à la question
    :wink:

    Tiens c\'est mon premier message ici :8O:
    Moi !

  3. #3
    Membre MP
    Inscrit
    août 2013
    Messages
    203
    salut ca va?
    voila mon script et il me fais rentrer 2 fois le mot de passe puis il me met le message \"erreur\".
    je comprend pas car je suis nul.
    j aimerai qu il me mettent la page dés que le mot de passe est correct.
    SVP aidez moi,
    pitié j en ai marre de vb c est tro dur


    Sub feuille_4()

    i = touche_moi_là
    motdepasse = InputBox( _
    prompt:=\"Veuillez saisir votre mot de passe\", _
    Title:=\"DEMANDE DE MOT DE PASSE\")

    If InputBox( _
    prompt:=\"Veuillez saisir votre mot de passe\", _
    Title:=\"DEMANDE DE MOT DE PASSE\") = i Then
    Sheets(\"feuil4\").Select
    Else
    MsgBox \"erreur\", vbCritical
    End If
    End Sub
    :cry: :cry:
    le joyeu luron de la prog qui connait rien en prog ;-)

  4. #4
    Membre MP
    Inscrit
    août 2013
    Messages
    23
    Salut gars,

    Pas d\'affolement voici la solution :

    Dim i As String, motdepasse As String

    \' Mot de pase par défaut
    i = \"touche_moi_là\"

    \' Appel a inputbox
    motdepasse = InputBox(\"Veuillez saisir votre mot de passe\", \"DEMANDE DE MOT DE PASSE\")

    \' Gestion d\'erreur
    If motdepasse <> i Then

    \' Si modepasse différent de i code incorrect
    MsgBox \"Code tout caca\", vbCritical

    Else

    \' Sinon code correct
    MsgBox \"Code pas caca\", vbInformation
    \'Sheets(\"feuil4\").Select

    End If

    Prend l\'habitude de déclarer toutes tes variables tu t\'y retrouvera mieux et pour tes InputBox banni tous les prompt:= ou Title:= ça ne sert à rien sous VB.

    Le code que tu as marqué était presque bon mais tu fesais deux fois appel à inputbox alors qu\'une seul fois suffit.

    Et n\'hésite pas à bien commenter ton code c\'est vachement important.

    Courage au début le VB te parraitra bizarre mais aprés tu veras, c\'est du vrai bonheur :wink:
    Moi !

  5. #5
    Membre MP
    Inscrit
    août 2013
    Messages
    203
    merci t assure
    sans toi je serai encore en train de galerer.
    tchao
    le joyeu luron de la prog qui connait rien en prog ;-)

Informations du sujet

Utilisateur(s) parcourant ce sujet

il y a actuellement 1 utilisateur(s) parcourant ce sujet. (0 membre(s) et 1 visiteur(s))

Règles des messages

  • Vous ne pouvez pas créer de sujets
  • Vous ne pouvez pas répondre aux sujets
  • Vous ne pouvez pas importer de fichiers joints
  • Vous ne pouvez pas éditer vos messages
  •  
  • Les BB codes sont Activés
  • Les Smileys sont Activés
  • Le BB code [IMG] est Activé
  • Le code [VIDEO] est Activé
  • Le code HTML est Désactivé
Please disable Adblock!