bonjour à tous,
toujours dans mon soucis de simplifier le code j'ai une forme qui comprend
une vingtaine d'optionButton et chacun déclenche un Evénement MouseUp.
Le problème c'est que chaque Evénement déclenche à chaque fois la même série
de code et plutot que d'avoir 20 fois la même procédure ....MouseUp n'est il
pas possible d'envoyer directement vers une seule procédure événementielle
et de plus de connaitre une fois dans cette procédure, le nom de
l'optionButton qui l'a déclenché?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Exemple simple:
Module de classe
Public WithEvents GrSaisie As MSForms.OptionButton Private Sub GrSaisie_Click() nomOption = GrSaisie.Name MsgBox nomOption End Sub
Formulaire Dim n Dim Opt(1 To 5) As New ClasseSaisie Private Sub UserForm_Initialize() n =5 For b = 1 To n: Set Opt(b).GrSaisie = Me("OptionButton" & b): Next b End Sub
bonjour à tous, toujours dans mon soucis de simplifier le code j'ai une forme qui comprend une vingtaine d'optionButton et chacun déclenche un Evénement MouseUp.
Le problème c'est que chaque Evénement déclenche à chaque fois la même série de code et plutot que d'avoir 20 fois la même procédure ....MouseUp n' est il pas possible d'envoyer directement vers une seule procédure événemen tielle et de plus de connaitre une fois dans cette procédure, le nom de l'optionButton qui l'a déclenché?
Exemple simple:
Module de classe
Public WithEvents GrSaisie As MSForms.OptionButton
Private Sub GrSaisie_Click()
nomOption = GrSaisie.Name
MsgBox nomOption
End Sub
Formulaire
Dim n
Dim Opt(1 To 5) As New ClasseSaisie
Private Sub UserForm_Initialize()
n =5
For b = 1 To n: Set Opt(b).GrSaisie = Me("OptionButton" & b): Next
b
End Sub
http://cjoint.com/?cDr7iSelpo
JB
http://boisgontierjacques.free.fr/
On 29 fév, 17:15, "Xavier powaga" <Xavierpow...@free.fr> wrote:
bonjour à tous,
toujours dans mon soucis de simplifier le code j'ai une forme qui comprend
une vingtaine d'optionButton et chacun déclenche un Evénement MouseUp.
Le problème c'est que chaque Evénement déclenche à chaque fois la même série
de code et plutot que d'avoir 20 fois la même procédure ....MouseUp n' est il
pas possible d'envoyer directement vers une seule procédure événemen tielle
et de plus de connaitre une fois dans cette procédure, le nom de
l'optionButton qui l'a déclenché?
Public WithEvents GrSaisie As MSForms.OptionButton Private Sub GrSaisie_Click() nomOption = GrSaisie.Name MsgBox nomOption End Sub
Formulaire Dim n Dim Opt(1 To 5) As New ClasseSaisie Private Sub UserForm_Initialize() n =5 For b = 1 To n: Set Opt(b).GrSaisie = Me("OptionButton" & b): Next b End Sub
bonjour à tous, toujours dans mon soucis de simplifier le code j'ai une forme qui comprend une vingtaine d'optionButton et chacun déclenche un Evénement MouseUp.
Le problème c'est que chaque Evénement déclenche à chaque fois la même série de code et plutot que d'avoir 20 fois la même procédure ....MouseUp n' est il pas possible d'envoyer directement vers une seule procédure événemen tielle et de plus de connaitre une fois dans cette procédure, le nom de l'optionButton qui l'a déclenché?
Xavier powaga
Ca marche au poil merci "JB" a écrit dans le message de news:
Exemple simple:
Module de classe
Public WithEvents GrSaisie As MSForms.OptionButton Private Sub GrSaisie_Click() nomOption = GrSaisie.Name MsgBox nomOption End Sub
Formulaire Dim n Dim Opt(1 To 5) As New ClasseSaisie Private Sub UserForm_Initialize() n =5 For b = 1 To n: Set Opt(b).GrSaisie = Me("OptionButton" & b): Next b End Sub
bonjour à tous, toujours dans mon soucis de simplifier le code j'ai une forme qui comprend une vingtaine d'optionButton et chacun déclenche un Evénement MouseUp.
Le problème c'est que chaque Evénement déclenche à chaque fois la même série de code et plutot que d'avoir 20 fois la même procédure ....MouseUp n'est il pas possible d'envoyer directement vers une seule procédure événementielle et de plus de connaitre une fois dans cette procédure, le nom de l'optionButton qui l'a déclenché?
Ca marche au poil merci
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
c91415dc-a650-4b1d-894f-0e51cd09470e@n75g2000hsh.googlegroups.com...
Exemple simple:
Module de classe
Public WithEvents GrSaisie As MSForms.OptionButton
Private Sub GrSaisie_Click()
nomOption = GrSaisie.Name
MsgBox nomOption
End Sub
Formulaire
Dim n
Dim Opt(1 To 5) As New ClasseSaisie
Private Sub UserForm_Initialize()
n =5
For b = 1 To n: Set Opt(b).GrSaisie = Me("OptionButton" & b): Next
b
End Sub
http://cjoint.com/?cDr7iSelpo
JB
http://boisgontierjacques.free.fr/
On 29 fév, 17:15, "Xavier powaga" <Xavierpow...@free.fr> wrote:
bonjour à tous,
toujours dans mon soucis de simplifier le code j'ai une forme qui comprend
une vingtaine d'optionButton et chacun déclenche un Evénement MouseUp.
Le problème c'est que chaque Evénement déclenche à chaque fois la même
série
de code et plutot que d'avoir 20 fois la même procédure ....MouseUp n'est
il
pas possible d'envoyer directement vers une seule procédure événementielle
et de plus de connaitre une fois dans cette procédure, le nom de
l'optionButton qui l'a déclenché?
Ca marche au poil merci "JB" a écrit dans le message de news:
Exemple simple:
Module de classe
Public WithEvents GrSaisie As MSForms.OptionButton Private Sub GrSaisie_Click() nomOption = GrSaisie.Name MsgBox nomOption End Sub
Formulaire Dim n Dim Opt(1 To 5) As New ClasseSaisie Private Sub UserForm_Initialize() n =5 For b = 1 To n: Set Opt(b).GrSaisie = Me("OptionButton" & b): Next b End Sub
bonjour à tous, toujours dans mon soucis de simplifier le code j'ai une forme qui comprend une vingtaine d'optionButton et chacun déclenche un Evénement MouseUp.
Le problème c'est que chaque Evénement déclenche à chaque fois la même série de code et plutot que d'avoir 20 fois la même procédure ....MouseUp n'est il pas possible d'envoyer directement vers une seule procédure événementielle et de plus de connaitre une fois dans cette procédure, le nom de l'optionButton qui l'a déclenché?