enfin une listbox flottante !

[ak59000]

salut à toutes et à tous,
j'ai trouvé ! la solution pour rendre flottante une listbox dans uen feuille de calcul.
absolument génial !
Profitez en bien

voici
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.Calculation = xlCalculationAutomatic
posy = ActiveCell.Left + 400
posx = ActiveCell.Top
With Me.ListBox1
.Left = posy
.Top = posx
End With
End Sub
bye
a+

 

[jeff]

salut le forum, ak59000

que represente Me.listbox1, pour moi, cela signifie une lisbox1 dans une userform, mais je ne vois pas apparaitre la usf

peux tu m'en dire plus sur ta trouvaille car elle m'interesse.
merci

 

[ak59000]

salut, ma listbox est simplement une listbox ajoutée sur ma feuille de calcul par le biais de la boite à outil controle que tu trouveras dans affichage barre d'outils boite à outils controles.
tu remplis par exemple dans ton classeur dans la zone a1:a10 du texte( ce que tu veux) puis dans les propriétés du ta listbox, tu mets dans listfillrange a1:a10.
puis tu mets integralheight à false.
amuse toi bien

 

[sandrine]

Re : enfin une listbox flottante !

Salut AK59000

Pour mieux te comprendre as tu la possibilité de joindre un fichier?

Bonne journée

 

[ak59000]

Re : enfin une listbox flottante !

ok pour demain !
a+