selection par défaut dans une listeBox

[Frédéric]

Bonjour à tous le forum,
quel instruction peut me permettre de selectionner par défaut un element de ma listbox à l'ouverture du userform qui le contient?

j'ai essayé :


Private Sub UserForm1_initialize()

Userform1.ListBox1.RowSource = _
Workbooks("essai.xls").Sheets("Feuil1").Range("A1:A10").Address(external:=True)

Useform1.ListBox1.ListIndex = 3 '(selection du 3ème de la liste)(blocage à cette instruction...)

End Sub



mais ça ne marche pas....
Merci d'avance de vos réponses.
Cdt
FL

 

[michel]

bonjour Frederic


je viens de tester ta macro .chez moi cela fonctionne sans probleme

la seule chose anormale est le "r" manquant dans le "UserForm"

remarque : l'index de la premiere ligne d'une ListBox commence à 0 , si tu souhaites selectionner la 3eme ligne , il faut écrire :
ListBox1.ListIndex = 2


Private Sub UserForm_Initialize()
UserForm1.ListBox1.RowSource = _
Sheets("Feuil1").Range("A1:A10").Address(external:=True)
UserForm1.ListBox1.ListIndex = 2
End Sub

tu peux aussi ecrire directement

Private Sub UserForm_Initialize()
ListBox1.RowSource = _
Workbooks("essai.xls").Sheets("Feuil1").Range("A1:A10").Address(external:=True)
ListBox1.ListIndex = 2
End Sub


bonne soiree
MichelXld

 

[Frédéric]

Bonjour Michel, Bonjour le forum

trouve(z) ci joint le fichier zippé avec l'exemple toujour bloquant. J'ai rajouté un bouton dans le userform qui permet, lui, de faire cette selection!.
Il demeure cependant qu' elle ne peut se faire, ici, automatiquement à l'initialisation de l'Userform...
Qu'en penses tu? Qu'en pensez vous?

Merci d'avance de ta (vos)réponse(s).
Cdt
FL

 

[michel]

bonsoir Frederic

il ne s'agit que d'un petit probleme de synthaxe
tu peux tester l'adaptation dans la classeur joint

dans le module , pour lancer l'USF

Sub essai()
UserForm1.Show
End Sub


dans l'USF

Private Sub UserForm_Initialize()
ListBox1.RowSource = _
Workbooks("Classeur1.xls").Sheets("Feuil1").Range("A1:A10").Address(external:=True)
ListBox1.ListIndex = 1
End Sub


bonne soiree
MichelXld

 

[Frédéric]

AAAhhhhhhh!!!!!!.....................

merci!,
merci!,
merci!,
merci!,

car je commençais vraiment à en perdre mon latin....
Tu es un chef michel.
Bonne journée.
Excellement
Frédéric