XL 2021 Une macro pour plusieurs togglebutton (Userform)

[sourcier09]

Bonjour,
j'ai un Userform avec 12 ToggleButton.

Ils sont nommés ToggleButton2026, ToggleButton2027, ToggleButton2028...etc.
Ils ont tous la même macro.

J'aimerai remplacer tout ceci pour n'avoir qu'une seule macro se rattachant aux ToggleButton.
Est-ce possible de faire par exemple avec une variable "x" à la place des années et si oui, comment?

ex : ToggleButton(x)
Ma macro.

 

[wDog66]

Bonjour sourcier09

Dans cette situation, il faut utiliser un module de classe et Events
Vous avez des tutos sur le sujet

A+

 

[sourcier09]

Merci,

Je me doutais bien que je devais passer par les classes. Ta réponse ne m'aide pas beaucoup mais elle a le mérite d'orienter dans le domaine.

 

[cathodique]

Merci,

Je me doutais bien que je devais passer par les classes. Ta réponse ne m'aide pas beaucoup mais elle a le mérite d'orienter dans le domaine.

peux-tu mettre ta macro entre les balises </>

 

[sourcier09]

Bonjour cathodique.

Voici la macro toute simple:

Private Sub ToggleButton2026_Click()
Unload UserForm3
Workbooks.Open ThisWorkbook.Path & ("\Decompte Banque 2026.xlsm")
End Sub

Private Sub ToggleButton2027_Click()
Unload UserForm3
Workbooks.Open ThisWorkbook.Path & ("\Decompte Banque 2027.xlsm")
End Sub

Private Sub ToggleButton2028_Click()
Unload UserForm3
Workbooks.Open ThisWorkbook.Path & ("\Decompte Banque 2028.xlsm")
End Sub

Private Sub ToggleButton2029_Click()
Unload UserForm3
Workbooks.Open ThisWorkbook.Path & ("\Decompte Banque 2029.xlsm")
End Sub

Private Sub ToggleButton2030_Click()
Unload UserForm3
Workbooks.Open ThisWorkbook.Path & ("\Decompte Banque 2030.xlsm")
End Sub

Private Sub ToggleButton2031_Click()
Unload UserForm3
Workbooks.Open ThisWorkbook.Path & ("\Decompte Banque 2031.xlsm")
End Sub

Private Sub ToggleButton2032_Click()
Unload UserForm3
Workbooks.Open ThisWorkbook.Path & ("\Decompte Banque 2032.xlsm")
End Sub

...etc

Pour les fichiers, je remplacerai l'année par ME.activecontrol.caption
ce qui donnerait :

Workbooks.Open ThisWorkbook.Path & ("\Decompte Banque " & ME.ActiveControl.caption & ".xlsm")

 

[cathodique]

Bonjour cathodique.

Voici la macro toute simple:

Private Sub ToggleButton2026_Click()
Unload UserForm3
Workbooks.Open ThisWorkbook.Path & ("\Decompte Banque 2026.xlsm")
End Sub

Private Sub ToggleButton2027_Click()
Unload UserForm3
Workbooks.Open ThisWorkbook.Path & ("\Decompte Banque 2027.xlsm")
End Sub

Private Sub ToggleButton2028_Click()
Unload UserForm3
Workbooks.Open ThisWorkbook.Path & ("\Decompte Banque 2028.xlsm")
End Sub

Private Sub ToggleButton2029_Click()
Unload UserForm3
Workbooks.Open ThisWorkbook.Path & ("\Decompte Banque 2029.xlsm")
End Sub

Private Sub ToggleButton2030_Click()
Unload UserForm3
Workbooks.Open ThisWorkbook.Path & ("\Decompte Banque 2030.xlsm")
End Sub

Private Sub ToggleButton2031_Click()
Unload UserForm3
Workbooks.Open ThisWorkbook.Path & ("\Decompte Banque 2031.xlsm")
End Sub

Private Sub ToggleButton2032_Click()
Unload UserForm3
Workbooks.Open ThisWorkbook.Path & ("\Decompte Banque 2032.xlsm")
End Sub

...etc

Un ToggleButton a 2 états. Je ne comprends trop son utilité plus que dans code il n'y a rien pour le seconde clic.

un commandButton suffit amplement.

 

[cathodique]

Peux-tu joindre un fichier avec des données anonymisées?

 

[sourcier09]

Merci cathodique.

Je vais remplacer les toggle par command. Ce n'est pas un souci.
Mon souci est que je n'y connais rien en module de classe et events comme m'oriente wDogg66.

Ci-joint, le fichier. Ne pas prêter attention à la feuille. C'est l'UserForm qui sera utilisé.

 

[Phil69970]

Bonjour à tous

Avec ce que je comprends application.caller devrait faire affaire et remplacer les ToggleButton.
Avec un fichier c'est plus parlant

 

[sylvanu]

Bonjour tout le monde,
( franchement à labour, mais puisque c'est fait 🙁)
Un exemple en PJ avec un module de classe.

 

[Dranreb]

Bonjour.
Ma proposition.

 

[sourcier09]

Merci sylvanu

Je regarderai ton fichier.

 

[cathodique]

@sylvanu 😉

@sourcier09 : j'avais ceci pour pdf, adapté au xlsm

 

[sourcier09]

Merci à Sylvanu et aux autres.
J'ai grandement apprécié "Go"