lisbox

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

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

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