Bonjour,
J'ai le même problème ! Sauf que je n'utilise pas une ScrollBar mais plutôt les flèches verticales de la ListBox.
J'ai une ListBox au niveau de mon UserForm et je veux que les flèches de haut et de bas inversent leur rôles.
Actuellement, quand j'appuie sur la flèche d'en haut, au lieu d'incrémenter ma valeur, elle passe à la cellule précédente (càd : valeur décrémentée), et inversement pour la flèche d'en bas.
Y'a une solution d'envisageable : Inverser le contenu des cellules (mais ça serait moche).
Help please !
Private Sub UserForm_Initialize()
' Liste Nb Sources
Me.ListBox18.Min= 6 '(ou Range("D9"))
Me.ListBox18.Max= 1 '(ou Range("D4"))
Dim NbSources As Range
For Each NbSources In ws.Range("D4:D9")
With Me.ListBox18
.AddItem NbSources.Value & " min"
End With
Next NbSources
For Each NbSources In ws.Range("D4:D9")
With Me.ListBox19
.AddItem NbSources.Value & " max"
End With
Next NbSources
'... suite du code
End Sub
J'ai même essayé au niveau du code spécifique de ma ListBox comme ci-dessous, mais en vain :
Private Sub ListBox18_Change()
ListBox18.Min = Range("D9")
ListBox18.Max = Range("D4")
End Sub