transfert listbox vers une feuille excel

Question

Bonjour, 

j'ai une listbox de deux 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 seconde ligne vierge après le transfert précédent (cela permettra ainsi d'isoler chaque transfert par une ligne vide)

j'ai introduit le code suivant dans un commandbutton, il marche (sauf qu'il ecrase les données...) mais seulement sur la feuil1, si je met feuil3, il plante en surlignant la ligne (erreur d'execution 1004, erreur définie par l'application ou par l'objet)

je sais que pour se mettre a la ligne automatiquement c'est le code suivant 
'sheets("feuil1".cells(1,colonne).end (xldown).row + 1'
mais si je la place en premier dans le code il plante...

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!

cs_Fabian123 · Answer

j'ai oublié de dire, la userforme et le bouton sont sur un userform!

cs_bouf · Answer

Salut,
Voila qui t'amènera à la fin de ta colonne +1 ligne vide :

Dim tmp As String
tmp = Sheets("Feuil3").Range("A1").End(xlDown).Offset(2, 0).Address
Do While Not Sheets("Feuil3").Range(tmp) = 0
    tmp = Sheets("Feuil3").Range(tmp).End(xlDown).Offset(2, 0).Address
Loop
Sheets("Feuil3").Range(tmp).Select

a+

Cliff le bouffeur

cs_Fabian123 · Answer

salut,

j'ai essayé en placant ton code mais ça ne marche pas, il réécrit sur les lignes précédentes...

voilà comment j'ai mis le code, ais-je fait une erreur?

Private Sub CommandButton3_Click()

Dim tmp As String
tmp = Sheets("Feuil1").Range("A1").End(xlDown).Offset(2, 0).Address
   Do While Not Sheets("Feuil1").Range(tmp) = 0
    tmp = Sheets("Feuil1").Range(tmp).End(xlDown).Offset(2, 0).Address
   Loop
Sheets("Feuil1").Range(tmp).Select

      With ListBox2
Sheets("Feuil1").Range(Cells(1, 1), Cells(.ListCount, 1)) = .List
      End With
ListBox2.Clear
End Sub

Transfert listbox vers une feuille excel

3 réponses

Votre réponse

Discussions similaires