XL 2019 En-tête fixe ListBox

sylvanu

XLDnaute Barbatruc

Supporter XLD

• Aujourd'hui à 08:38

• #2

Bonjour Raoul,
Sans fichier difficile de répondre vraiment.
Mais comme votre macro est une fonction donc pas dans l'userform, il faut préciser de quoi vous parlez donc préciser à quel userform cela doit s'appliquer.
Essayez par ex :

Code:

Function show_data_in_listbox1()
With Userform1.ListBox3  ' à modifier
    .ColumnCount = 10
    .ColumnWidths = "40;60;40;60;70;70;30;70;70;60"
    Dim LastRow As Long
    LastRow = Cells(Rows.Count, "A").End(xlUp).Row
    .RowSource = "COURIERS_RECUS!A3:J" & LastRow
    .ColumnHeads = True
End With
End Function

Ne pas oublier les points pour bien ramener l'action à l'objet déclaré dans le With.

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• Aujourd'hui à 09:39

• #3

Bonjour à tous 🙂,
Puisque si la fonction est dans le module de code de Userform1, la fonction sans With...End fonctionne très bien (voir fichier), l'explication de @sylvanu, que je salue 😉, doit être la bonne. Mais encore une fois sans fichier 😕...

 

Pièces jointes

• Raoul AGONGBE- ListBox- v1.xlsm

  21.4 KB · Affichages: 2

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• Aujourd'hui à 10:09

• #4

Bonjour,
Si c'est pour des titres, il y a cette ressource.

Icône de la ressource

VBA - Ajouter facilement des titres à une ListBox ou une ComboBox (ActiveX ou UserForm)

20 Mars 2024

VBA - Easily add titles to a ListBox or a ComboBox (ActiveX or UserForm)

• Dudu2
• colonnes columns listbox titles titres
• Utilitaires

 

Vote positif 0 Vote négatif