d'une liste boxe vers feuille excel

[akramenergie]

Bonjour,

j'ai une listbox de 3 colone colonnes dont je souhaite transférer le contenu sur la feuil3 de mon classeur.
Etant donné qu'il y aura plusieurs transferts, il faudrait que le transfert suivant se fasse à la premiere ligne vierge après le transfert précédent

j'ai introduit le code suivant dans un commandbutton mais sa marche pas
😕


voici mon code

Private Sub CommandButton3_Click()

With ListBox2
Sheets("Feuil3").Range(Cells(1, 1), Cells(.ListCount, 1)) = .List
End With
ListBox2.Clear
End Sub

merci pour votre aide!

 

[skoobi]

Re : d'une liste boxe vers feuille excel

Bonjour,

il faut d'abord identifier la prochaine ligne vide:

Private Sub CommandButton3_Click()
LigSuiv = Cells(1, 1).End(XlDown).Row + 1
With ListBox2
Sheets("Feuil3").Range(Cells(LigSuiv, 1), Cells(LigSuiv + .ListCount - 1, 1)) = .List
End With
ListBox2.Clear
End Sub

A tester.

 

[akramenergie]

Re : d'une liste boxe vers feuille excel

il ya toujour un bug je sais pas comment le résoudre si vous avez un lien vers une aplication qui traite le mm probleme que le mien dit le moi svp
merci

 

[skoobi]

Re : d'une liste boxe vers feuille excel

Re,

le mieux c'est que tu envoies le fichier.