Probleme sur ma macro d'impresion

[cpeens]

Bonjour

je me trouve devant un probleme j'utilise cette macro pour imprimer le probleme est que celui ci ne m'imprime que la premiere ligne j'ai regarder un peut ou sa pouvais venir et semblerais t'il ma listview ici L1 ne me renvois qu'une seul ligne quelqu'un pourait il me dire ou sa peut enir svp merci

   Dim ligne As Long
Dim i As Long
  ligne = 2
 With Sheets("Imprime").[A2:D1000].ClearContents

For li = 1 To L1.ListItems.Count
      
      

 Sheets("Imprime").Cells(ligne, 1) = L1.ListItems(li)
 Sheets("Imprime").Cells(ligne, 2) = L1.ListItems(li).ListSubItems(1)
  Sheets("Imprime").Cells(ligne, 3) = L1.ListItems(li).ListSubItems(2)
   Sheets("Imprime").Cells(ligne, 4) = L1.ListItems(li).ListSubItems(3)
 Sheets("Imprime").Cells(ligne, 5) = L1.ListItems(li).ListSubItems(4)
Sheets("Imprime").Cells(ligne, 6) = L1.ListItems(li).ListSubItems(5)
 Sheets("Imprime").Cells(ligne, 7) = L1.ListItems(li).ListSubItems(6)
 Next li
 End With

Sheets("Imprime").Select
Dim MyValue As Byte
MyValue = MsgBox("Voulez-vous imprimer ?", vbYesNo + vbDefaultButton1)
If MyValue = vbNo Then Exit Sub
With ActiveSheet
With .PageSetup
.PrintArea = "$A$1:$G$" & Cells.Find("*", , xlValues, , 1, 2, 0).Row
.PaperSize = xlPaperA4
.Orientation = xlLandscape
.FitToPagesWide = 1
.FitToPagesTall = 1
.BlackAndWhite = True
.PrintHeadings = False
End With
.PrintOut 1
End With
imprime.cache

 

[Compte Supprimé 979]

Re : Probleme sur ma macro d'impresion

Salut Cpeens

Pour ta PrintArea, pourquoi ne pas faire plutôt

.PrintArea = "$A$1:$G$" & Range("A" & Rows.Count).End(XlUp).Row

Peut-être ça le soucis !?

A+

 

[cpeens]

Re : Probleme sur ma macro d'impresion

Bonjour brunom45 j'ai essayer ta modification malheureusement celui ci n'apporte rien de plus j'ai détailler ma macro le probleme proviendrais de la copie des element de ma Listview vers la feuille Imprime car il ne me copie qu'une ligne donc ma question est comment faire pour copier des données de ma listview vers ma feuil Imprime


merci pour ceux qui m'aiderons à bientot

 

[Compte Supprimé 979]

Re : Probleme sur ma macro d'impresion

Re,

Ta ligne de copie sur la feuille "Imprime" n'est pas incrémentée !?

Dim ligne As Long
Dim i As Long
ligne = 2
With Sheets("Imprime").[A2:D1000].ClearContents
  For li = 1 To L1.ListItems.Count
    Sheets("Imprime").Cells(ligne + li - 1, 1) = L1.ListItems(li)
    Sheets("Imprime").Cells(ligne + li - 1, 2) = L1.ListItems(li).ListSubItems(1)
    Sheets("Imprime").Cells(ligne + li - 1, 3) = L1.ListItems(li).ListSubItems(2)
    Sheets("Imprime").Cells(ligne + li - 1, 4) = L1.ListItems(li).ListSubItems(3)
    Sheets("Imprime").Cells(ligne + li - 1, 5) = L1.ListItems(li).ListSubItems(4)
    Sheets("Imprime").Cells(ligne + li - 1, 6) = L1.ListItems(li).ListSubItems(5)
    Sheets("Imprime").Cells(ligne + li - 1, 7) = L1.ListItems(li).ListSubItems(6)
  Next li
End With

A+

 

[cpeens]

Re : Probleme sur ma macro d'impresion

re brunom45 je comprend mieux mon erreur je te remercie j'essais dés lundi car mon fichier est au travail en tous cas grand merci à toi à lundi pour de dire ce qui en est bon week end