Microsoft 365 Remplir une ComboBox à 3 colonnes avec les données d'un TS

[NONO14]

Bonjour à toutes et à tous,
Voilà, j'ai une Combo ("Cbx_Salarié") dans un formulaire (UfGestTemps) et je souhaiterai l'alimenter avec les 3 premières colonnes d'un TS ("t_Noms") qui se trouve dans la feuille "Liste_agents". J'ai réussi à mettre la 1ère colonne, mais je n'arrive pas à insérer les 2 autres. La colonne 1 est le code de l'agent, la colonne 2 le NOM et la colonne 3 le Prénom.
Pouvez-vous m'aider s'il vous plaît ?
Voici le début du code et mon fichier

Private Sub UserForm_Initialize()
Application.ScreenUpdating = False

'Chargement des différents contrôles du formulaire
'On vide la ComboBox Cbx_Salarié
    Me.Cbx_Salarié.Clear

'On la remplie à nouveau avec le TS "t_Noms" de la feuille "Liste_agents"
    With Sheets("Liste_agents").ListObjects("t_Noms")
        For I = 1 To .ListRows.Count
            Me.Cbx_Salarié.AddItem .DataBodyRange(I, 1)
        Next I
    End With

 

[vgendron]

Certes, mais ce n'est pas l'utilisation du codename qui fait que c'est plus court..

 

[NONO14]

Certes, mais ce n'est pas l'utilisation du codename qui fait que c'est plus court..

D'accord

 

[TooFatBoy]

L'avantage du code de Valtrase c'est qu'il est très court par rapport au mien.

Oui, et il correspond à ce qu'il y a dans mon deuxième lien (à part la spécification de la feuille, inutile à mon avis), donc ça répond à ma question précédente. 😉

 

[NONO14]

Oui, et il correspond à ce qu'il y a dans mon deuxième lien (à part la spécification de la feuille, inutile à mon avis), donc ça répond à ma question précédente. 😉

Mais est-ce que je peux garder mon code ?
Je vais tester le code de TootFatBoy

 

[TooFatBoy]

Je vais tester le code de TootFatBoy

C'est la même chose que #3, sans SheetCodeName. mais je n'ai pas testé. 😞

 

[NONO14]

C'est la même chose que #3, sans SheetCodeName. mais je n'ai pas testé. 😞

Très bien merci

 

[TooFatBoy]

Je vais tester le code de TootFatBoy

Au temps pour moi, tu as raison, ce que proposait mon deuxième lien n'était pas exactement la même chose que #3.

Ce serait plutôt un truc de ce genre (à tester) :

Me.Cbx_Salarié.rowsource = Range("t_Nom[[ID]:[Prénom]]").address

 

[NONO14]

Au temps pour moi, tu as raison, ce que proposait mon deuxième lien n'était pas exactement la même chose que #3.

Ce serait plutôt un truc de ce genre (à tester) :

Me.Cbx_Salarié.rowsource = Range("t_Nom[[ID]:[Prénom]]")

Je tape uniquement cette ligne de code ?

 

[ChTi160]

Bonjour le Fil
Je vois que dans les derniers Fichiers postés , tu as mis une Image en feuille "Accueil" qui semble représenter le personnel d'un établissement ou l'on produit de quoi manger lol
Donc , il y a différents types de fonctions non ? pourquoi ne pas avoir introduit cette Notion ?
Jean marie

 

[NONO14]

Bonjour le Fil
Je vois que dans les derniers Fichiers postés , tu as mis une Image en feuille "Accueil" qui semble représenter le personnel d'un établissement ou l'on produit de quoi manger lol
Donc , il y a différents types de fonctions non ? pourquoi ne pas avoir introduit cette Notion ?
Jean marie

Bonjour ChTi160,
En page d'accueil, ce n'est qu'une image, elle est vouée à être changé, pour le moment ce n'est juste que pour combler le vide.

 

[vgendron]

pourquoi tourner en rond et passer des heures sur UNE question que tu as déjà résolu avec la boucle
et la méthode additem??

Je tape uniquement cette ligne de code ?

j'imagine que tu l'as fait.. et que donc.. ca ne fonctionne pas;. puisque le rowsource demande une chaine de caractère.. et pas directement la plage

restes donc avec le additem et passe à autre chose..

 

[TooFatBoy]

Je tape uniquement cette ligne de code ?

Oui, essaye avec juste cette ligne.

Je crois qu'il faut ne pas laisser vide le paramètre RowSource dans VBE.

 

[NONO14]

Le code que j'ai posté au #6 fonctionne bien pour remplir ma Combo. Par contre, lorsque je clique sur un des Noms de la liste, seul le code reste dans la Combo et j'aimerai que les 3 restent affichés.
Comme faire s'il vous plaît ?

 

[NONO14]

pourquoi tourner en rond et passer des heures sur UNE question que tu as déjà résolu avec la boucle
et la méthode additem??

Je tape uniquement cette ligne de code ?

j'imagine que tu l'as fait.. et que donc.. ca ne fonctionne pas;. puisque le rowsource demande une chaine de caractère.. et pas directement la plage

restes donc avec le additem et passe à autre chose..

Tu as raison.

 

[NONO14]

Oui, essaye avec juste cette ligne.

Je crois qu'il faut ne pas laisser vide le paramètre RowSource dans VBE.

Avec juste cette ligne ça ne fonctionne pas. Mais bon, comme me l'a gentiment suggéré vgendron, je vais rester sur mon code et passer à autre chose. La Combo fonctionne et c'est le principal.