Partager des boutons de commande entre feuilles vba

[Sly le globe trotter]

Bonjour le forum,

Je me retrouve confronter à un petit problème que je pensais simple à résoudre mais mes compétences me bloquent...

Dans un fichier Excel, je dispose de trois feuilles :
- 1 feuille de gestion
- 2 feuilles de plannings

Dans chacune des feuilles de plannings, j'ai crée un bouton de commande

Private Sub CommandButton1_Click()
...
End sub
[/CODE
avec un code me permettant de mettre à jour les plannings.

Je cherche à éxécuter ces codes mais depuis ma feuille de gestion... Pour résumer, comment d'une feuille A lancer l'éxécution du code correspondant à un bouton d'une feuille B ???

Merci pour votre aide
Sylvain

 

[sousou]

Re : Partager des boutons de commande entre feuilles vba

Bonjour sylvain
Le plus facile est de déplacer tes code dans une feuille module
sub traitement1()
..
end sub
sub traitement2()
...
end sub

dans tes feuilles planings
Private Sub CommandButton1_Click()
traitement1 'ou' traitement2
end sub
dans ta feuille gestion
Private Sub CommandButton1_Click()
traitement1 ou traiement2
end sub

 

[Robert]

Re : Partager des boutons de commande entre feuilles vba

Bonjour Sly, bonjour le forum,

Tu pourrais, par exemple, écrire le code à exécuter non pas dans l'événement Click du bouton mais dans une procédure du module1. Ensuite tu fais appel à cette procédure de n'importe quel bouton.

Ex : Module1

Sub Macro1()
'ton code
End Sub

puis sur un bouton de la même feuille :

Private Sub CommandButton1_Click() 'bouton en feuil1
Module1.Macro1
End Sub

Sur un bouton d'une autre feuille :

Private Sub CommandButton1_Click()
Sheets("Feuil1").Activate
Module1.Macro1
End Sub

Édition :

Ooups Bonjour Sousou on s'est croisés

 

[Sly le globe trotter]

Re : Partager des boutons de commande entre feuilles vba

Bonjour Sousou, Robert,

Je pensais bien en venir là mais je me disais qu'on pouvait peut être contourner le problème.
Merci pour votre aide, je vais suivre vos conseils 😉

Bonne continuation