OVH Cloud OVH Cloud

Interception d'un Control d'un Userform

6 réponses
Avatar
SI
Bonjour;

Sub Macro1()
......
userform.show
if commandbutton1.value = true then
...
End sub

J'ai un Userform, composé de bouton de commande.
Je souhaiterais connaitre celui qui a été selectionné quand la macro
continue.
Malheureusement la commande citée ci-dessus ne m'apporte pas cette réponse.


Merci

6 réponses

Avatar
Pascal Engelmajer
Salut,
teste
Application.Caller
et tu devrai t'en sortir
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"SI" a écrit dans le message de news:
407c05ba$0$22857$
Bonjour;

Sub Macro1()
......
userform.show
if commandbutton1.value = true then
...
End sub

J'ai un Userform, composé de bouton de commande.
Je souhaiterais connaitre celui qui a été selectionné quand la macro
continue.
Malheureusement la commande citée ci-dessus ne m'apporte pas cette
réponse.



Merci




Avatar
SI
Désolé Pascal, je me suis peut être mal exprimé ds ma demande.

les boutons du Userform n'ont que pour fonction de cacher le Userform ouvert
et redonner la main à la macro qu'il l'a ouvert.
Ce que je souhaite, c'est de connaitre sur quel bouton l'utilisateur à
cliquer.

Mercia


"Pascal Engelmajer"
Salut,
teste
Application.Caller
et tu devrai t'en sortir


Avatar
ru-th
Salut
Faute de plus amples précisions (ton code par exemple)
la réponse de Pascal semble la plus adéquate à la problèmatique
sus-mentionnée

a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"SI" a écrit dans le message de
news:407c4ba3$0$22876$
Désolé Pascal, je me suis peut être mal exprimé ds ma demande.

les boutons du Userform n'ont que pour fonction de cacher le Userform
ouvert

et redonner la main à la macro qu'il l'a ouvert.
Ce que je souhaite, c'est de connaitre sur quel bouton l'utilisateur à
cliquer.

Mercia


"Pascal Engelmajer"
Salut,
teste
Application.Caller
et tu devrai t'en sortir






Avatar
SI
Le Userform se nomme "ChoixUtilisateur et comporte 3 boutons

Private Sub CommandButton1_Click() "idem pour les boutons 2 &3"
Hide
End Sub

La macro qui lance se Userform est la suivante :

Private Sub Workbook_Open()
blabla...
blabla...
blabla...
ChoixUtilisateur.Show
If ChoixUtilisateur.CommandButton1.Value = True then
blabla...
blabla...
End Sub

J'aurais pensé que la propriété "Value" m'aurais permis d'intercepter le
bouton de commande qui avait été cliqué.

Merci à vous
Avatar
Alain CROS
Bonjour.

Private Sub Workbook_Open()
blabla...
ChoixUtilisateur.Show
Select Case ChoixUtilisateur.ActiveControl.Name
Case "CommandButton1"
blabla...
Case "CommandButton2"
blabla...
Case Else
blabla...
End Select
End Sub

Alain CROS

"SI" a écrit dans le message de news: 407c6882$0$22859$
Le Userform se nomme "ChoixUtilisateur et comporte 3 boutons

Private Sub CommandButton1_Click() "idem pour les boutons 2 &3"
Hide
End Sub

La macro qui lance se Userform est la suivante :

Private Sub Workbook_Open()
blabla...
blabla...
blabla...
ChoixUtilisateur.Show
If ChoixUtilisateur.CommandButton1.Value = True then
blabla...
blabla...
End Sub

J'aurais pensé que la propriété "Value" m'aurais permis d'intercepter le
bouton de commande qui avait été cliqué.

Merci à vous




Avatar
SI
Je te remercie Alain, c'est exactement ce que je désirais.


"Alain CROS" a écrit dans le message de
news:
Bonjour.

Private Sub Workbook_Open()
blabla...
ChoixUtilisateur.Show
Select Case ChoixUtilisateur.ActiveControl.Name
Case "CommandButton1"
blabla...
Case "CommandButton2"
blabla...
Case Else
blabla...
End Select
End Sub

Alain CROS

"SI" a écrit dans le message de news:
407c6882$0$22859$

Le Userform se nomme "ChoixUtilisateur et comporte 3 boutons

Private Sub CommandButton1_Click() "idem pour les boutons 2 &3"
Hide
End Sub

La macro qui lance se Userform est la suivante :

Private Sub Workbook_Open()
blabla...
blabla...
blabla...
ChoixUtilisateur.Show
If ChoixUtilisateur.CommandButton1.Value = True then
blabla...
blabla...
End Sub

J'aurais pensé que la propriété "Value" m'aurais permis d'intercepter le
bouton de commande qui avait été cliqué.

Merci à vous