Problème ListBox dans USF

[Arpette]

Bonjour à toutes et à tous,
suite aux consels de Gorfael, j'ai repris mon projet à 0. Je ne suis pas allé bien loin, j'ai déjà un problème.
J'ai une ListBox qui appelle 5 colonnes, ma première question est-ce la bonne méthode pour appeler plusieurs colonnes, ma seconde question, comment renvoyer dans la feuille "Placement" les valeurs de la ListBox en colonne A,B,C,D,E.
Merci de votre aide.
Ci-joint mon fichier.
@+

 

[kjin]

Re : Problème ListBox dans USF

Bonjour,

Option Explicit

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub Valider_Click()
Dim dL&, i&
If LART.ListIndex = -1 Then Exit Sub
With Sheets("Placement")
    dL = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
    For i = 0 To 3
        .Cells(dL, i + 1) = LART.List(LART.ListIndex, i)
    Next
End With
Unload Me
End Sub

Private Sub UserForm_Initialize()
LART.ColumnCount = 5
With Sheets("Nomenclature")
    LART.List = .Range("A3:E" & .Range("A65536").End(xlUp).Row).Value
End With
SortListBox LART, 0, 1, 1
End Sub

A+
kjin

 

[Arpette]

Re : Problème ListBox dans USF

Bonjour Kjin, merci c'est super 🙂)
@+