Staple1600
XLDnaute Barbatruc
Bonjour à tous
Situation de départ
Suite à la lecture de ce fil
https://www.excel-downloads.com/threads/envoie-dune-feuille-par-email.78303/
J'ai vu dans le code VBA qu'il y avait 12 boutons pour imprimer 12 feuilles mensuelles
avec 12 macros du type
Sub ImprimerJanvier()
Sheets("Janvier").PrintOut
End Sub
Problème
NB: Cette demande n'est pas liée au problème initial de l'auteur du poste cité
Mon but est de faire une seule macro Impression
qui imprime la feuille du mois selon la caption du Button
Voila ou j'en suis
J'essaie de créer un module de classe
mais je ne sais pas la bonne syntaxe
'dans le module de classe
J'ai sous la main un exemple de module de classe mais qui
s'applique sur des commandbutton d'un userform
et je n'arrive pas à l'adapter pour le cas de boutons (issus de la BO Formulaires)
Merci à l'avance pour l'aide que vous m'apporterez.
Staple
Situation de départ
Suite à la lecture de ce fil
https://www.excel-downloads.com/threads/envoie-dune-feuille-par-email.78303/
J'ai vu dans le code VBA qu'il y avait 12 boutons pour imprimer 12 feuilles mensuelles
avec 12 macros du type
Sub ImprimerJanvier()
Sheets("Janvier").PrintOut
End Sub
Problème
NB: Cette demande n'est pas liée au problème initial de l'auteur du poste cité
Mon but est de faire une seule macro Impression
qui imprime la feuille du mois selon la caption du Button
Voila ou j'en suis
Code:
Dim X As String
Dim mois As Variant
For Each obj In Sheets("KILOMETRAGE").DrawingObjects
If TypeName(obj) Like "Button*" And obj.Characters.Text Like "Imprimer*" Then
X = Application.Trim(StrReverse(Right(obj.Characters.Text, Len(obj.Characters.Text) - 8)))
mois = StrReverse(X)
MsgBox mois
J'essaie de créer un module de classe
mais je ne sais pas la bonne syntaxe
'dans le module de classe
Code:
Public WithEvents ButtonGroup As [B]Shapes[/B]
[B]ou As DrawingObjects[/B]
[B]ou As MSForm.CommandButton[/B]
Private Sub ButtonGroup_Click()
MsgBox "Bouton cliqué =" & ButtonGroup.Name
End Sub
J'ai sous la main un exemple de module de classe mais qui
s'applique sur des commandbutton d'un userform
et je n'arrive pas à l'adapter pour le cas de boutons (issus de la BO Formulaires)
Merci à l'avance pour l'aide que vous m'apporterez.
Staple
Dernière édition: