Copier listview ds feuille calcul et imprimer

christian.bedere · 15 Juin 2006

Bonjour le forum ,

Quelle macro pourrait on me souffler derrière l'oreille pour que je puisse coller l'intérieur de ma listview dans la feuille 'impression', à partir de la cellule c13, ainsi que l'imprimer ??

Je vous remercie

Christian

Hervé · 15 Juin 2006

re christian

peut etre un truc dans ce style :

Private Sub CommandButton1_Click()
Dim i As Byte
Dim ligne As Integer

ligne = 13

With Me.ListView1
'les entetes
For i = 1 To .ColumnHeaders.Count
Sheets('impression').Cells(ligne, i) = .ColumnHeaders(i)
Next i
'les données
For i = 1 To .ListItems.Count
ligne = ligne + 1
Sheets('impression').Cells(ligne, 1) = .ListItems(i)
Sheets('impression').Cells(ligne, 2) = .ListItems(i).ListSubItems(1)
Sheets('impression').Cells(ligne, 3) = CDbl(.ListItems(i).ListSubItems(2))
Next i
End With
End Sub

je suis repartis de ton dernier exemple.

salut

christian.bedere · 15 Juin 2006

Re-bonjour le forum et Hervé !!

Quelle rapidité décidément !!

Nickel sauf que le texte est décalé, il s'inscrit en 'a' au lieu de 'c', serait il possible de le décaler sous l'en-tête pré-inscrit, et aussi, ne pas recopier l'en-tête de la listview mais utiliser celui de la feuille 'impression' ?? je te remercie énormément !!

Christian [file name=CopieImprime.zip size=35356]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/CopieImprime.zip[/file]

christian.bedere · 15 Juin 2006

Re-bonjour le forum et Hervé !!

Quelle rapidité décidément !!

Nickel sauf que le texte est décalé, il s'inscrit en 'a' au lieu de 'c', serait il possible de le décaler sous l'en-tête pré-inscrit, et aussi, ne pas recopier l'en-tête de la listview mais utiliser celui de la feuille 'impression' ?? je te remercie énormément !!

Christian [file name=CopieImprime_20060615174308.zip size=35356]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/CopieImprime_20060615174308.zip[/file]

Hervé · 15 Juin 2006

re

alors comme ceci :

Private Sub CommandButton1_Click()
Dim i As Byte
Dim ligne As Integer

ligne = 13

With Me.ListView1
'les données
For i = 1 To .ListItems.Count
ligne = ligne + 1
Sheets('impression').Cells(ligne, 3) = .ListItems(i)
Sheets('impression').Cells(ligne, 4) = .ListItems(i).ListSubItems(1)
Sheets('impression').Cells(ligne, 5) = CDbl(.ListItems(i).ListSubItems(2))
Next i
End With
End Sub

salut

christian.bedere · 15 Juin 2006

Re-

Et bien, Hervé tu es formidable !!!

MERCI !!

A bientôt
Christian

Copier listview ds feuille calcul et imprimer

christian.bedere

XLDnaute Occasionnel

Hervé

XLDnaute Barbatruc

christian.bedere

XLDnaute Occasionnel

Pièces jointes

christian.bedere

XLDnaute Occasionnel

Pièces jointes

Hervé

XLDnaute Barbatruc

christian.bedere

XLDnaute Occasionnel

Discussions similaires

Copier listview ds feuille calcul et imprimer

christian.bedere

XLDnaute Occasionnel

Hervé

XLDnaute Barbatruc

christian.bedere

XLDnaute Occasionnel

Pièces jointes

christian.bedere

XLDnaute Occasionnel

Pièces jointes

Hervé

XLDnaute Barbatruc

christian.bedere

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency