XL 2019 En-tête fixe ListBox

[Raoul AGONGBE]

Bonjour chers experts à divers niveaux

J'ai une préoccupation à mon niveau à propos de ma ListBox à laquelle je veux fixer l'en-tête (une première expérience) mais qui ne répond pas. Je sollicite votre expertise pour y parvenir.

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

 

[sylvanu]

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 :

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.

 

[mapomme]

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 😕...

 

[Dudu2]

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