Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Impression en VBA et choix des onglets à imprimer

Impression en VBA et choix des onglets à imprimer

14 réponses
Avatar
koukou40
Bonjour,

Voici mon probl=E8me : dans un classeur se trouve plusieurs onglets
contenant des graphiques.
Je d=E9sire, =E0 partir de ma page d'accueil (1er onglet), =E0 l'aide d'un
code VBA, choisir les graphiques que je souhaite imprimer (1, 2 ou
tous). Ceci =E0 l'aide d'un bouton par exemple.

Auriez vous une id=E9e sur la question ?

D'avance, merci.

Chris
Signaler un problème avec ce contenu

4 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
1 2
Avatar
isabelle
bonjour,

possibilité pour le terme "liste déroulante" :

TextBox, Barre d'outils, Boite à outils Controles
ListBox, Barre d'outils, Boite à outils Controles
ComboBox, Barre d'outils, Boite à outils Controles
TextBox, Barre d'outils, Formulaire
ListBox, Barre d'outils, Formulaire
ComboBox, Barre d'outils, Formulaire
Liste de Validation

isabelle

Pour moi, liste déroulante ou listbox, c'est pareil ?
Daniel
"koukou40arobasefree.fr" a écrit dans le message de
news:
Cela va mieux !
Et si on remplace la ListBox par une zone de liste déroulante ?
La procédure sera la même ?

A+

"Daniel.C" a écrit dans le message de
news:%
Regarde le classeur à l'adresse :
http://cjoint.com/?lovTEZUuU0
Choisis dans la listbox la feuille dont le graphique est à imprimer.
Daniel
"koukou40arobasefree.fr" a écrit dans le message de
news: %
Le voici :
http://cjoint.com/?lovwzWw544

Remarque : si l'on masque un onglet, on ne peut pas imprimer les
graphiques, pourquoi ?


"Daniel.C" a écrit dans le message de
news:
Peux-tu mettre un classeur exemple sur www.cjoint.com et poster ici
l'adresse générée ?
Daniel
"koukou40arobasefree.fr" a écrit dans le message
de news:
J'ai du mal à comprendre le fonctionnement de ton classeur !
La "ListBox" reste vierge !

A+

"Daniel.C" a écrit dans le message de
news:
Regarde le classeur à l'adresse :
http://cjoint.com/?lorf7SwEet
Le remplissage de la listbox se fait à l'ouverture, la macro est dans
"thisworkbook".
Daniel
a écrit dans le message de news:

On 14 nov, 12:56, "Daniel.C" wrote:
Bonjour.
Est-ce que tes graphiques sont placés sur des feuilles graphique ou
sur des
feuilles de données ?
Cordialement.
Daniel
a écrit dans le message de news:

Bonjour,

Voici mon problème : dans un classeur se trouve plusieurs onglets
contenant des graphiques.
Je désire, à partir de ma page d'accueil (1er onglet), à l'aide d'un
code VBA, choisir les graphiques que je souhaite imprimer (1, 2 ou
tous). Ceci à l'aide d'un bouton par exemple.

Auriez vous une idée sur la question ?

D'avance, merci.

Chris
Salut Daniel,


Ces graphiques sont dans des feuilles de données (un graphique pour
un
onglet).

Une précision à ma question :
Ces feuilles sont cachées automatiquement à la fermeture du classeur
(par une proc VBA).
Et donc à l'ouverture de celui-ci, apparaît qu'un seul onglet
"Accueil". J'ai commencé par placer un bouton de commande ainsi qu'un
code :
Private Sub CommandButton1_Click()
Sheets(Array("graph 1", "graph 2")).PrintOut Copies:=1, Collate:=True
End Sub

Or je peux imprimer ces graphiques que s'ils ne sont pas cachés sinon
message d'erreur VBA !

Quelle est la solution ?

Peut-être faire apparaître ces onglets avant de les imprimer ?

Merci

Chris
























Avatar
koukou40arobasefree.fr
Merci pour ton aide !
A bientôt peut-être...

Chris

"Daniel.C" a écrit dans le message de
news:
Pour moi, liste déroulante ou listbox, c'est pareil ?
Daniel
"koukou40arobasefree.fr" a écrit dans le message de
news:
Cela va mieux !
Et si on remplace la ListBox par une zone de liste déroulante ?
La procédure sera la même ?

A+

"Daniel.C" a écrit dans le message de
news:%
Regarde le classeur à l'adresse :
http://cjoint.com/?lovTEZUuU0
Choisis dans la listbox la feuille dont le graphique est à imprimer.
Daniel
"koukou40arobasefree.fr" a écrit dans le message de
news: %
Le voici :
http://cjoint.com/?lovwzWw544

Remarque : si l'on masque un onglet, on ne peut pas imprimer les
graphiques, pourquoi ?


"Daniel.C" a écrit dans le message de
news:
Peux-tu mettre un classeur exemple sur www.cjoint.com et poster ici
l'adresse générée ?
Daniel
"koukou40arobasefree.fr" a écrit dans le message
de news:
J'ai du mal à comprendre le fonctionnement de ton classeur !
La "ListBox" reste vierge !

A+

"Daniel.C" a écrit dans le message de
news:
Regarde le classeur à l'adresse :
http://cjoint.com/?lorf7SwEet
Le remplissage de la listbox se fait à l'ouverture, la macro est
dans "thisworkbook".
Daniel
a écrit dans le message de news:

On 14 nov, 12:56, "Daniel.C" wrote:
Bonjour.
Est-ce que tes graphiques sont placés sur des feuilles graphique ou
sur des
feuilles de données ?
Cordialement.
Daniel
a écrit dans le message de news:

Bonjour,

Voici mon problème : dans un classeur se trouve plusieurs onglets
contenant des graphiques.
Je désire, à partir de ma page d'accueil (1er onglet), à l'aide
d'un
code VBA, choisir les graphiques que je souhaite imprimer (1, 2 ou
tous). Ceci à l'aide d'un bouton par exemple.

Auriez vous une idée sur la question ?

D'avance, merci.

Chris


Salut Daniel,

Ces graphiques sont dans des feuilles de données (un graphique pour
un
onglet).

Une précision à ma question :
Ces feuilles sont cachées automatiquement à la fermeture du classeur
(par une proc VBA).
Et donc à l'ouverture de celui-ci, apparaît qu'un seul onglet
"Accueil". J'ai commencé par placer un bouton de commande ainsi
qu'un
code :
Private Sub CommandButton1_Click()
Sheets(Array("graph 1", "graph 2")).PrintOut Copies:=1,
Collate:=True
End Sub

Or je peux imprimer ces graphiques que s'ils ne sont pas cachés
sinon
message d'erreur VBA !

Quelle est la solution ?

Peut-être faire apparaître ces onglets avant de les imprimer ?

Merci

Chris






























Avatar
koukou40arobasefree.fr
Salut Isabelle,

Peux tu être plus précise ?
A+

"isabelle" a écrit dans le message de
news:
bonjour,

possibilité pour le terme "liste déroulante" :

TextBox, Barre d'outils, Boite à outils Controles
ListBox, Barre d'outils, Boite à outils Controles
ComboBox, Barre d'outils, Boite à outils Controles
TextBox, Barre d'outils, Formulaire
ListBox, Barre d'outils, Formulaire
ComboBox, Barre d'outils, Formulaire
Liste de Validation

isabelle

Pour moi, liste déroulante ou listbox, c'est pareil ?
Daniel
"koukou40arobasefree.fr" a écrit dans le message de
news:
Cela va mieux !
Et si on remplace la ListBox par une zone de liste déroulante ?
La procédure sera la même ?

A+

"Daniel.C" a écrit dans le message de
news:%
Regarde le classeur à l'adresse :
http://cjoint.com/?lovTEZUuU0
Choisis dans la listbox la feuille dont le graphique est à imprimer.
Daniel
"koukou40arobasefree.fr" a écrit dans le message
de news: %
Le voici :
http://cjoint.com/?lovwzWw544

Remarque : si l'on masque un onglet, on ne peut pas imprimer les
graphiques, pourquoi ?


"Daniel.C" a écrit dans le message de
news:
Peux-tu mettre un classeur exemple sur www.cjoint.com et poster ici
l'adresse générée ?
Daniel
"koukou40arobasefree.fr" a écrit dans le message
de news:
J'ai du mal à comprendre le fonctionnement de ton classeur !
La "ListBox" reste vierge !

A+

"Daniel.C" a écrit dans le message de
news:
Regarde le classeur à l'adresse :
http://cjoint.com/?lorf7SwEet
Le remplissage de la listbox se fait à l'ouverture, la macro est
dans "thisworkbook".
Daniel
a écrit dans le message de news:

On 14 nov, 12:56, "Daniel.C" wrote:
Bonjour.
Est-ce que tes graphiques sont placés sur des feuilles graphique
ou sur des
feuilles de données ?
Cordialement.
Daniel
a écrit dans le message de news:

Bonjour,

Voici mon problème : dans un classeur se trouve plusieurs onglets
contenant des graphiques.
Je désire, à partir de ma page d'accueil (1er onglet), à l'aide
d'un
code VBA, choisir les graphiques que je souhaite imprimer (1, 2 ou
tous). Ceci à l'aide d'un bouton par exemple.

Auriez vous une idée sur la question ?

D'avance, merci.

Chris
Salut Daniel,


Ces graphiques sont dans des feuilles de données (un graphique pour
un
onglet).

Une précision à ma question :
Ces feuilles sont cachées automatiquement à la fermeture du
classeur
(par une proc VBA).
Et donc à l'ouverture de celui-ci, apparaît qu'un seul onglet
"Accueil". J'ai commencé par placer un bouton de commande ainsi
qu'un
code :
Private Sub CommandButton1_Click()
Sheets(Array("graph 1", "graph 2")).PrintOut Copies:=1,
Collate:=True
End Sub

Or je peux imprimer ces graphiques que s'ils ne sont pas cachés
sinon
message d'erreur VBA !

Quelle est la solution ?

Peut-être faire apparaître ces onglets avant de les imprimer ?

Merci

Chris



























Avatar
isabelle
bonjour,

si tu utilise un ComboBox de la Barre d'outils, Boite à outils Controles

sur la page code de ThisWorkbook:

Private Sub Workbook_Open()
Dim sh As Worksheet, ch As Chart
Sheets("Accueil").ComboBox1.Clear
For Each sh In Sheets
Var = sh.Name
For Each co In sh.ChartObjects
Var = co.Chart.Name
Sheets("Accueil").ComboBox1.AddItem sh.Name
Next co
Next sh
End Sub

et sur la page code de la feuille Accueil:

Private Sub ComboBox1_Change()
tablo = Split(ListBox1.Value)
feuille = tablo(0)
tablo(0) = ""
Sheets(feuille).ChartObjects(1).Chart.PrintOut
End Sub

a+
isabelle


Salut Isabelle,

Peux tu être plus précise ?
A+

"isabelle" a écrit dans le message de
news:
bonjour,

possibilité pour le terme "liste déroulante" :

TextBox, Barre d'outils, Boite à outils Controles
ListBox, Barre d'outils, Boite à outils Controles
ComboBox, Barre d'outils, Boite à outils Controles
TextBox, Barre d'outils, Formulaire
ListBox, Barre d'outils, Formulaire
ComboBox, Barre d'outils, Formulaire
Liste de Validation

isabelle

Pour moi, liste déroulante ou listbox, c'est pareil ?
Daniel
"koukou40arobasefree.fr" a écrit dans le message
de news:
Cela va mieux !
Et si on remplace la ListBox par une zone de liste déroulante ?
La procédure sera la même ?

A+

"Daniel.C" a écrit dans le message de
news:%
Regarde le classeur à l'adresse :
http://cjoint.com/?lovTEZUuU0
Choisis dans la listbox la feuille dont le graphique est à imprimer.
Daniel
"koukou40arobasefree.fr" a écrit dans le
message de news: %
Le voici :
http://cjoint.com/?lovwzWw544

Remarque : si l'on masque un onglet, on ne peut pas imprimer les
graphiques, pourquoi ?


"Daniel.C" a écrit dans le message de
news:
Peux-tu mettre un classeur exemple sur www.cjoint.com et poster
ici l'adresse générée ?
Daniel
"koukou40arobasefree.fr" a écrit dans le
message de news:
J'ai du mal à comprendre le fonctionnement de ton classeur !
La "ListBox" reste vierge !

A+

"Daniel.C" a écrit dans le message de
news:
Regarde le classeur à l'adresse :
http://cjoint.com/?lorf7SwEet
Le remplissage de la listbox se fait à l'ouverture, la macro
est dans "thisworkbook".
Daniel
a écrit dans le message de news:

On 14 nov, 12:56, "Daniel.C" wrote:
Bonjour.
Est-ce que tes graphiques sont placés sur des feuilles
graphique ou sur des
feuilles de données ?
Cordialement.
Daniel
a écrit dans le message de news:

Bonjour,

Voici mon problème : dans un classeur se trouve plusieurs onglets
contenant des graphiques.
Je désire, à partir de ma page d'accueil (1er onglet), à
l'aide d'un
code VBA, choisir les graphiques que je souhaite imprimer (1,
2 ou
tous). Ceci à l'aide d'un bouton par exemple.

Auriez vous une idée sur la question ?

D'avance, merci.

Chris
Salut Daniel,


Ces graphiques sont dans des feuilles de données (un graphique
pour un
onglet).

Une précision à ma question :
Ces feuilles sont cachées automatiquement à la fermeture du
classeur
(par une proc VBA).
Et donc à l'ouverture de celui-ci, apparaît qu'un seul onglet
"Accueil". J'ai commencé par placer un bouton de commande ainsi
qu'un
code :
Private Sub CommandButton1_Click()
Sheets(Array("graph 1", "graph 2")).PrintOut Copies:=1,
Collate:=True
End Sub

Or je peux imprimer ces graphiques que s'ils ne sont pas cachés
sinon
message d'erreur VBA !

Quelle est la solution ?

Peut-être faire apparaître ces onglets avant de les imprimer ?

Merci

Chris






























1 2