Autres Ajout du choix "TOUS" dans une combobox

[bernardrustrel]

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

 

[Jacky67]

Bonjour,
Essaye avec ce code

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

 

[fanch55]

Bonjour,
Autre méthode:

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

 

[bernardrustrel]

Bonjour
Désolé de répondre tardivement. Mais un grand merci votre aide c'est exactement ce qu'il me fallait.
Cordialement. Bernard