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

NONO14 · 7 Octobre 2024

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 · 8 Octobre 2024

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 · 7 Octobre 2024

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

NONO14 · 7 Octobre 2024

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

D'accord

TooFatBoy · 7 Octobre 2024

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 · 7 Octobre 2024

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 · 7 Octobre 2024

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 · 7 Octobre 2024

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

Très bien merci

TooFatBoy · 7 Octobre 2024

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 · 7 Octobre 2024

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 · 7 Octobre 2024

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 · 7 Octobre 2024

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 · 7 Octobre 2024

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 · 7 Octobre 2024

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 · 7 Octobre 2024

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 · 7 Octobre 2024

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 · 7 Octobre 2024

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 Impliqué

Pièces jointes

vgendron

vgendron

XLDnaute Barbatruc

NONO14

XLDnaute Impliqué

TooFatBoy

XLDnaute Barbatruc

NONO14

XLDnaute Impliqué

TooFatBoy

XLDnaute Barbatruc

NONO14

XLDnaute Impliqué

TooFatBoy

XLDnaute Barbatruc

NONO14

XLDnaute Impliqué

ChTi160

XLDnaute Barbatruc

NONO14

XLDnaute Impliqué

vgendron

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

NONO14

XLDnaute Impliqué

NONO14

XLDnaute Impliqué

NONO14

XLDnaute Impliqué

Discussions similaires