lisbox

[Fatifleur]

Bonjour les amis
un petit soussi dans une macro excel
j'ai une listbox lorsque j'enregistre les données de la listbox dans une feuille excel elle enregistre just la dérniere ligne de cette listbox
voici mon code quelqu'un peut me dir ou est l'erreur
pour que je puisse enregistrer toute mes données dans ma feuillle excel

Merci

 

[Fatifleur]

Re : lisbox

j'ai oublier de transmettre le code le voici:

With UserForm1.ListBox3

For i = 0 To .ListCount - 1

InsEch_clien = Worksheets("Ech_client").Range("A65536").End(xlUp).Row + i

Worksheets("Ech_client").Range("A" & InsEch_clien).Value = Sheets("Sheet1").Cells(UserForm1.ComboBox5.ListIndex + 1, 4).Value + Sheets("Sheet1").Cells(UserForm1.ComboBox1.ListIndex + 1, 2).Value
Worksheets("Ech_client").Range("B" & InsEch_clien).Value = UserForm1.ComboBox1.Value
Worksheets("Ech_client").Range("C" & InsEch_clien).Value = UserForm1.ComboBox5.Value
Worksheets("Ech_client").Range("G" & InsEch_clien).Value = UserForm1.TextBox7.Value


Worksheets("Ech_client").Range("D" & InsEch_clien).Value = .List(i, 0)

Worksheets("Ech_client").Range("E" & InsEch_clien).Value = .List(i, 1)

Worksheets("Ech_client").Range("F" & InsEch_clien).Value = .List(i, 2)


Next i
End With

 

[BERRACHED said]

Re : lisbox

Salut,fatifleur

dans quelle module as tu met ce code ? comandbutton

il y a des trucs que j'ai pas compris telle "InsEch_Client"

Cordialement

 

[Fatifleur]

Re : lisbox

bonjour oui c'est dans une comandebouton qui fait appel a une fonction dans un modul

et l'expresion que vous avez pas compris
c'est:
InsEch_clien = Worksheets("Ech_client").Range("A65536").End(xlUp).Row + i
pour sélectionner toujour la dérniere cellul vides