Bonsoir Francis,
Toutes mes excuses pour avoir laissé ce post en l’état…
Depuis le temps…
Je reviens donc dessus pour en finir avec cette question.
Je rappelle la question posée :
Comment relier un bouton Active X identique sur plusieurs onglets à une seule macro?
– Au début, j’avais copié-collé la même macro sur toutes les feuilles VBA.
Mais pour chaque modif. ou amélioration du code, je devais refaire la même manip pour
toutes les feuilles…
– Après votre réponse quant à la possibilité de le faire, j’ai trouvé une solution
alternative :
Recopier une commande simple dans chaque feuille VBA appelant la macro dans le Module1 où
se trouvait le code à exécuter, ce qui donne :
* Sheet :
`Private Sub ViderCellules_Click()
‘ VIDER_CELLULES Macro
‘Call ViderCellules
ViderCellulesModule
End Sub`
* Module1 :
`Sub ViderCellulesModule()
‘ VIDER_CELLULES Macro
Range(“C7:D10,F7:G10,C13:D14,F13:G14,C16:D23,F16:G23,C25:D30,F25:G30,C32:D35,F32:G35,C38:D39,F38:G39,C41:D42,F41:G42,C44:D45,F44:G45,C47:D50,F47:G50,C52:D56,F52:G55”).Select
Selection.ClearContents
ActiveSheet.Next.Select
Range(“B7:C34”).Select
Selection.ClearContents
Range(“C34”).Select
ActiveSheet.Previous.Select
Range(“D7”).Select
End Sub`
Cette méthode fonctionne parfaitement, mais je me rends compte que si toutes mes feuilles sont déjà créées et que je décide d’ajouter ce bouton sur chacune d’entre elles, cela devient très long à faire.
Y-a-t’il une solution qui joigne directement le bouton de chaque feuille à la macro du Module1 plutôt que de passer par l’intermédiaire de chaque “sheet”?
Merci à vous Francis.
Philgood.001.
, le il y a 6 années et 9 mois.
