selection par défaut dans une listeBox

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

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

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

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