VBA Pb de colonnes dans listbox

[poolinn22]

Bonjour,
je souhaiterai votre aide, !!!!

je n'arrive pas à créer plusieurs colonnes dans une même listbox.

j'ai :
A B C
NOM PRENOM ADRESSE

et sur la listbox, tout s'affiche sur une même colonne:

A
NOM
PRENOM
ADRESSE

Ci joint mon fichier,

merci d'avance,

Pauline

 

[Guest]

Re : VBA Pb de colonnes dans listbox

Re,

Voir l'aide excel F1 sur la propriété List des listBox et combobox.

A+

 

[Dranreb]

Re : VBA Pb de colonnes dans listbox

Bonjour
Comme ça ça se remplit bien:

            ListBox1.AddItem .Range("A" & i)
            ListBox1.List(ListBox1.ListCount - 1, 1) = .Range("B" & i)
            ListBox1.List(ListBox1.ListCount - 1, 2) = .Range("C" & i)

Cordialement.

 

[PMO2]

Re : VBA Pb de colonnes dans listbox

Bonjour,

Changez la procédure Private Sub ComboBox1_Change()

Private Sub ComboBox1_Change()
Dim cpt&
Dim T()
With Sheets("suivi devis DPER")
NbLigneAtraiter = .[A65536].End(xlUp).Row
    ListBox1.Clear
    For i = 3 To NbLigneAtraiter
        If .Range("J" & i) = ComboBox1 Then
          cpt& = cpt& + 1
          ReDim Preserve T(1 To 3, 1 To cpt&)
          T(1, cpt&) = .Range("A" & i)
          T(2, cpt&) = .Range("B" & i)
          T(3, cpt&) = .Range("C" & i)
        End If
    Next i
End With
If cpt& > 0 Then ListBox1.List = Application.WorksheetFunction.Transpose(T)
End Sub

Cordialement.

 

[poolinn22]

Re : VBA Pb de colonnes dans listbox

MERCI beaucoup c'est extra

 

[laetitia90]

Re : VBA Pb de colonnes dans listbox

bonjour tous🙂🙂🙂🙂🙂🙂
ou simplement dans ton cas

Private Sub userform_initialize()
ListBox1.List = Range("a3", Cells(Rows.Count, "c").End(xlUp)).Value
End Sub

oups je crois bien que j'ai taper a cote🙁🙁