VBA Pb de colonnes dans listbox

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

poolinn22

XLDnaute Nouveau
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
 

Pièces jointes

Re : VBA Pb de colonnes dans listbox

Bonjour
Comme ça ça se remplit bien:
VB:
            ListBox1.AddItem .Range("A" & i)
            ListBox1.List(ListBox1.ListCount - 1, 1) = .Range("B" & i)
            ListBox1.List(ListBox1.ListCount - 1, 2) = .Range("C" & i)
Cordialement.
 
Re : VBA Pb de colonnes dans listbox

Bonjour,

Changez la procédure Private Sub ComboBox1_Change()

Code:
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.
 
Dernière édition:
Re : VBA Pb de colonnes dans listbox

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

Code:
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🙁🙁
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
261
Réponses
1
Affichages
234
  • Question Question
Microsoft 365 affichage userform
Réponses
4
Affichages
377
Réponses
10
Affichages
182
Réponses
7
Affichages
153
Retour