Remplir en tête listbox

Bonjour,
J’ai cette liste sur ma feuille Excel:

Je souhaite la reproduire en listbox suivante:

Je voudrais que les en-têtes de ma listbox dans le userform prennent les valeurs :
Nom, Prénom, Sexe …
Mon code est le suivant:

Dim ws_Pack_Office As Worksheet
Dim Annee As String
Dim Formation As String

Formation = « Ms_Pack_Office_ » & UserForm_Annee.ComboBox1.Value
Annee = Me.ComboBox1.Value

Set ws_Pack_Office = ActiveWorkbook.Worksheets(Formation)

UserForm_Formation.ListBox1.ColumnCount = 10
UserForm_Formation.ListBox1.ColumnWidths = « 70;70;20;60;140;140;70;60;60;60 »
UserForm_Formation.ListBox1.Clear
UserForm_Formation.ListBox1.List = ws_Pack_Office.Range(« C7:N100 »).Value

Que dois-je ajouter pour alimenter le listbox header avec :
Nom, Prénom, Sexe qui se trouvent dans la ligne 6 de ma feuille
Merc a vous

Bonjour

Il suffit d’inclure sa ligne dans l’instruction ici :

UserForm_Formation.ListBox1.List = ws_Pack_Office.Range(« C6:N100 »).Value

Remplacer C7 par C6

Un exemple ci-joint avec le même contexte

Cliques sur le bouton « Formulaire »

La ligne des entêtes est incluse dans la listebox

Essaies et dis moi

Classeur1.xlsm (21,0 Ko)

1 « J'aime »

Bonjour,
Merci pour votre réponse, et désolé pour le retard car je n’ai pas eu de notification sur mon profil.
J’ai repris votre code, et ça marche sauf que j’arrive pas à charger les autres colonnes de mon tableau, j’ai uniquement la 1ere colonne:

Le fichier en piece jointe:
Sur la feuille Accueil, cliquez sur le bouton

Choisir année 2021


Test .xlsm (43,5 Ko)

Bonjour

Je t’avais un peu oublié
Et donc de me replonger dans ta problématique

Si tu veux un certain de colonnes il faut paramétrer l’option en rapport ici :

6° donnée à partir du haut juste au dessus de « False » la ligne ColumnCount

Actuellement avec la valeur 1 pour une seule colonne

Pour toutes les colonnes à partir de la colonne C jusqu’à la colonne J il faut mettre la valeur 8 pour ces 8 colonnes sinon mettre la valeur correspondant au nombre de colonnes souhaitées :

J’ai mis la valeur 8 et j’obtiens ce résultat :

Ton fichier adapté ainsi

Testes et dis moi

Test .xlsm (43,7 Ko)

Merci,
J’ai pas pensé a ca, c’est réglé merci encore.

Valide la réponse c est toujours un petit plus sympathique

Au plaisir

1 « J'aime »

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.