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
FFO
Juillet 15, 2021, 1:55
2
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)
FFO
Juillet 23, 2021, 12:25
4
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.
FFO
Juillet 23, 2021, 12:43
6
Valide la réponse c est toujours un petit plus sympathique
Au plaisir
1 « J'aime »
system
A fermé ce sujet ()
Août 22, 2021, 12:43
7
Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.