Je cherche à imprimer le contenu d'un Listbox que je remplis avec une array
Je voudrais faire simple et je aucune idée de la manière dont je dois m'y
prendre
Merci
Bonne journée
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
Daniel
Bonjour. Le module ci-desssus a été écrit pour la zone de liste d'une feuille. A modifier pour un userform :
Sub impression() Sheets.Add With Sheets("Feuil1") For i = 0 To .ListBox1.ListCount - 1 Cells(i + 1, 1) = .ListBox1.List(i) Next End With With ActiveSheet .PrintOut .Delete End With End Sub
Cordialement. Daniel "GIBI68" a écrit dans le message de news:
Bonjour,
Je cherche à imprimer le contenu d'un Listbox que je remplis avec une array Je voudrais faire simple et je aucune idée de la manière dont je dois m'y prendre Merci Bonne journée
Bonjour.
Le module ci-desssus a été écrit pour la zone de liste d'une feuille. A
modifier pour un userform :
Sub impression()
Sheets.Add
With Sheets("Feuil1")
For i = 0 To .ListBox1.ListCount - 1
Cells(i + 1, 1) = .ListBox1.List(i)
Next
End With
With ActiveSheet
.PrintOut
.Delete
End With
End Sub
Cordialement.
Daniel
"GIBI68" <jean-michel@sonoma.fr> a écrit dans le message de news:
e0T9gpNoGHA.1248@TK2MSFTNGP05.phx.gbl...
Bonjour,
Je cherche à imprimer le contenu d'un Listbox que je remplis avec une
array
Je voudrais faire simple et je aucune idée de la manière dont je dois m'y
prendre
Merci
Bonne journée
Bonjour. Le module ci-desssus a été écrit pour la zone de liste d'une feuille. A modifier pour un userform :
Sub impression() Sheets.Add With Sheets("Feuil1") For i = 0 To .ListBox1.ListCount - 1 Cells(i + 1, 1) = .ListBox1.List(i) Next End With With ActiveSheet .PrintOut .Delete End With End Sub
Cordialement. Daniel "GIBI68" a écrit dans le message de news:
Bonjour,
Je cherche à imprimer le contenu d'un Listbox que je remplis avec une array Je voudrais faire simple et je aucune idée de la manière dont je dois m'y prendre Merci Bonne journée
