Combobox alimentée mais n'affiche rien

1 pièce(s) jointe(s)

Bonjour et Meilleurs voeux 2020,

Lors de l'initialisation de mon userform j'alimente 3 Combobox.
La combobox "CboBox_IFE_ID" me sert pour récupérer le numéro d'IFE et afficher le contenu des autres éléments de mon userform
Les 2 autres sont inactives tant qu'un bouton "Modifié" n'a pas été activé.

En testant le code en pas à pas je vois bien que mes combobox s'alimentent. Lorsque l'userfom s'affiche, et que je clique sur la flèche de la combobox "CboBox_IFE_ID" rien ne se passe (Pas de menu déroulant).
Si j'entre manuellement le 1er chiffre d'identificiant de l'IFE j'ai automatiquement la valeur de ma combobox qui m'affiche le premier identifiant de la liste, par contre je ne peux rien faire d'autre avec celle-ci.

Voici l'image de mon userform
Pièce jointe 529378

Ci-dessous le code d'initialisation de l'userform.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 Private Sub userform_initialize() Set WbIFE = Workbooks("IFE.xlsb") Set WsIFE = WbIFE.Worksheets("IFE") Set WsDpt = WbIFE.Worksheets("Dpt Db") Set WsDb = WbIFE.Worksheets("IFE Db") IFE_ID = WsIFE.Cells(Rows.Count & 1).End(xlUp).Row No_IFE_Type = WsDb.Cells(Rows.Count & 4).End(xlUp).Row No_UAP_Dpt = WsDpt.Cells(1 & Columns.Count).End(xlToLeft).Column '------------------------------------------------------------------------ 'Clear all ComboBox and TextBox contents '------------------------------------------------------------------------ Label_Creation_Date.Caption = "" Label_Creation_Time.Caption = "" CboBox_IFE_Type.Value = "" CboBox_Dpt.Value = "" CboBox_Section.Value = "" TxtBox_Working_Station.Value = "" Label_Issuer.Caption = "" TxtBox_Description.Value = "" TxtBox_Actions_Done.Value = "" TxtBox_Improvment.Value = "" '------------------------------------------------------------------------- 'Add all combobox items '------------------------------------------------------------------------- For i = 4 To IFE_ID CboBox_IFE_ID.AddItem WsIFE.Cells(i, 1) Next For k = 2 To No_IFE_Type CboBox_IFE_Type.AddItem WsDb.Cells(k, 4) Next For j = 1 To No_UAP_Dpt CboBox_Dpt.AddItem WsDpt.Cells(1, j) Next End Sub
A noter que les variables "i,j et k" tout comme les workbooks et worksheets sont déclarés en public de l'userform.

Pouvez vous m'aider à comprendre le blocage.

Merci à toutes et tous.

Bonjour pimpom,

Je suis actuellement entrain d'apprendre les ComboBox justement, et j'ai ce code-là qui alimente de manière automatique et dynamique ma ComboBox. En espérant que cela puises t'aider.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub TestCBox() Dim TextR As Range, Cellule As Range UF.CB1.Clear Set TextR = Sheets(1).Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp)) For Each Cellule In TextR UF.CB1.AddItem (Cellule.Value) Next UF.Show End Sub

Je reviens sur ce sujet.
J'ai testé plusieurs méthodes.

Lorsque je relance mon fichier et que je test les userforms individuellement ça marche, mais lorsque je passe à l'userform suivant les listes déroulantes ne s'affichent pas en cliquant dessus. Par contre je peux rentrer manuellement les valeurs.

Je ne vois pas d'où ça peut venir.

Problème résolu.
Il s'agissait d'une mauvaise configuration à l'initialisation d'un userform, qui me faisait planter toutes les combobox des autres userforms.

Merci à ceux qui se sont cassé la tête dessus.