Re : copie listbox vers cellules excel
bonsoir
le resultat que je voudrais obtenir ressemble à ca
si quelqu'un peut m'aider à faire ca mais pour un grand nombre de colonnes
Private Sub CommandButton40_Click()
With Sheets("caisse")
'repere de la derniere ligne utilisee
L = Sheets("caisse").Range("a65536").End(xlUp).Row + 1
'report vers feuille liste
.Range("A" & L).Value = Label107 ' date
.Range("B" & L).Value = TextBox2.Value ' total
.Range("C" & L).Value = ComboBox37.Value 'type de vente
.Range("D" & L).Value = ListBox2.List(0, 1)
.Range("E" & L).Value = ListBox2.List(0, 0)
.Range("F" & L).Value = ListBox2.List(1, 1)
.Range("G" & L).Value = ListBox2.List(1, 0)
.Range("H" & L).Value = ListBox2.List(2, 1)
.Range("I" & L).Value = ListBox2.List(2, 0)
.Range("J" & L).Value = ListBox2.List(3, 1)
.Range("K" & L).Value = ListBox2.List(3, 0)
End With
End Sub
merci