Bonjour le forum
Je veux créer un listview et transférer le contenu de celle ci dans une feuille
J'ai récupéré un code sur le forum, mais il efface les données qui étaient déja dans cette feuille de report, alors que je voudrais les conserver et recopier les nouvelles à la suite .
j'essaye depuis pas mal d'heure de modifier cette macro, mais ça beug a chaque fois
alors je me remet a vos compétences
Merci d'avance
Le Code /
Private Sub CommandButton9_Click()
Dim i As Integer
Dim j As Byte
With Sheets("Impression")
.Select
.Range("A14:m60" & .Range("A51").End(xlUp).Row + 1).ClearContents
End With
With ListView1
For i = 1 To .ListItems.Count
With .ListItems(i)
If IsNumeric(.Text) Then
Sheets(2).Cells(i + 13, 1) = numerique(.Text)
Else
Sheets(2).Cells(i + 13, 1) = numerique(.Text)
End If
End With
For j = 1 To .columnHeaders.Count - 1
With .ListItems(i).listSubItems(j)
If IsNumeric(numerique(.Text)) Then
Sheets(2).Cells(i + 13, j + 1) = numerique(.Text)
Else
Sheets(2).Cells(i + 13, j + 1) = .Text
End If
End With
Next j
Next i
End With
With Sheets("Impression")
.Range("b5") = Fournisseur
.Range("d5") = Numéro
.Range("g5") = DateJournée
.Range("d7") = CDbl(MontantTTC)
.Range("d8") = CDbl(TextBox2)
.Range("d9") = CDbl(TextBox1)
End With
End Sub