Supprimer un scrollBar vertical dans une ListBox
Bonjour à tous,
Je recherche comment supprimer un scrollBar vertical dans une ListBox.
Surtout dans propriété le scrollBar n'existe pas pour une ListBox.
Quelqu'un pourrait-il m'apporter la solution.
Merci d'avance
Amicalement
Noel
Bonjour
Quelle idée curieuse !
Pour ne pas avoir de scrollbar (ou ascenceur), il faut jouer sur la propriété "Height" et faire en sorte que sa valeur permette d'afficher tous les items. Je ne vois pas autre choses....
Bye !
Bonjour GMB,
C'est parfois pourquoi faire simple quand on peut faire compliqué.
J'ai une listBox variable, donc il m'est difficile de jouer sur la hauteur.
Merci de ton aide
Amicalement
Noel
cfn3cfn a écrit :donc il m'est difficile de jouer sur la hauteur.
Difficile peut-être mais pas impossible en trouvant la relation qui relie cette hauteur au nombre d'items...
Mais, sans ton fichier, là, c'est très difficile !
Bye !
Re,
Voici le fichier que j'ai mis sur un nouveau fil
Merci d'avance de ton aide
Amicalement
Noel
Bonjour à tous
dans l'autre post, qui est la suite,
si tu agrandi la listbox, elle ne tiendra plus dans l'userform
il serait préférable de juste modifier la façon dont mettre les données dans la listbox
comme ça pas de scroll vide et pas besoin de redimentionner
Private Sub UserForm_Initialize()
Dim derln As Integer
derln = Range("E" & Rows.Count).End(xlUp).Row
With ListBox1
' .Height = ((derln - 1) * 125 + 110) / 12
End With
ListBox1.RowSource = "Données!E2:K" & derln
'Me.TextBox1.Top = Me.ListBox1.Top + Me.ListBox1.Height + 5
'Me.TextBox2.Top = Me.ListBox1.Top + Me.ListBox1.Height + 5
End Sub