Selection item listbox a 3 colonnes

[gds35]

Mes AMIS Du forum Bonjour,

J'ai cree une listbox avec 3 colonnes , puis ajouter un bouton pour validation de l'item choisi.....

Impossible que l'tiem choisi soit en surbrillance en attendant sa validation par appui sur le bouton . Je ne comprends pas sans doute mais ss confirtion un probleme de parametre dans la propriete de la litbox mais ne vois pas et doute;

Voici mon code :

Private Sub UserForm_Initialize()
'
' Pasdecroix ME
'
Sheets("RU").Select
With Sheets("RU")
COMPORULIST.ColumnCount = 3
COMPORULIST.ColumnWidths = "20;20;40"
COMPORULIST.List() = .Range("C3:E" & .Range("E10").End(xlUp).Row).Value
End With

End Sub


Private Sub VERSRE1_Click()
Unload Me
COMPORURE.Show
End Sub


Merci de votre aide , des + cordialement GDS35

 

[Bebere]

Re : Selection item listbox a 3 colonnes

bonjour Gds
d'après ce que j'ai compris
'Sheets("RU").Select inutile
With Sheets("RU")
COMPORULIST.ColumnCount = 3
COMPORULIST.ColumnWidths = "20;20;40"
COMPORULIST.List() = .Range("C3:E" & .Range("E10").End(xlUp).Row).Value
COMPORULIST.Listindex=0'1er item ,va de 0 to COMPORULIST.listcount-1
End With

 

[gds35]

Re : Selection item listbox a 3 colonnes

Salut BEBERE , Bonne journée ,

J'ai incorporé ta ligne de code mais malheureusement je tombe en erreur 28 depassement de pile , si je l'hinibe , plus d'eurreur et pourtant je ne boucle pas sur mon sub ??? Comprends Pas

Cordialement GDS35

 

[Bebere]

Re : Selection item listbox a 3 colonnes

bonjour Gds
cette ligne est elle bonne(E10??)
COMPORULIST.List() = .Range("C3:E" & .Range("E10").End(xlUp).Row).Value
à bientôt

 

[gds35]

Re : Selection item listbox a 3 colonnes

Re Salut BEBERE ,

Montableau fait 5 Colonnes

7 lignes renseignées dont 2 de titres et 5 de données (E3 à E7) les lignes 8 à 10 sont vides.
Je t'ai ecris ces 2 lignes à 16H38 , ne te creuse pas les meninges depuis j'ai trouvé .
J'avais une ligne qui me creait une boucle qui n'en finissait +
Encore merci et Cordialement GDS 35