Don pépé
XLDnaute Occasionnel
bien le bonjour
Jexplique mon souci. J'ai fait un ruban quand je clique sur un des bouton je voudrais afficher un userform pour demander un mot de passe (jusque la pas de souci) mon probleme arrive quand je veux recuperer le mot de passe.
mon userform:
le msgbox affiche bien la variable
dans mon module:
le msgbox n'affiche pas la variable
je n'arrive pas a transporter la variable de l'userform dans le module
merci pour votre aide
Jexplique mon souci. J'ai fait un ruban quand je clique sur un des bouton je voudrais afficher un userform pour demander un mot de passe (jusque la pas de souci) mon probleme arrive quand je veux recuperer le mot de passe.
mon userform:
VB:
Option Explicit
Dim Mdp As String
Private Sub Valider_Click()
UserForm1.Hide
Mdp = UserForm1.TextBox1.Value
MsgBox Mdp
Unload Me
End Suble msgbox affiche bien la variable
dans mon module:
VB:
Option Explicit
Public oRibbon As IRibbonUI
Public Mdp As String
Dim Voir_Masque As Boolean
Sub RibbonOnLoad(Ribbon As IRibbonUI)
Set oRibbon = Ribbon
End Sub
Sub Ribbon_OnAction_Press(control As IRibbonControl, pressed As Boolean)
UserForm1.Show
Mdp = UserForm1.TextBox1.Value
MsgBox Mdp
If Mdp = "motdepasse" Then
Voir_Masque = pressed
oRibbon.Invalidate
Exit Sub
Else
MsgBox Prompt:="Vous n'êtes pas autorisé à accéder à cette partie du logiciel.", _
Buttons:=48, Title:="Erreur"
End If
End Subje n'arrive pas a transporter la variable de l'userform dans le module
merci pour votre aide
Dernière édition: