Autres Ajout du choix "TOUS" dans une combobox

bernardrustrel · 19 Mars 2021

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 · 19 Mars 2021

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:

fanch55 · 19 Mars 2021

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

bernardrustrel · 1 Avril 2021

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

Autres Ajout du choix "TOUS" dans une combobox

bernardrustrel

XLDnaute Occasionnel

Pièces jointes

Jacky67

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

bernardrustrel

XLDnaute Occasionnel

Discussions similaires