Code VBA "bouton d'action" sur excel 2010
Fermé
qbruneau
Messages postés
2
Date d'inscription
dimanche 2 juin 2013
Statut
Membre
Dernière intervention
3 juin 2013
-
2 juin 2013 à 20:58
qbruneau Messages postés 2 Date d'inscription dimanche 2 juin 2013 Statut Membre Dernière intervention 3 juin 2013 - 3 juin 2013 à 18:37
qbruneau Messages postés 2 Date d'inscription dimanche 2 juin 2013 Statut Membre Dernière intervention 3 juin 2013 - 3 juin 2013 à 18:37
Bonjour,
Je souhaiterai que quelqu'un m'aide car mon boss me demande de créer un bouton d'action sur chaque feuille d'un doc excel pour imprimer les feuilles en cliquant dessus.
Si quelqu'un peut m'indiquer le code vba correspondant j'ai oublié ce que je savais faire sur visual basic .
merci d'avance
:)
Je souhaiterai que quelqu'un m'aide car mon boss me demande de créer un bouton d'action sur chaque feuille d'un doc excel pour imprimer les feuilles en cliquant dessus.
Si quelqu'un peut m'indiquer le code vba correspondant j'ai oublié ce que je savais faire sur visual basic .
merci d'avance
:)
A voir également:
- Code VBA "bouton d'action" sur excel 2010
- Action - Guide
- Liste déroulante excel - Guide
- Télécharger film d'action gratuitement et rapidement - Télécharger - TV & Vidéo
- Comment calculer la moyenne sur excel - Guide
- Code puk bloqué - Guide
3 réponses
RachelMartel
Messages postés
435
Date d'inscription
mardi 14 mai 2013
Statut
Membre
Dernière intervention
24 mars 2021
25
2 juin 2013 à 21:09
2 juin 2013 à 21:09
Tu peux créer ta macro en faisant "enregistrer une macro" et en faisant imprimer. Je l'ai fait et ça me donne :
Sub Bouton4_Cliquer()
'
' Bouton4_Cliquer Macro
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub
Sub Bouton4_Cliquer()
'
' Bouton4_Cliquer Macro
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub
Mike-31
Messages postés
18382
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
2 avril 2025
5 126
2 juin 2013 à 21:22
2 juin 2013 à 21:22
Salut,
tu peux écourter le code comme cela
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
tu peux écourter le code comme cela
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
qbruneau
Messages postés
2
Date d'inscription
dimanche 2 juin 2013
Statut
Membre
Dernière intervention
3 juin 2013
3 juin 2013 à 18:37
3 juin 2013 à 18:37
merci :)