impression verticale

[Manon]

Bonjour a tous

Question d'impression

J'ai un userform avec des listbox qui met à jour les colonnes de la feuil3
A B C D E F
Nom Adres Tél Fax info1 info2

Je réussi à imprimer la liste par:

Private Sub CommandButton13_Click()
Feuil3.Columns('A:F').AutoFit
Feuil3.PrintOut Copies:=1, Collate:=True
End Sub

Est-il possible, par un code vb, de faire imprimer les infos verticalement ?

Nom
Adresse
Tél
Fax
info1
info2
ESPACE
Nom
etc..

Merci de bien vouloir vous attarder à mon problème
Manon

 

[pierrejean]

bonsoir Manon

une solution qui utilise une feuille vierge disponible (a creer eventuellemen)

Sub pourimpr()
Sheets('Feuil2').Cells.ClearContents
ligne = 1
For n = 2 To Sheets('Feuil1').Range('A65536').End(xlUp).Row
For m = 1 To 6
Sheets('Feuil2').Cells(ligne, 1) = Sheets('Feuil1').Cells(n, m)
ligne = ligne + 1
Next m
Sheets('Feuil2').Cells(ligne, 1) = ''
ligne = ligne + 1
Next n
Sheets('Feuil2').PrintOut Copies:=1, Collate:=True
End Sub

 

[Manon]

Bonjour le forum,

merci pierrejean.


WOW! Très rapide ta réponse!

J'ai adapté à mes feuilles et affecté la macro à mon bouton.

Ça fonctionne à merveille.

Je vais tenter de faire imprimer 2 colonnes par soucis d'économie.

Vous êtes vraiment des as!

Merci encore
Manon

 

[Manon]

Bonsoir le forum,
et merci à Pascal (le moderateur),

J'aurais besoin de petit coup de pouce pour mon impression en colonne.

J'ai chercher sur tout le net et j'ai trouvé des codes genre :
derLi = Columns(i).Find('*', , , , , xlPrevious).Row

mais ca ne me mène à rien (probablement parce que je n'arrive pas à les adapter à mon code...)

MON CODE:

Sub pourimpr()
Set ActuelWkbk = ThisWorkbook
With ActuelWkbk
Set WsBase = .Worksheets('Database')
End With
Sheets('Feuil2').Cells.ClearContents
ligne = 1
For n = 2 To WsBase.Range('A65536').End(xlUp).Row
For m = 1 To 9
Sheets('Feuil2').Cells(ligne, 1) = WsBase.Cells(n, m)
ligne = ligne + 1
Next m
Sheets('Feuil2').Cells(ligne, 1) = ''
ligne = ligne + 1
Next n
Sheets('Feuil2').PrintOut Copies:=1, Collate:=True
End Sub

Je me retrouve donc avec plusieurs feuilles avec une seule colonne. Quel gachis de papier !

Y a-il une solution ?

Merci de bien vouloir m'aider, si possible

Manon

 

[pierrejean]

bonjour manon

je n'ais que peu de temps à te consacrer

vois l'exemple ci-dessous à adapter

je reprendrais lorsque je serais un peu plus libre [file name=manon.zip size=8505]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/manon.zip[/file]

 

[pierrejean]

re

voici un fichier pour imprimer sur 2 ou eventuellement 3 colonnes

j'ais mis quelques explications qui je l'espere te permettrons d'adapter à ton cas [file name=manon_20060306124629.zip size=9322]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/manon_20060306124629.zip[/file]

 

[Manon]

Bonjour à tous,

Toujours aussi rapide pierrejean !

C'est parfait.

En plus j'ai un bonus pour 3 col sur même feuille.

Tes explications me permettent de mieux comprendre le processus. Je garde ton code en lieu sûr.

Merci mille fois

Manon