Une liste de ComboBox dont les items sont invisibles

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 !

Magic_Doctor

XLDnaute Barbatruc
Bonjour,

Je veux dresser une liste d'une ComboBox contenue dans un USF.
Cette liste reprend tous les éléments d'une plage nommée : "plagefamTF1"
J'ai écrit ceci :
VB:
Private Sub UserForm_Initialize()
Dim dico As Object, i as Byte
Set dico = CreateObject("Scripting.Dictionary")
For i = 1 To [plagefamTF1].Rows.Count 'rempli le dictionnaire avec les noms contenus dans la plage nommée "plagefamTF1"
    dico([plagefamTF1].item(i)) = ""
Next i
Me.ComboBox.List = dico.keys 'dresse la liste de la ComboBox à partir du dictionnaire
Me.ComboBox.ListIndex = 0 'sélection par défaut du 1er item de la liste de la ComboBox lors de l'ouverture de l'USF
End Sub
C'est très curieux parce que ça marche, mais bizarrement. J'ouvre l'USF, le 1er item de la liste apparaît bien, mais en revanche les autres sont invisibles. Je clique dans la liste (qui semble vierge) et alors l'item sélectionné apparaît.
À quoi cette curiosité est-elle due ?

Merci pour toute explication.
 
Dernière édition:
Re : Une liste de ComboBox dont les items sont invisibles

Bonsoir Magic_Doctor,

Essayer de rajouter .value à l'instruction de remplissage de Dico (chez moi, avec value, le phénomène ne se produit plus)
Code:
dico([plagefamTF1].item(i).value) = ""
 

Pièces jointes

Dernière édition:
- 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

Discussions similaires

Retour