Discussion :

[Atoplix]

Bonjour,

Je voudrais qu'une listbox de mon userform soit scrollable (horizontalement et verticalement) MAIS sans pouvoir sélectionner un item contenu à l'intérieur de cette listbox.

J'ai essayé de tester des combinaisons de valeurs différentes avec les propriétés "enabled" et "locked" mais je n'ai pas réussi.


Je m'excuse par avance, si ce problème a déjà été résolu auparavant.
J'ai beau chercher sur le net, je n'ai pas trouvé la solution à mon problème...

Merci !

[joe.levrai]

Bonjour,

le contournement possible serait de déselectionner l'élément quand on click dessus

regarde la propriété ListIndex de ta listbox, et ce que fais la valeur -1 sur cette propriété dans l'aide

[Atoplix]

Le problème c'est que dans ma listbox, un item est sélectionné via le code et l'utilisateur ne doit pas sélectionné un autre item.

Ca risque d'être compliqué à implémenter... Il n'y a pas un moyen plus simple ?


EDIT :

En fait, je sais pas si en plus des propriétés "enabled" et "locked", il y aurai pas une petite manip' à faire ?

Par exemple : (exemple quelconque)

Enabled = True
Locked = False
????? = True

[Docmarti]

Bonjour Atoplix, à tous.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ListBox1.Locked = True

Il faut cacher la barre de défilement du ListBox grâce à un contrôle Frame.
Et utiliser un contrôle Barre de défilement.

[Atoplix]

Merci Docmarti pour ta réponse mais ...

Je n'ai jamais utiliser les contrôles type Barre de défilement. Cette solution n'est elle pas un peu "bourrin" à coder ?

[Docmarti]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ScrollBar1.Max = ListBox1.ListCount - 1
ScrollBar1.Min = 0

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub ScrollBar1_Change()
 
  ListBox1.TopIndex = ScrollBar1.Value
 
End Sub
 
 
Private Sub ScrollBar1_Scroll()
 
 ListBox1.TopIndex = ScrollBar1.Value
 
End Sub