J'ai une selection dans une liste box des feuilles que je veux imprimer et
je voudrais pouvoir imprimer plusieurs fois une feuille et choisir l'ordre
d'impression des feuilles est ce possible ?
ex : feuill1 / feuill2 /feuill1/ feuill4 / feuill 3 /feuill1
Merci
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
Nicolas B.
Salut LOIC,
Avec une seule Listbox, je ne pense pas que ce soit possible (tu ne peux pas en sélectionnant les items déterminer combien tu voudras en imprimer). Mais si tu prends deux ListBox, le premier contenant toutes les feuilles du classeur et le deuxième vide, un bouton cbSelectionner ; tu peux choisir une à une et dans l'ordre souhaité les feuilles à imprimer en sélectionnant la feuille dans ListBox1 et en cliquant sur le bouton afin de copier le nom de la feuille dans ListBox2. Un autre bouton permettra alors d'imprimer les feuilles dont les noms sont en ListBox2.
'Remplit ListBox1 du nom des feuilles du classeur Private Sub UserForm_Initialize() For Each sht In Sheets ListBox1.AddItem sht.Name Next End Sub
'Cliquer sur le bouton Sélectionner rajoute à ListBox2 l'item 'sélectionné en ListBox1 Private Sub cbSelectionner_Click() ListBox2.AddItem ListBox1.Text End Sub
'Imprime les feuilles apparaissant en ListBox2 Private Sub cbImprimer_Click() For i = 0 To ListBox1.ListCount - 1 Sheets(ListBox1.List(i)).PrintOut Next End Sub
A+ Nicolas B.
LOIC wrote:
Bonsoir,
J'ai une selection dans une liste box des feuilles que je veux imprimer et je voudrais pouvoir imprimer plusieurs fois une feuille et choisir l'ordre d'impression des feuilles est ce possible ? ex : feuill1 / feuill2 /feuill1/ feuill4 / feuill 3 /feuill1 Merci
Salut LOIC,
Avec une seule Listbox, je ne pense pas que ce soit possible (tu ne peux
pas en sélectionnant les items déterminer combien tu voudras en imprimer).
Mais si tu prends deux ListBox, le premier contenant toutes les feuilles
du classeur et le deuxième vide, un bouton cbSelectionner ; tu peux
choisir une à une et dans l'ordre souhaité les feuilles à imprimer en
sélectionnant la feuille dans ListBox1 et en cliquant sur le bouton afin
de copier le nom de la feuille dans ListBox2. Un autre bouton permettra
alors d'imprimer les feuilles dont les noms sont en ListBox2.
'Remplit ListBox1 du nom des feuilles du classeur
Private Sub UserForm_Initialize()
For Each sht In Sheets
ListBox1.AddItem sht.Name
Next
End Sub
'Cliquer sur le bouton Sélectionner rajoute à ListBox2 l'item
'sélectionné en ListBox1
Private Sub cbSelectionner_Click()
ListBox2.AddItem ListBox1.Text
End Sub
'Imprime les feuilles apparaissant en ListBox2
Private Sub cbImprimer_Click()
For i = 0 To ListBox1.ListCount - 1
Sheets(ListBox1.List(i)).PrintOut
Next
End Sub
A+
Nicolas B.
LOIC wrote:
Bonsoir,
J'ai une selection dans une liste box des feuilles que je veux imprimer et
je voudrais pouvoir imprimer plusieurs fois une feuille et choisir l'ordre
d'impression des feuilles est ce possible ?
ex : feuill1 / feuill2 /feuill1/ feuill4 / feuill 3 /feuill1
Merci
Avec une seule Listbox, je ne pense pas que ce soit possible (tu ne peux pas en sélectionnant les items déterminer combien tu voudras en imprimer). Mais si tu prends deux ListBox, le premier contenant toutes les feuilles du classeur et le deuxième vide, un bouton cbSelectionner ; tu peux choisir une à une et dans l'ordre souhaité les feuilles à imprimer en sélectionnant la feuille dans ListBox1 et en cliquant sur le bouton afin de copier le nom de la feuille dans ListBox2. Un autre bouton permettra alors d'imprimer les feuilles dont les noms sont en ListBox2.
'Remplit ListBox1 du nom des feuilles du classeur Private Sub UserForm_Initialize() For Each sht In Sheets ListBox1.AddItem sht.Name Next End Sub
'Cliquer sur le bouton Sélectionner rajoute à ListBox2 l'item 'sélectionné en ListBox1 Private Sub cbSelectionner_Click() ListBox2.AddItem ListBox1.Text End Sub
'Imprime les feuilles apparaissant en ListBox2 Private Sub cbImprimer_Click() For i = 0 To ListBox1.ListCount - 1 Sheets(ListBox1.List(i)).PrintOut Next End Sub
A+ Nicolas B.
LOIC wrote:
Bonsoir,
J'ai une selection dans une liste box des feuilles que je veux imprimer et je voudrais pouvoir imprimer plusieurs fois une feuille et choisir l'ordre d'impression des feuilles est ce possible ? ex : feuill1 / feuill2 /feuill1/ feuill4 / feuill 3 /feuill1 Merci
LOIC
je me suis mal exprimé j'ai bien deux list box et la deuxième contient uniquement les feuilles sélectionné le pb c'est que excel ne prend pas en compte les feuille en double ni un ordre différents de celui qui est dans le classeur
"Nicolas B." a écrit dans le message de news:
Salut LOIC,
Avec une seule Listbox, je ne pense pas que ce soit possible (tu ne peux pas en sélectionnant les items déterminer combien tu voudras en imprimer). Mais si tu prends deux ListBox, le premier contenant toutes les feuilles du classeur et le deuxième vide, un bouton cbSelectionner ; tu peux choisir une à une et dans l'ordre souhaité les feuilles à imprimer en sélectionnant la feuille dans ListBox1 et en cliquant sur le bouton afin de copier le nom de la feuille dans ListBox2. Un autre bouton permettra alors d'imprimer les feuilles dont les noms sont en ListBox2.
'Remplit ListBox1 du nom des feuilles du classeur Private Sub UserForm_Initialize() For Each sht In Sheets ListBox1.AddItem sht.Name Next End Sub
'Cliquer sur le bouton Sélectionner rajoute à ListBox2 l'item 'sélectionné en ListBox1 Private Sub cbSelectionner_Click() ListBox2.AddItem ListBox1.Text End Sub
'Imprime les feuilles apparaissant en ListBox2 Private Sub cbImprimer_Click() For i = 0 To ListBox1.ListCount - 1 Sheets(ListBox1.List(i)).PrintOut Next End Sub
A+ Nicolas B.
LOIC wrote:
Bonsoir,
J'ai une selection dans une liste box des feuilles que je veux imprimer et
je voudrais pouvoir imprimer plusieurs fois une feuille et choisir l'ordre
d'impression des feuilles est ce possible ? ex : feuill1 / feuill2 /feuill1/ feuill4 / feuill 3 /feuill1 Merci
je me suis mal exprimé j'ai bien deux list box et la deuxième contient
uniquement les feuilles sélectionné le pb c'est que excel ne prend pas en
compte les feuille en double ni un ordre différents de celui qui est dans le
classeur
"Nicolas B." <nicolas.bruot@adresse.bidon.invalid> a écrit dans le message
de news:ubBoqdQgEHA.704@TK2MSFTNGP09.phx.gbl...
Salut LOIC,
Avec une seule Listbox, je ne pense pas que ce soit possible (tu ne peux
pas en sélectionnant les items déterminer combien tu voudras en imprimer).
Mais si tu prends deux ListBox, le premier contenant toutes les feuilles
du classeur et le deuxième vide, un bouton cbSelectionner ; tu peux
choisir une à une et dans l'ordre souhaité les feuilles à imprimer en
sélectionnant la feuille dans ListBox1 et en cliquant sur le bouton afin
de copier le nom de la feuille dans ListBox2. Un autre bouton permettra
alors d'imprimer les feuilles dont les noms sont en ListBox2.
'Remplit ListBox1 du nom des feuilles du classeur
Private Sub UserForm_Initialize()
For Each sht In Sheets
ListBox1.AddItem sht.Name
Next
End Sub
'Cliquer sur le bouton Sélectionner rajoute à ListBox2 l'item
'sélectionné en ListBox1
Private Sub cbSelectionner_Click()
ListBox2.AddItem ListBox1.Text
End Sub
'Imprime les feuilles apparaissant en ListBox2
Private Sub cbImprimer_Click()
For i = 0 To ListBox1.ListCount - 1
Sheets(ListBox1.List(i)).PrintOut
Next
End Sub
A+
Nicolas B.
LOIC wrote:
Bonsoir,
J'ai une selection dans une liste box des feuilles que je veux imprimer
et
je voudrais pouvoir imprimer plusieurs fois une feuille et choisir
l'ordre
d'impression des feuilles est ce possible ?
ex : feuill1 / feuill2 /feuill1/ feuill4 / feuill 3 /feuill1
Merci
je me suis mal exprimé j'ai bien deux list box et la deuxième contient uniquement les feuilles sélectionné le pb c'est que excel ne prend pas en compte les feuille en double ni un ordre différents de celui qui est dans le classeur
"Nicolas B." a écrit dans le message de news:
Salut LOIC,
Avec une seule Listbox, je ne pense pas que ce soit possible (tu ne peux pas en sélectionnant les items déterminer combien tu voudras en imprimer). Mais si tu prends deux ListBox, le premier contenant toutes les feuilles du classeur et le deuxième vide, un bouton cbSelectionner ; tu peux choisir une à une et dans l'ordre souhaité les feuilles à imprimer en sélectionnant la feuille dans ListBox1 et en cliquant sur le bouton afin de copier le nom de la feuille dans ListBox2. Un autre bouton permettra alors d'imprimer les feuilles dont les noms sont en ListBox2.
'Remplit ListBox1 du nom des feuilles du classeur Private Sub UserForm_Initialize() For Each sht In Sheets ListBox1.AddItem sht.Name Next End Sub
'Cliquer sur le bouton Sélectionner rajoute à ListBox2 l'item 'sélectionné en ListBox1 Private Sub cbSelectionner_Click() ListBox2.AddItem ListBox1.Text End Sub
'Imprime les feuilles apparaissant en ListBox2 Private Sub cbImprimer_Click() For i = 0 To ListBox1.ListCount - 1 Sheets(ListBox1.List(i)).PrintOut Next End Sub
A+ Nicolas B.
LOIC wrote:
Bonsoir,
J'ai une selection dans une liste box des feuilles que je veux imprimer et
je voudrais pouvoir imprimer plusieurs fois une feuille et choisir l'ordre
d'impression des feuilles est ce possible ? ex : feuill1 / feuill2 /feuill1/ feuill4 / feuill 3 /feuill1 Merci
