XL 2016 Problème Combobox UserForm VBA

xUpsilon

XLDnaute Accro

• 3 Novembre 2022

• #2

Bonjour,

A LIRE AVANT DE POSTER
Joignez un fichier.

Bonne journée,

 

Vote positif 0 Vote négatif

S

S[1]t'Yor

XLDnaute Junior

• 3 Novembre 2022

• #3

Pardon pour mon oubli. Voici le fichier :

 

Pièces jointes

• Test.xlsm

  180 KB · Affichages: 3

Vote positif 0 Vote négatif

xUpsilon

XLDnaute Accro

• 3 Novembre 2022

• #4

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,

 

Vote positif 0 Vote négatif

S

S[1]t'Yor

XLDnaute Junior

• 3 Novembre 2022

• #5

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

 

Vote positif 0 Vote négatif

xUpsilon

XLDnaute Accro

• 3 Novembre 2022

• #6

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,

 

Vote positif 1 Vote négatif

Solution

S

S[1]t'Yor

XLDnaute Junior

• 3 Novembre 2022

• #7

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 ?

 

Vote positif 0 Vote négatif

xUpsilon

XLDnaute Accro

• 3 Novembre 2022

• #8

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,

 

Vote positif 0 Vote négatif

S

S[1]t'Yor

XLDnaute Junior

• 3 Novembre 2022

• #9

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

 

Vote positif 0 Vote négatif

xUpsilon

XLDnaute Accro

• 3 Novembre 2022

• #10

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

VB:

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

Bonne journée,

 

Vote positif 1 Vote négatif

S

S[1]t'Yor

XLDnaute Junior

• 3 Novembre 2022

• #11

Merci à toi, ça fonctionne bien !!

 

Vote positif 0 Vote négatif