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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
DanielCo
Le #25842912
Bonjour,
Utilise :
ActiveSheet.Shapes(Application.Caller)
Cordialement.
Daniel


Bonsoir,

J’ai en page d’accueil des formes prédéfinies (rectangle bords arrondis) que
j’ai nommées Bouton_Prof1, Bouton_Prof2, etc… A chaque bouton j’ai associé un
code qui envoie vers un userform pour demander un mot de passe. Question de
protéger l’accès à certaines choses. 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
JP
Le #25843422
Bonjour,

Merci Daniel.

JP
isabelle
Le #25844152
bonjour 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 :
Bonsoir,

J’ai en page d’accueil des formes prédéfinies (rectangle bords arrondis) que j’ai nommées Bouton_Prof1, Bouton_Prof2, etc…
A chaque bouton j’ai associé un code qui envoie vers un userform pour demander un mot de passe. Question de protéger l’accès à certaines choses.
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

Publicité
Poster une réponse
Anonyme