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 Liste

Imprimer Liste

5 réponses
Avatar
GIBI68
Bonjour à tous,

Je sollicite votre aide parce que je viens de passer un bon moment sur une
impression qui ne fonctionne pas.

Je voudrais imprmier le contenu d'un listbox.
Un tableau remplit ma liste
liste1.List() = MyArray
et à la ligne suivante je voudrais imprimer le contenu
mais ni ça :ActiveWindow.SelectedSheets.liste1.List().PrintOut Copies:=1,
Collate:=True
ni ça :ActiveWindow.myarray.PrintOut Copies:=1, Collate:=True
ne fonctionne

Merci d'avance
Jean Michel
Signaler un problème avec ce contenu

5 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
michdenis
Bonjour Gib168,


Essaie ceci : Adapte le nom de la feuille où se retrouve ton listbox et le nom du listbox lui-même.

'----------------------------
Sub ImprimerTableau()

Application.ScreenUpdating = 1
With Worksheets.Add
.Range("A1").Resize(UBound(Worksheets("feuil1").ListBox1.List, 1) + 1, _
UBound(Worksheets("feuil1").ListBox1.List, 2) + 1) = _
Worksheets("feuil1").ListBox1.List
.PrintOut
Application.DisplayAlerts = False
.Delete
Application.DisplayAlerts = True
End With
End Sub
'----------------------------


Salutations!



"GIBI68" a écrit dans le message de news: %
Bonjour à tous,

Je sollicite votre aide parce que je viens de passer un bon moment sur une
impression qui ne fonctionne pas.

Je voudrais imprmier le contenu d'un listbox.
Un tableau remplit ma liste
liste1.List() = MyArray
et à la ligne suivante je voudrais imprimer le contenu
mais ni ça :ActiveWindow.SelectedSheets.liste1.List().PrintOut Copies:=1,
Collate:=True
ni ça :ActiveWindow.myarray.PrintOut Copies:=1, Collate:=True
ne fonctionne

Merci d'avance
Jean Michel
Avatar
GIBI68
Je débute excuses d'avance les réponses idiotes
Je ne crois qu'il existe une relation entre une feuille et mon liste box.
Je remplis mon listbox avec un tableau, qui lui prend des valeurs dans une
feuille transformée en base de donnée.

"michdenis" a écrit dans le message de news:
#frb$
Bonjour Gib168,


Essaie ceci : Adapte le nom de la feuille où se retrouve ton listbox et le
nom du listbox lui-même.


'----------------------------
Sub ImprimerTableau()

Application.ScreenUpdating = 1
With Worksheets.Add
.Range("A1").Resize(UBound(Worksheets("feuil1").ListBox1.List, 1) + 1,
_

UBound(Worksheets("feuil1").ListBox1.List, 2) + 1) = _
Worksheets("feuil1").ListBox1.List
.PrintOut
Application.DisplayAlerts = False
.Delete
Application.DisplayAlerts = True
End With
End Sub
'----------------------------


Salutations!



"GIBI68" a écrit dans le message de news:
%

Bonjour à tous,

Je sollicite votre aide parce que je viens de passer un bon moment sur une
impression qui ne fonctionne pas.

Je voudrais imprmier le contenu d'un listbox.
Un tableau remplit ma liste
liste1.List() = MyArray
et à la ligne suivante je voudrais imprimer le contenu
mais ni ça :ActiveWindow.SelectedSheets.liste1.List().PrintOut Copies:=1,
Collate:=True
ni ça :ActiveWindow.myarray.PrintOut Copies:=1, Collate:=True
ne fonctionne

Merci d'avance
Jean Michel





Avatar
michdenis
Bonjour Gib168,

Tu as un contrôle "Listbox" dans une feuille de calcul issu de la boîte à outils "contrôle".

La procédure que je te propose, récupère "La liste" des éléments que contient ton contrôle "ListBox" et la copie dans une nouvelle
feuille ajoutée seulement pour les fins de l'impression. Après l'impression de la plage de cellules, la feuille ajoutée est
supprimée de ton classeur.

La procédure proposée, contient aucun élément de mise en page. Au besoin, il est possible d'ajouter ces éléments si tu le désires.

Pour exécuter la procédure, tu n'as qu'à modifier le nom de la feuille et le nom de la "Listbox" contenu dans cette procédure.

Si tu as des difficultés spécifiques, tu dois être plus précis dans l'énoncé de ces dernières.


Salutations!







"GIBI68" a écrit dans le message de news: %23tNJo$
Je débute excuses d'avance les réponses idiotes
Je ne crois qu'il existe une relation entre une feuille et mon liste box.
Je remplis mon listbox avec un tableau, qui lui prend des valeurs dans une
feuille transformée en base de donnée.

"michdenis" a écrit dans le message de news:
#frb$
Bonjour Gib168,


Essaie ceci : Adapte le nom de la feuille où se retrouve ton listbox et le
nom du listbox lui-même.


'----------------------------
Sub ImprimerTableau()

Application.ScreenUpdating = 1
With Worksheets.Add
.Range("A1").Resize(UBound(Worksheets("feuil1").ListBox1.List, 1) + 1,
_

UBound(Worksheets("feuil1").ListBox1.List, 2) + 1) = _
Worksheets("feuil1").ListBox1.List
.PrintOut
Application.DisplayAlerts = False
.Delete
Application.DisplayAlerts = True
End With
End Sub
'----------------------------


Salutations!



"GIBI68" a écrit dans le message de news:
%

Bonjour à tous,

Je sollicite votre aide parce que je viens de passer un bon moment sur une
impression qui ne fonctionne pas.

Je voudrais imprmier le contenu d'un listbox.
Un tableau remplit ma liste
liste1.List() = MyArray
et à la ligne suivante je voudrais imprimer le contenu
mais ni ça :ActiveWindow.SelectedSheets.liste1.List().PrintOut Copies:=1,
Collate:=True
ni ça :ActiveWindow.myarray.PrintOut Copies:=1, Collate:=True
ne fonctionne

Merci d'avance
Jean Michel





Avatar
JLuc
*Bonjour GIBI68*,
Et si tu essayais de masquer les colonnes de ta feuille base de donnees
et d'imprimer cette feuille ? ca marcherais peut etre plus facilement !
apres impression, tu rends a nouveau les colonnes actives


Bonjour à tous,

Je sollicite votre aide parce que je viens de passer un bon moment sur une
impression qui ne fonctionne pas.

Je voudrais imprmier le contenu d'un listbox.
Un tableau remplit ma liste
liste1.List() = MyArray
et à la ligne suivante je voudrais imprimer le contenu
mais ni ça :ActiveWindow.SelectedSheets.liste1.List().PrintOut Copies:=1,
Collate:=True
ni ça :ActiveWindow.myarray.PrintOut Copies:=1, Collate:=True
ne fonctionne

Merci d'avance
Jean Michel



--
JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm

Avatar
GIBI68
J'ai compris, excuse la lenteur
Ca marche je me débrouille avec ça
Merci encore


"michdenis" a écrit dans le message de news:
u#x#
Bonjour Gib168,

Tu as un contrôle "Listbox" dans une feuille de calcul issu de la boîte à
outils "contrôle".


La procédure que je te propose, récupère "La liste" des éléments que
contient ton contrôle "ListBox" et la copie dans une nouvelle

feuille ajoutée seulement pour les fins de l'impression. Après
l'impression de la plage de cellules, la feuille ajoutée est

supprimée de ton classeur.

La procédure proposée, contient aucun élément de mise en page. Au besoin,
il est possible d'ajouter ces éléments si tu le désires.


Pour exécuter la procédure, tu n'as qu'à modifier le nom de la feuille et
le nom de la "Listbox" contenu dans cette procédure.


Si tu as des difficultés spécifiques, tu dois être plus précis dans
l'énoncé de ces dernières.



Salutations!







"GIBI68" a écrit dans le message de news:
%23tNJo$

Je débute excuses d'avance les réponses idiotes
Je ne crois qu'il existe une relation entre une feuille et mon liste box.
Je remplis mon listbox avec un tableau, qui lui prend des valeurs dans une
feuille transformée en base de donnée.

"michdenis" a écrit dans le message de news:
#frb$
Bonjour Gib168,


Essaie ceci : Adapte le nom de la feuille où se retrouve ton listbox et
le


nom du listbox lui-même.

'----------------------------
Sub ImprimerTableau()

Application.ScreenUpdating = 1
With Worksheets.Add
.Range("A1").Resize(UBound(Worksheets("feuil1").ListBox1.List, 1) +
1,


_
UBound(Worksheets("feuil1").ListBox1.List, 2) + 1) = _
Worksheets("feuil1").ListBox1.List
.PrintOut
Application.DisplayAlerts = False
.Delete
Application.DisplayAlerts = True
End With
End Sub
'----------------------------


Salutations!



"GIBI68" a écrit dans le message de news:
%

Bonjour à tous,

Je sollicite votre aide parce que je viens de passer un bon moment sur
une


impression qui ne fonctionne pas.

Je voudrais imprmier le contenu d'un listbox.
Un tableau remplit ma liste
liste1.List() = MyArray
et à la ligne suivante je voudrais imprimer le contenu
mais ni ça :ActiveWindow.SelectedSheets.liste1.List().PrintOut
Copies:=1,


Collate:=True
ni ça :ActiveWindow.myarray.PrintOut Copies:=1, Collate:=True
ne fonctionne

Merci d'avance
Jean Michel