Copier listview ds feuille calcul et imprimer

[christian.bedere]

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é]

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]

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]

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é]

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]

Re-

Et bien, Hervé tu es formidable !!!

MERCI !!

A bientôt
Christian