Listview vers base de données

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

geraldvc

XLDnaute Junior
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
Réponses
8
Affichages
233
Réponses
8
Affichages
466
Réponses
1
Affichages
180
Réponses
4
Affichages
461
Retour