Bonjour a tous,
J'ai récupérer un code pour transférer une listview vers une feuille excel"base".
Mais j'ai une erreur qui surviens: j'ai 4 collonne dans ma listview et quand il transfère; si la colonne 2 est vide et que la 3 est remplie j'ai une eurreur, que par contre si la 1 et la 2 sont plain c'est ok.
Pouvez-vous me refilez un coup de main.
Private Sub Ajouter_Click()
Sheets("base").Select
Range("e2").Select
ActiveCell = Prestation
Sheets("base").Select
Dim Ligne As Integer, I As Integer, c As Integer
Application.ScreenUpdating = False
With Sheets("base")
Ligne = Sheets("base").Range("a65536").End(xlUp).Row
With ListView1
For I = 1 To .ListItems.Count ' le 1 veux dire qui l'envoi apartir de la premiere ligne
Sheets("base").Cells(Ligne + I, 1) = .ListItems(I)
For c = 1 To .ColumnHeaders.Count - 1
Sheets("base").Cells(Ligne + I, c + 1) = .ListItems(I).ListSubItems(c) ' le 1 envois au nombre de colonne dans la feuille
Next c
Next I
End With
End With
MsgBox ("Les articles ont bien été enregistré")
Unload Me
End Sub
Aplus
J'ai récupérer un code pour transférer une listview vers une feuille excel"base".
Mais j'ai une erreur qui surviens: j'ai 4 collonne dans ma listview et quand il transfère; si la colonne 2 est vide et que la 3 est remplie j'ai une eurreur, que par contre si la 1 et la 2 sont plain c'est ok.
Pouvez-vous me refilez un coup de main.
Private Sub Ajouter_Click()
Sheets("base").Select
Range("e2").Select
ActiveCell = Prestation
Sheets("base").Select
Dim Ligne As Integer, I As Integer, c As Integer
Application.ScreenUpdating = False
With Sheets("base")
Ligne = Sheets("base").Range("a65536").End(xlUp).Row
With ListView1
For I = 1 To .ListItems.Count ' le 1 veux dire qui l'envoi apartir de la premiere ligne
Sheets("base").Cells(Ligne + I, 1) = .ListItems(I)
For c = 1 To .ColumnHeaders.Count - 1
Sheets("base").Cells(Ligne + I, c + 1) = .ListItems(I).ListSubItems(c) ' le 1 envois au nombre de colonne dans la feuille
Next c
Next I
End With
End With
MsgBox ("Les articles ont bien été enregistré")
Unload Me
End Sub
Aplus