J'ai sur une feuille la possibilite d'avoir 2 graphiques differents Graph1
ou Graph2
Comment puis je tester lequelle des 2 est present sur la feuille pour
pouvoir l'imprimer
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
isabelle
bonjour Rémi,
For Each gph In ActiveSheet.ChartObjects MsgBox gph.Name Next
isabelle
IMER09 a écrit :
Bonsoir a tous
J'ai sur une feuille la possibilite d'avoir 2 graphiques differents Graph1 ou Graph2 Comment puis je tester lequelle des 2 est present sur la feuille pour pouvoir l'imprimer
Merci
Rémi
bonjour Rémi,
For Each gph In ActiveSheet.ChartObjects
MsgBox gph.Name
Next
isabelle
IMER09 a écrit :
Bonsoir a tous
J'ai sur une feuille la possibilite d'avoir 2 graphiques differents Graph1
ou Graph2
Comment puis je tester lequelle des 2 est present sur la feuille pour
pouvoir l'imprimer
For Each gph In ActiveSheet.ChartObjects MsgBox gph.Name Next
isabelle
IMER09 a écrit :
Bonsoir a tous
J'ai sur une feuille la possibilite d'avoir 2 graphiques differents Graph1 ou Graph2 Comment puis je tester lequelle des 2 est present sur la feuille pour pouvoir l'imprimer
Merci
Rémi
IMER09
Merci Isabelle
Mais Je n'arrrive pas a imprimer l'objet selectionné. J'ai fait ce qui suit:
Private Sub CommandButton1_Click() If ComboBox1.Value <> "" And CheckBox1 = True Then For Each gph In ActiveSheet.ChartObjects Range("AB1") = gph.Name ActiveSheet.ChartObjects(Range("AB1")).Select ActiveChart.PrintOut Copies:=ComboBox1.Value Next
Sur mon imprimante j'ai 2 bacs, avec ce code l'impression va vers le bac que j'utilise pour mes enveloppes donc pas bien marche Je ne pige pas mais j'ai le sentiment (pour ne pas dire l'impression) que c'est ActiveChart qui me fait cela !!!!
Quand je fait ce qui suit sur la meme feuille:
Private Sub CommandButton1_Click() If ComboBox1.Value <> "" And CheckBox1 = False Then Range("A1:K1").Select ActiveSheet.PageSetup.PrintArea = "$A$1:$K" & Range("G65536").End(xlUp).Row ActiveWindow.SelectedSheets.PrintOut Copies:=ComboBox1.Value
Je n'est pas le PB tout est OK,l'impression va vers le bac A4
Merci
Rémi
"isabelle" a écrit dans le message de news: %
bonjour Rémi,
For Each gph In ActiveSheet.ChartObjects MsgBox gph.Name Next
isabelle
IMER09 a écrit :
Bonsoir a tous
J'ai sur une feuille la possibilite d'avoir 2 graphiques differents Graph1 ou Graph2 Comment puis je tester lequelle des 2 est present sur la feuille pour pouvoir l'imprimer
Merci
Rémi
Merci Isabelle
Mais Je n'arrrive pas a imprimer l'objet selectionné.
J'ai fait ce qui suit:
Private Sub CommandButton1_Click()
If ComboBox1.Value <> "" And CheckBox1 = True Then
For Each gph In ActiveSheet.ChartObjects
Range("AB1") = gph.Name
ActiveSheet.ChartObjects(Range("AB1")).Select
ActiveChart.PrintOut Copies:=ComboBox1.Value
Next
Sur mon imprimante j'ai 2 bacs, avec ce code l'impression va vers le bac que
j'utilise pour mes enveloppes donc pas bien marche
Je ne pige pas mais j'ai le sentiment (pour ne pas dire l'impression) que
c'est ActiveChart qui me fait cela !!!!
Quand je fait ce qui suit sur la meme feuille:
Private Sub CommandButton1_Click()
If ComboBox1.Value <> "" And CheckBox1 = False Then
Range("A1:K1").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$K" &
Range("G65536").End(xlUp).Row
ActiveWindow.SelectedSheets.PrintOut Copies:=ComboBox1.Value
Je n'est pas le PB tout est OK,l'impression va vers le bac A4
Merci
Rémi
"isabelle" <i@v> a écrit dans le message de news:
%23yFy1GC2JHA.140@TK2MSFTNGP03.phx.gbl...
bonjour Rémi,
For Each gph In ActiveSheet.ChartObjects
MsgBox gph.Name
Next
isabelle
IMER09 a écrit :
Bonsoir a tous
J'ai sur une feuille la possibilite d'avoir 2 graphiques differents
Graph1 ou Graph2
Comment puis je tester lequelle des 2 est present sur la feuille pour
pouvoir l'imprimer
Mais Je n'arrrive pas a imprimer l'objet selectionné. J'ai fait ce qui suit:
Private Sub CommandButton1_Click() If ComboBox1.Value <> "" And CheckBox1 = True Then For Each gph In ActiveSheet.ChartObjects Range("AB1") = gph.Name ActiveSheet.ChartObjects(Range("AB1")).Select ActiveChart.PrintOut Copies:=ComboBox1.Value Next
Sur mon imprimante j'ai 2 bacs, avec ce code l'impression va vers le bac que j'utilise pour mes enveloppes donc pas bien marche Je ne pige pas mais j'ai le sentiment (pour ne pas dire l'impression) que c'est ActiveChart qui me fait cela !!!!
Quand je fait ce qui suit sur la meme feuille:
Private Sub CommandButton1_Click() If ComboBox1.Value <> "" And CheckBox1 = False Then Range("A1:K1").Select ActiveSheet.PageSetup.PrintArea = "$A$1:$K" & Range("G65536").End(xlUp).Row ActiveWindow.SelectedSheets.PrintOut Copies:=ComboBox1.Value
Je n'est pas le PB tout est OK,l'impression va vers le bac A4
Merci
Rémi
"isabelle" a écrit dans le message de news: %
bonjour Rémi,
For Each gph In ActiveSheet.ChartObjects MsgBox gph.Name Next
isabelle
IMER09 a écrit :
Bonsoir a tous
J'ai sur une feuille la possibilite d'avoir 2 graphiques differents Graph1 ou Graph2 Comment puis je tester lequelle des 2 est present sur la feuille pour pouvoir l'imprimer
Merci
Rémi
isabelle
bonjour Rémi,
For Each gph In ActiveSheet.ChartObjects gph.PrintObject = True gph.Chart.PrintOut Next
isabelle
IMER09 a écrit :
Merci Isabelle
Mais Je n'arrrive pas a imprimer l'objet selectionné. J'ai fait ce qui suit:
Private Sub CommandButton1_Click() If ComboBox1.Value <> "" And CheckBox1 = True Then For Each gph In ActiveSheet.ChartObjects Range("AB1") = gph.Name ActiveSheet.ChartObjects(Range("AB1")).Select ActiveChart.PrintOut Copies:=ComboBox1.Value Next
Sur mon imprimante j'ai 2 bacs, avec ce code l'impression va vers le bac que j'utilise pour mes enveloppes donc pas bien marche Je ne pige pas mais j'ai le sentiment (pour ne pas dire l'impression) que c'est ActiveChart qui me fait cela !!!!
Quand je fait ce qui suit sur la meme feuille:
Private Sub CommandButton1_Click() If ComboBox1.Value <> "" And CheckBox1 = False Then Range("A1:K1").Select ActiveSheet.PageSetup.PrintArea = "$A$1:$K" & Range("G65536").End(xlUp).Row ActiveWindow.SelectedSheets.PrintOut Copies:=ComboBox1.Value
Je n'est pas le PB tout est OK,l'impression va vers le bac A4
Merci
Rémi
"isabelle" a écrit dans le message de news: %
bonjour Rémi,
For Each gph In ActiveSheet.ChartObjects MsgBox gph.Name Next
isabelle
IMER09 a écrit :
Bonsoir a tous
J'ai sur une feuille la possibilite d'avoir 2 graphiques differents Graph1 ou Graph2 Comment puis je tester lequelle des 2 est present sur la feuille pour pouvoir l'imprimer
Merci
Rémi
bonjour Rémi,
For Each gph In ActiveSheet.ChartObjects
gph.PrintObject = True
gph.Chart.PrintOut
Next
isabelle
IMER09 a écrit :
Merci Isabelle
Mais Je n'arrrive pas a imprimer l'objet selectionné.
J'ai fait ce qui suit:
Private Sub CommandButton1_Click()
If ComboBox1.Value <> "" And CheckBox1 = True Then
For Each gph In ActiveSheet.ChartObjects
Range("AB1") = gph.Name
ActiveSheet.ChartObjects(Range("AB1")).Select
ActiveChart.PrintOut Copies:=ComboBox1.Value
Next
Sur mon imprimante j'ai 2 bacs, avec ce code l'impression va vers le bac que
j'utilise pour mes enveloppes donc pas bien marche
Je ne pige pas mais j'ai le sentiment (pour ne pas dire l'impression) que
c'est ActiveChart qui me fait cela !!!!
Quand je fait ce qui suit sur la meme feuille:
Private Sub CommandButton1_Click()
If ComboBox1.Value <> "" And CheckBox1 = False Then
Range("A1:K1").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$K" &
Range("G65536").End(xlUp).Row
ActiveWindow.SelectedSheets.PrintOut Copies:=ComboBox1.Value
Je n'est pas le PB tout est OK,l'impression va vers le bac A4
Merci
Rémi
"isabelle" <i@v> a écrit dans le message de news:
%23yFy1GC2JHA.140@TK2MSFTNGP03.phx.gbl...
bonjour Rémi,
For Each gph In ActiveSheet.ChartObjects
MsgBox gph.Name
Next
isabelle
IMER09 a écrit :
Bonsoir a tous
J'ai sur une feuille la possibilite d'avoir 2 graphiques differents
Graph1 ou Graph2
Comment puis je tester lequelle des 2 est present sur la feuille pour
pouvoir l'imprimer
For Each gph In ActiveSheet.ChartObjects gph.PrintObject = True gph.Chart.PrintOut Next
isabelle
IMER09 a écrit :
Merci Isabelle
Mais Je n'arrrive pas a imprimer l'objet selectionné. J'ai fait ce qui suit:
Private Sub CommandButton1_Click() If ComboBox1.Value <> "" And CheckBox1 = True Then For Each gph In ActiveSheet.ChartObjects Range("AB1") = gph.Name ActiveSheet.ChartObjects(Range("AB1")).Select ActiveChart.PrintOut Copies:=ComboBox1.Value Next
Sur mon imprimante j'ai 2 bacs, avec ce code l'impression va vers le bac que j'utilise pour mes enveloppes donc pas bien marche Je ne pige pas mais j'ai le sentiment (pour ne pas dire l'impression) que c'est ActiveChart qui me fait cela !!!!
Quand je fait ce qui suit sur la meme feuille:
Private Sub CommandButton1_Click() If ComboBox1.Value <> "" And CheckBox1 = False Then Range("A1:K1").Select ActiveSheet.PageSetup.PrintArea = "$A$1:$K" & Range("G65536").End(xlUp).Row ActiveWindow.SelectedSheets.PrintOut Copies:=ComboBox1.Value
Je n'est pas le PB tout est OK,l'impression va vers le bac A4
Merci
Rémi
"isabelle" a écrit dans le message de news: %
bonjour Rémi,
For Each gph In ActiveSheet.ChartObjects MsgBox gph.Name Next
isabelle
IMER09 a écrit :
Bonsoir a tous
J'ai sur une feuille la possibilite d'avoir 2 graphiques differents Graph1 ou Graph2 Comment puis je tester lequelle des 2 est present sur la feuille pour pouvoir l'imprimer
Merci
Rémi
isabelle
ps/
si les objets ComboBox1 et CheckBox1 sont sur la feuille il faut indiquer cette feuille
With ActiveSheet If .ComboBox1.Value <> "" And .CheckBox1 = True Then For Each gph In .ChartObjects .Range("AB1") = gph.Name gph.PrintObject = True gph.Chart.PrintOut Copies:=.ComboBox1.Value Next End If End With
isabelle
isabelle a écrit :
bonjour Rémi,
For Each gph In ActiveSheet.ChartObjects gph.PrintObject = True gph.Chart.PrintOut Next
isabelle
IMER09 a écrit :
Merci Isabelle
Mais Je n'arrrive pas a imprimer l'objet selectionné. J'ai fait ce qui suit:
Private Sub CommandButton1_Click() If ComboBox1.Value <> "" And CheckBox1 = True Then For Each gph In ActiveSheet.ChartObjects Range("AB1") = gph.Name ActiveSheet.ChartObjects(Range("AB1")).Select ActiveChart.PrintOut Copies:=ComboBox1.Value Next
Sur mon imprimante j'ai 2 bacs, avec ce code l'impression va vers le bac que j'utilise pour mes enveloppes donc pas bien marche Je ne pige pas mais j'ai le sentiment (pour ne pas dire l'impression) que c'est ActiveChart qui me fait cela !!!!
Quand je fait ce qui suit sur la meme feuille:
Private Sub CommandButton1_Click() If ComboBox1.Value <> "" And CheckBox1 = False Then Range("A1:K1").Select ActiveSheet.PageSetup.PrintArea = "$A$1:$K" & Range("G65536").End(xlUp).Row ActiveWindow.SelectedSheets.PrintOut Copies:=ComboBox1.Value
Je n'est pas le PB tout est OK,l'impression va vers le bac A4
Merci
Rémi
"isabelle" a écrit dans le message de news: %
bonjour Rémi,
For Each gph In ActiveSheet.ChartObjects MsgBox gph.Name Next
isabelle
IMER09 a écrit :
Bonsoir a tous
J'ai sur une feuille la possibilite d'avoir 2 graphiques differents Graph1 ou Graph2 Comment puis je tester lequelle des 2 est present sur la feuille pour pouvoir l'imprimer
Merci
Rémi
ps/
si les objets ComboBox1 et CheckBox1 sont sur la feuille il faut
indiquer cette feuille
With ActiveSheet
If .ComboBox1.Value <> "" And .CheckBox1 = True Then
For Each gph In .ChartObjects
.Range("AB1") = gph.Name
gph.PrintObject = True
gph.Chart.PrintOut Copies:=.ComboBox1.Value
Next
End If
End With
isabelle
isabelle a écrit :
bonjour Rémi,
For Each gph In ActiveSheet.ChartObjects
gph.PrintObject = True
gph.Chart.PrintOut
Next
isabelle
IMER09 a écrit :
Merci Isabelle
Mais Je n'arrrive pas a imprimer l'objet selectionné.
J'ai fait ce qui suit:
Private Sub CommandButton1_Click()
If ComboBox1.Value <> "" And CheckBox1 = True Then
For Each gph In ActiveSheet.ChartObjects
Range("AB1") = gph.Name
ActiveSheet.ChartObjects(Range("AB1")).Select
ActiveChart.PrintOut Copies:=ComboBox1.Value
Next
Sur mon imprimante j'ai 2 bacs, avec ce code l'impression va vers le
bac que j'utilise pour mes enveloppes donc pas bien marche
Je ne pige pas mais j'ai le sentiment (pour ne pas dire l'impression)
que c'est ActiveChart qui me fait cela !!!!
Quand je fait ce qui suit sur la meme feuille:
Private Sub CommandButton1_Click()
If ComboBox1.Value <> "" And CheckBox1 = False Then
Range("A1:K1").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$K" &
Range("G65536").End(xlUp).Row
ActiveWindow.SelectedSheets.PrintOut Copies:=ComboBox1.Value
Je n'est pas le PB tout est OK,l'impression va vers le bac A4
Merci
Rémi
"isabelle" <i@v> a écrit dans le message de news:
%23yFy1GC2JHA.140@TK2MSFTNGP03.phx.gbl...
bonjour Rémi,
For Each gph In ActiveSheet.ChartObjects
MsgBox gph.Name
Next
isabelle
IMER09 a écrit :
Bonsoir a tous
J'ai sur une feuille la possibilite d'avoir 2 graphiques differents
Graph1 ou Graph2
Comment puis je tester lequelle des 2 est present sur la feuille
pour pouvoir l'imprimer
si les objets ComboBox1 et CheckBox1 sont sur la feuille il faut indiquer cette feuille
With ActiveSheet If .ComboBox1.Value <> "" And .CheckBox1 = True Then For Each gph In .ChartObjects .Range("AB1") = gph.Name gph.PrintObject = True gph.Chart.PrintOut Copies:=.ComboBox1.Value Next End If End With
isabelle
isabelle a écrit :
bonjour Rémi,
For Each gph In ActiveSheet.ChartObjects gph.PrintObject = True gph.Chart.PrintOut Next
isabelle
IMER09 a écrit :
Merci Isabelle
Mais Je n'arrrive pas a imprimer l'objet selectionné. J'ai fait ce qui suit:
Private Sub CommandButton1_Click() If ComboBox1.Value <> "" And CheckBox1 = True Then For Each gph In ActiveSheet.ChartObjects Range("AB1") = gph.Name ActiveSheet.ChartObjects(Range("AB1")).Select ActiveChart.PrintOut Copies:=ComboBox1.Value Next
Sur mon imprimante j'ai 2 bacs, avec ce code l'impression va vers le bac que j'utilise pour mes enveloppes donc pas bien marche Je ne pige pas mais j'ai le sentiment (pour ne pas dire l'impression) que c'est ActiveChart qui me fait cela !!!!
Quand je fait ce qui suit sur la meme feuille:
Private Sub CommandButton1_Click() If ComboBox1.Value <> "" And CheckBox1 = False Then Range("A1:K1").Select ActiveSheet.PageSetup.PrintArea = "$A$1:$K" & Range("G65536").End(xlUp).Row ActiveWindow.SelectedSheets.PrintOut Copies:=ComboBox1.Value
Je n'est pas le PB tout est OK,l'impression va vers le bac A4
Merci
Rémi
"isabelle" a écrit dans le message de news: %
bonjour Rémi,
For Each gph In ActiveSheet.ChartObjects MsgBox gph.Name Next
isabelle
IMER09 a écrit :
Bonsoir a tous
J'ai sur une feuille la possibilite d'avoir 2 graphiques differents Graph1 ou Graph2 Comment puis je tester lequelle des 2 est present sur la feuille pour pouvoir l'imprimer
Merci
Rémi
IMER09
Merci Isabelle
Tout est OK Mes Box sont ds un UF, j'ai donc utilise ta premiere reponse
Rémi "isabelle" a écrit dans le message de news:
ps/
si les objets ComboBox1 et CheckBox1 sont sur la feuille il faut indiquer cette feuille
With ActiveSheet If .ComboBox1.Value <> "" And .CheckBox1 = True Then For Each gph In .ChartObjects .Range("AB1") = gph.Name gph.PrintObject = True gph.Chart.PrintOut Copies:=.ComboBox1.Value Next End If End With
isabelle
isabelle a écrit :
bonjour Rémi,
For Each gph In ActiveSheet.ChartObjects gph.PrintObject = True gph.Chart.PrintOut Next
isabelle
IMER09 a écrit :
Merci Isabelle
Mais Je n'arrrive pas a imprimer l'objet selectionné. J'ai fait ce qui suit:
Private Sub CommandButton1_Click() If ComboBox1.Value <> "" And CheckBox1 = True Then For Each gph In ActiveSheet.ChartObjects Range("AB1") = gph.Name ActiveSheet.ChartObjects(Range("AB1")).Select ActiveChart.PrintOut Copies:=ComboBox1.Value Next
Sur mon imprimante j'ai 2 bacs, avec ce code l'impression va vers le bac que j'utilise pour mes enveloppes donc pas bien marche Je ne pige pas mais j'ai le sentiment (pour ne pas dire l'impression) que c'est ActiveChart qui me fait cela !!!!
Quand je fait ce qui suit sur la meme feuille:
Private Sub CommandButton1_Click() If ComboBox1.Value <> "" And CheckBox1 = False Then Range("A1:K1").Select ActiveSheet.PageSetup.PrintArea = "$A$1:$K" & Range("G65536").End(xlUp).Row ActiveWindow.SelectedSheets.PrintOut Copies:=ComboBox1.Value
Je n'est pas le PB tout est OK,l'impression va vers le bac A4
Merci
Rémi
"isabelle" a écrit dans le message de news: %
bonjour Rémi,
For Each gph In ActiveSheet.ChartObjects MsgBox gph.Name Next
isabelle
IMER09 a écrit :
Bonsoir a tous
J'ai sur une feuille la possibilite d'avoir 2 graphiques differents Graph1 ou Graph2 Comment puis je tester lequelle des 2 est present sur la feuille pour pouvoir l'imprimer
Merci
Rémi
Merci Isabelle
Tout est OK Mes Box sont ds un UF, j'ai donc utilise ta premiere reponse
Rémi
"isabelle" <i@v> a écrit dans le message de news:
eXonESH2JHA.3812@TK2MSFTNGP05.phx.gbl...
ps/
si les objets ComboBox1 et CheckBox1 sont sur la feuille il faut indiquer
cette feuille
With ActiveSheet
If .ComboBox1.Value <> "" And .CheckBox1 = True Then
For Each gph In .ChartObjects
.Range("AB1") = gph.Name
gph.PrintObject = True
gph.Chart.PrintOut Copies:=.ComboBox1.Value
Next
End If
End With
isabelle
isabelle a écrit :
bonjour Rémi,
For Each gph In ActiveSheet.ChartObjects
gph.PrintObject = True
gph.Chart.PrintOut
Next
isabelle
IMER09 a écrit :
Merci Isabelle
Mais Je n'arrrive pas a imprimer l'objet selectionné.
J'ai fait ce qui suit:
Private Sub CommandButton1_Click()
If ComboBox1.Value <> "" And CheckBox1 = True Then
For Each gph In ActiveSheet.ChartObjects
Range("AB1") = gph.Name
ActiveSheet.ChartObjects(Range("AB1")).Select
ActiveChart.PrintOut Copies:=ComboBox1.Value
Next
Sur mon imprimante j'ai 2 bacs, avec ce code l'impression va vers le bac
que j'utilise pour mes enveloppes donc pas bien marche
Je ne pige pas mais j'ai le sentiment (pour ne pas dire l'impression)
que c'est ActiveChart qui me fait cela !!!!
Quand je fait ce qui suit sur la meme feuille:
Private Sub CommandButton1_Click()
If ComboBox1.Value <> "" And CheckBox1 = False Then
Range("A1:K1").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$K" &
Range("G65536").End(xlUp).Row
ActiveWindow.SelectedSheets.PrintOut Copies:=ComboBox1.Value
Je n'est pas le PB tout est OK,l'impression va vers le bac A4
Merci
Rémi
"isabelle" <i@v> a écrit dans le message de news:
%23yFy1GC2JHA.140@TK2MSFTNGP03.phx.gbl...
bonjour Rémi,
For Each gph In ActiveSheet.ChartObjects
MsgBox gph.Name
Next
isabelle
IMER09 a écrit :
Bonsoir a tous
J'ai sur une feuille la possibilite d'avoir 2 graphiques differents
Graph1 ou Graph2
Comment puis je tester lequelle des 2 est present sur la feuille pour
pouvoir l'imprimer
Tout est OK Mes Box sont ds un UF, j'ai donc utilise ta premiere reponse
Rémi "isabelle" a écrit dans le message de news:
ps/
si les objets ComboBox1 et CheckBox1 sont sur la feuille il faut indiquer cette feuille
With ActiveSheet If .ComboBox1.Value <> "" And .CheckBox1 = True Then For Each gph In .ChartObjects .Range("AB1") = gph.Name gph.PrintObject = True gph.Chart.PrintOut Copies:=.ComboBox1.Value Next End If End With
isabelle
isabelle a écrit :
bonjour Rémi,
For Each gph In ActiveSheet.ChartObjects gph.PrintObject = True gph.Chart.PrintOut Next
isabelle
IMER09 a écrit :
Merci Isabelle
Mais Je n'arrrive pas a imprimer l'objet selectionné. J'ai fait ce qui suit:
Private Sub CommandButton1_Click() If ComboBox1.Value <> "" And CheckBox1 = True Then For Each gph In ActiveSheet.ChartObjects Range("AB1") = gph.Name ActiveSheet.ChartObjects(Range("AB1")).Select ActiveChart.PrintOut Copies:=ComboBox1.Value Next
Sur mon imprimante j'ai 2 bacs, avec ce code l'impression va vers le bac que j'utilise pour mes enveloppes donc pas bien marche Je ne pige pas mais j'ai le sentiment (pour ne pas dire l'impression) que c'est ActiveChart qui me fait cela !!!!
Quand je fait ce qui suit sur la meme feuille:
Private Sub CommandButton1_Click() If ComboBox1.Value <> "" And CheckBox1 = False Then Range("A1:K1").Select ActiveSheet.PageSetup.PrintArea = "$A$1:$K" & Range("G65536").End(xlUp).Row ActiveWindow.SelectedSheets.PrintOut Copies:=ComboBox1.Value
Je n'est pas le PB tout est OK,l'impression va vers le bac A4
Merci
Rémi
"isabelle" a écrit dans le message de news: %
bonjour Rémi,
For Each gph In ActiveSheet.ChartObjects MsgBox gph.Name Next
isabelle
IMER09 a écrit :
Bonsoir a tous
J'ai sur une feuille la possibilite d'avoir 2 graphiques differents Graph1 ou Graph2 Comment puis je tester lequelle des 2 est present sur la feuille pour pouvoir l'imprimer
