Activer une listbox

[dran_200]

Bonjour,
Au lancement de mon fichier, un premier Userform s'ouvre et tout est OK. Dans le premier listbox je selectionne une référence et cela active le bouton "Composant SAV". En cliquant dessus j'ouvre un autre userform, et dans le premier listbox il n'y a que la marque qui s'affiche. Mon soucis est que je voudrais que le premier listbox soit deja activer, actuellement je dois cliquer dessus pour afficher les choix du deuxième userform.
Je vous joint un exemple.
Merci pour votre aide.

 

[job75]

Re : Activer une listbox

Bonjour dran 200, le forum,

Dans la macro Private Sub UserForm_Activate() de UserForm2, mettre à la fin :

ListBox1.Selected(0) = True

A+

 

[dran_200]

Re : Activer une listbox

Re bonjour,
Merci pour ton aide. Ca ne fonctionne pas, ça affiche des résultats dans le deuxième listbox, mais pas les bons ! et si je clique dessus ça n'affiche pas les résultats dans les autres listbox, je dois recliquer sur la listbox 1. Il y a une base de données pour chaque userform.
Merci

 

[job75]

Re : Activer une listbox

Re,

Le code active la ListBox1 de UserForm2, point.

Si vous voulez aussi activer celle de UserForm6, mettez-le aussi dans sa macro UserForm_Initialize.

A+

 

[Robert]

Re : Activer une listbox

Bonjour Dran, Job, bonjour le forum,

Chez moi ça marche impeccable... Es-tu sûr d'avoir mis le code de Job au bon endroit ?

 

[dran_200]

Re : Activer une listbox

Bonjour
ça fonctionne, merci pour votre aide