XL 2016 Problème Combobox UserForm VBA

[S[1]t'Yor]

Bonjour à tous et à toutes !

Je me retrouve bloqué, j'ai créé un UserForm ou j'ai 2 listes déroulantes avec des données extraites d'un Excel. Lorsque je fais tourner le programme, la liste s'affiche mais quand je choisis une des valeurs dans la liste, elle ne s'affiche pas dans la case du ComboBox. Est-ce un problème dans les propriétés de ma combobox ? Ou dans le code

Merci d'avance

Cordialement

S[1]t'Yor

 

[xUpsilon]

Bonjour,

A LIRE AVANT DE POSTER
Joignez un fichier.

Bonne journée,

 

[S[1]t'Yor]

Pardon pour mon oubli. Voici le fichier :

 

[xUpsilon]

Bonjour,

Comment est-ce que l'USF est appelé ? Qu'est ce qu'il devrait y avoir, et où ?
En lançant l'USF à la main, les listes sont vides :

Bonne journée,

 

[S[1]t'Yor]

Bonjour,

L'USF se lance dans le module Test_LC_Ajout_Ligne, pour faire le test, je fais un ctrl+F8 au niveau de la ligne 57 (MsgBox("Done")). C'est dans ce module la que je viens récupérer les données de mon excel

Bonne journée

 

[xUpsilon]

Re,

Dans Private Sub Items_Change() , retire Items.Clear.
Même chose dans Private Sub Type_Of_Part_Liste_Change().

L'évènement Change se déclenche à chaque fois que la sélection change dans la liste. En l'occurrence, chaque fois que tu sélectionnes un élément dans la liste, ça va clear Items (donc clear ta sélection) puis relancer le remplissage de la Liste.

Bonne journée,

 

[S[1]t'Yor]

Re,

Merci pour ta réponse ! Ca fonctionne. mais du coup, cela explique pourquoi a chaque fois que je choisis un élément de la liste, celle ci rajoute une nouvelle fois la liste en question ?

 

[xUpsilon]

Oui ça explique ce comportement en effet.
Je ne sais pas pourquoi tu as mis tes macros dans un évènement Change, mais ce n'est clairement pas une chose à faire au vu de l'utilisation souhaitée de ta liste.

Bien à toi,

 

[S[1]t'Yor]

Merci pour ta réponse, je suis vraiment novice en VBA et je ne comprends pas tout.... La, j'ai apporté des modifications et ça fonctionne. J'ai une dernière question : comment faire pour que les textBox à droite des listes déroulantes ne puisse pas être modifiées tant qu'il n'y a pas "Nouvel Item" de choisi dans la liste déroulante ?

Merci à toi pour ton temps

 

[xUpsilon]

Re,

Quelques modifications :
- UserForm_Initialize remplacé par UserForm_Activate
- Dans UserForm_Activate, on rajoute Textbox1.Locked = True (par défaut, textbox bloquée)
- Dans Items_Change, on rajoute

If Items.Value = "Nouvel Item" Then
    Textbox1.Locked = False
Else
    Textbox1.Locked = True
    Textbox1.Value = ""
End if

Bonne journée,

 

[S[1]t'Yor]

Merci à toi, ça fonctionne bien !!