Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Imprimer la feuille ou le graphique?

Imprimer la feuille ou le graphique?

2 réponses
Avatar
René Delcourt
Bonjour à tous,
J'ai une feuille avec des données et un graphique.
Si l'utilisateur clique sur imprimer ou aperçu, un message propose
d'imprimer le graphique ou les données.
Il manque quelque chose dans le code suivant, mais quoi?
Merci d'épargner les quelques cheveux qu'il me reste.
---------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("F4").End(xlDown).Select
Zoneimpr = "a4:" & Selection.Address
ActiveSheet.PageSetup.PrintArea = Zoneimpr
Dim RepImp As Integer
RepImp = MsgBox("Graphique uniquement?", vbYesNo)
If RepImp = 6 Then
ActiveSheet.ChartObjects("Graphique 2").Select
End If
end sub
--
René Delcourt
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
docm
Bonjour.

Ca semble embêter Excel de tenter de modifier dans l'événement
Workbook_BeforePrint ce qu'il doit imprimer.
Je te suggère plutôt d'ajouter un bouton de commande et de donner le choix
d'imprimer la feuille ou le graphique dans l'événement CommandButton1_Click.

docm (qui ne fête pas le Canada :)

"René Delcourt" a écrit dans le message news:

Bonjour à tous,
J'ai une feuille avec des données et un graphique.
Si l'utilisateur clique sur imprimer ou aperçu, un message propose
d'imprimer le graphique ou les données.
Il manque quelque chose dans le code suivant, mais quoi?
Merci d'épargner les quelques cheveux qu'il me reste.
---------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("F4").End(xlDown).Select
Zoneimpr = "a4:" & Selection.Address
ActiveSheet.PageSetup.PrintArea = Zoneimpr
Dim RepImp As Integer
RepImp = MsgBox("Graphique uniquement?", vbYesNo)
If RepImp = 6 Then
ActiveSheet.ChartObjects("Graphique 2").Select
End If
end sub
--
René Delcourt


Avatar
docm
Correction. Il suffit d'annuler la présente impression et d'en appeler une
autre.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
RepImp = MsgBox("Graphique uniquement?", vbYesNo)
If RepImp = 6 Then
Imprimer_Graphique
Cancel = True
End If

End Sub

Sub Imprimer_Graphique()
Application.EnableEvents = False
ActiveSheet.ChartObjects("Chart 2").Activate
ActiveChart.ChartArea.Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Application.EnableEvents = True
End Sub



"docm" a écrit dans le message news:
##
Bonjour.

Ca semble embêter Excel de tenter de modifier dans l'événement
Workbook_BeforePrint ce qu'il doit imprimer.
Je te suggère plutôt d'ajouter un bouton de commande et de donner le choix
d'imprimer la feuille ou le graphique dans l'événement
CommandButton1_Click.


docm (qui ne fête pas le Canada :)

"René Delcourt" a écrit dans le message news:

Bonjour à tous,
J'ai une feuille avec des données et un graphique.
Si l'utilisateur clique sur imprimer ou aperçu, un message propose
d'imprimer le graphique ou les données.
Il manque quelque chose dans le code suivant, mais quoi?
Merci d'épargner les quelques cheveux qu'il me reste.
---------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("F4").End(xlDown).Select
Zoneimpr = "a4:" & Selection.Address
ActiveSheet.PageSetup.PrintArea = Zoneimpr
Dim RepImp As Integer
RepImp = MsgBox("Graphique uniquement?", vbYesNo)
If RepImp = 6 Then
ActiveSheet.ChartObjects("Graphique 2").Select
End If
end sub
--
René Delcourt