XL 2016 ListBox Avec plusieurs Colonnes

S[1]t'Yor · 5 Mai 2023

Bonjour

Je cherche à remplir une ListBox dans un UserForm avec plusieurs colonne en utilisant une boucle For.

Mon code dans mon fichier Excel joint créer 3 listes qui doivent aller chacune dans une colonne. J'ai fais plusieurs test mais rien ne va.

Merci d'avance pour votre aide.

Cordialement

S

sylvanu · 5 Mai 2023

Bonjour,
Une possibilité avec :

VB:

Sub Init()
    Dim tablo(1 To 8, 1 To 3)
    For i = 1 To 8
        tablo(i, 1) = Cells(i + 5, "D")
        tablo(i, 2) = Cells(i + 5, "F")
        tablo(i, 3) = Cells(i + 5, "H")
    Next i
    With UserForm1.ListBox1
        .ColumnCount = 3
        .ColumnWidths = "80"
        .List = tablo
    End With
    UserForm1.Show
End Sub

sylvanu · 5 Mai 2023

Bonjour,
Une possibilité avec :

VB:

Sub Init()
    Dim tablo(1 To 8, 1 To 3)
    For i = 1 To 8
        tablo(i, 1) = Cells(i + 5, "D")
        tablo(i, 2) = Cells(i + 5, "F")
        tablo(i, 3) = Cells(i + 5, "H")
    Next i
    With UserForm1.ListBox1
        .ColumnCount = 3
        .ColumnWidths = "80"
        .List = tablo
    End With
    UserForm1.Show
End Sub

Lolote83 · 5 Mai 2023

Bonjour
Avec ce code

VB:

Private Sub UserForm_Initialize()
    ListBox1.RowSource = "D6:F13"
End Sub

Enfin si j'ai bien compris la demande
Edit : Bonjour @sylvanu
@+ Lolote83

S[1]t'Yor · 5 Mai 2023

Bonjour @sylvanu et @Lolote83

Merci pour vos réponses. La méthode de sylvanu correspond à ma demande. Ta méthode fonctionne Lolote mais je l'ai peut-être mal formulé. Je n'ai pas de plage précise ou je vais retrouver mes valeurs de liste. Mais merci quand même, ça reste enrichissant .

Merci beaucoup

XL 2016 ListBox Avec plusieurs Colonnes

S[1]t'Yor

XLDnaute Junior

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

Lolote83

XLDnaute Barbatruc

S[1]t'Yor

XLDnaute Junior

Discussions similaires

XL 2016 ListBox Avec plusieurs Colonnes

S[1]t'Yor

XLDnaute Junior

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

Lolote83

XLDnaute Barbatruc

S[1]t'Yor

XLDnaute Junior

Discussions similaires

Privacy & Transparency

Privacy & Transparency