Autres Ajout du choix "TOUS" dans une combobox

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

bernardrustrel

XLDnaute Occasionnel
Bonjour.
Je fais appel a vos compétences afin de me venir en aide sur une difficulté que je rencontre sur le fichier joint.
En effet, la combobox: CbGroupeAjout me permet d'afficher les costumes appartenant au même groupe.
Et j'essaie en vain d'ajouter le choix "tous" à la combobox: CbGroupeAjout afin de pouvoir afficher tous les groupes de costumes.
Le combobox devrai se présenter ainsi:
ligne 1: tous
ligne2: groupe1
ligne3=groupe2
ligne4=groupe3 etc...
Je vous en remercie par avance, cordialement
Bernard
 

Pièces jointes

Bonjour,
Essaye avec ce code
VB:
Private Sub UserForm_Initialize()
Set F = Sheets("Costumes")
    Set maliste = CreateObject("Scripting.Dictionary")
    maliste("Tous") = ""
    For Each C In F.Range("B2:B" & F.Range("B65536").End(xlUp).Row)
        maliste(C.Value) = ""
    Next C
    CbGroupeAjout.List = maliste.Keys
 End Sub
Code:
 
Bonjour,
Autre méthode:
VB:
Private Sub UserForm_Initialize()
Set F = Sheets("Costumes")
    Set Maliste = CreateObject("Scripting.Dictionary")
    For Each C In F.Range("B2:B" & F.Range("B65536").End(xlUp).Row)
        Maliste(C.Offset(, 0).Value) = ""
    Next C
    CbGroupeAjout.List = Maliste.Keys
    CbGroupeAjout.AddItem "Tous", 0
    
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour