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

NONO14 · Lundi à 09:22

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

VB:

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 · Mardi à 10:59

Hello
@ChTi160 : 7 colonnes?? pourquoi faire??

tout ca me parait bien compliqué pour pas grand chose
un combo avec UNE colonne (utilisation originelle d'un combo==> sinon, on utilise un listbox)

VB:

'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 Me.Cbx_Salarié
        .ColumnCount = 1
        For I = 1 To Tbl.ListRows.Count
            .AddItem Tbl.DataBodyRange(I, 2).Value & " " & Tbl.DataBodyRange(I, 3).Value & " " & Tbl.DataBodyRange(I, 1).Value 'on concatène les colonnes 
        Next I
    End With

vgendron · Lundi à 12:01

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

NONO14 · Lundi à 12:04

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

D'accord

TooFatBoy · Lundi à 12:05

NONO14 à dit:
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 · Lundi à 12:32

TooFatBoy à dit:
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 · Lundi à 12:43

NONO14 à dit:
Je vais tester le code de TootFatBoy

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

NONO14 · Lundi à 12:49

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

Très bien merci

TooFatBoy · Lundi à 13:55

NONO14 à dit:
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) :

Code:

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

NONO14 · Lundi à 14:05

TooFatBoy à dit:
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) :

Code:

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

Je tape uniquement cette ligne de code ?

ChTi160 · Lundi à 14:19

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 · Lundi à 14:22

ChTi160 à dit:
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 · Lundi à 14:23

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??

VB:

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 · Lundi à 14:24

NONO14 à dit:
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 · Lundi à 14:25

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 · Lundi à 14:25

vgendron à dit:
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??

VB:

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 · Lundi à 14:27

TooFatBoy à dit:
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.

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

NONO14

XLDnaute Occasionnel

Pièces jointes

vgendron

vgendron

XLDnaute Barbatruc

NONO14

XLDnaute Occasionnel

TooFatBoy

XLDnaute Barbatruc

NONO14

XLDnaute Occasionnel

TooFatBoy

XLDnaute Barbatruc

NONO14

XLDnaute Occasionnel

TooFatBoy

XLDnaute Barbatruc

NONO14

XLDnaute Occasionnel

ChTi160

XLDnaute Barbatruc

NONO14

XLDnaute Occasionnel

vgendron

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

NONO14

XLDnaute Occasionnel

NONO14

XLDnaute Occasionnel

NONO14

XLDnaute Occasionnel

Discussions similaires