Identifier la forme déclenchant une procédure
Le
JP
Bonsoir,
J’ai en page d’accueil des formes prédéfinies (rectangle bords arro=
ndis) que j’ai nommées Bouton_Prof1, Bouton_Prof2, etc…
A chaque bouton j’ai associé un code qui envoie vers un userform pour d=
emander un mot de passe. Question de protéger l’accès à certaines c=
hoses.
Le code de l’userform Mdp est le suivant :
Private Sub b_ok_Click()
If Me.TextBox1 = "" Then ' mdp à mettre entre les guillemets
If BCouBD = "BC" Then
GestionStock.Show 0
End If
If BCouBD = "BDS" Then
Sheets("BDStock").Visible = True
Sheets("BDStock").Select
Range("A2").Select
End If
Unload Me
Else
MsgBox "Vous n'êtes pas autorisé à accéder à cette partie du=
logiciel." & Chr(10) _
& "Solliciter votre professeur pour travailler dans cet espace."
Me.TextBox1 = ""
Me.TextBox1.SetFocus
End If
Unload Me
End Sub
Je voudrais pouvoir faire un test sur les boutons formes pour orienter vers=
une procédure ou une autre.
Genre:
if origine = Bonton_Prof1 then Vers procedure1
if origine =Bouton_Prof2 then Vers procedure2
etc…
Est-ce possible?
Merci
JP
J’ai en page d’accueil des formes prédéfinies (rectangle bords arro=
ndis) que j’ai nommées Bouton_Prof1, Bouton_Prof2, etc…
A chaque bouton j’ai associé un code qui envoie vers un userform pour d=
emander un mot de passe. Question de protéger l’accès à certaines c=
hoses.
Le code de l’userform Mdp est le suivant :
Private Sub b_ok_Click()
If Me.TextBox1 = "" Then ' mdp à mettre entre les guillemets
If BCouBD = "BC" Then
GestionStock.Show 0
End If
If BCouBD = "BDS" Then
Sheets("BDStock").Visible = True
Sheets("BDStock").Select
Range("A2").Select
End If
Unload Me
Else
MsgBox "Vous n'êtes pas autorisé à accéder à cette partie du=
logiciel." & Chr(10) _
& "Solliciter votre professeur pour travailler dans cet espace."
Me.TextBox1 = ""
Me.TextBox1.SetFocus
End If
Unload Me
End Sub
Je voudrais pouvoir faire un test sur les boutons formes pour orienter vers=
une procédure ou une autre.
Genre:
if origine = Bonton_Prof1 then Vers procedure1
if origine =Bouton_Prof2 then Vers procedure2
etc…
Est-ce possible?
Merci
JP
Utilise :
ActiveSheet.Shapes(Application.Caller)
Cordialement.
Daniel
Merci Daniel.
JP
Select Case TypeName(Application.Caller)
Case "Range"
v = Application.Caller.Address
Case "String"
v = Application.Caller
Case "Error"
v = "Error"
Case Else
v = "unknown"
End Select
MsgBox "caller = " & v
isabelle
Le 2013-12-04 16:14, JP a écrit :