Problème "Scrollage" Listbox

Version imprimable

02/06/2015, 11h54
Atoplix

Problème "Scrollage" Listbox

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 !
02/06/2015, 12h18
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 :f1: ;)
02/06/2015, 13h02
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 ? :roll:

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
02/06/2015, 14h16
Docmarti

Bonjour Atoplix, à tous.

Code:

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.
02/06/2015, 15h44
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 ?

Code:

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

Code:

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

03/06/2015, 09h46
Atoplix

Merci Docmarti !

Problème semi résolu mais on y est presque. :P

Pour le scrollage vertical ça marche parfaitement mais comment faire pour le scrollage horizontale ?

Pour la barre de défilement horizontale, on doit jouer avec les valeurs de ListBox1.ColumnWidths.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
Dim memListBox1ColumnWidths As String
 
Private Sub UserForm_Initialize()
 
'ListBox1.ColumnWidths = "50;50;50;50;50;50;50"
ScrollBar2.Min = 0
ScrollBar2.Max = ListBox1.ColumnCount - 1
End Sub
 
Private Sub ScrollBar2_Change()
 
Dim ColWidths As String
 
If memListBox1ColumnWidths = "" Then
 If ListBox1.ColumnWidths = "" Then
  ColWidths = ""
  For i = 0 To ListBox1.ColumnCount
   ColWidths = ColWidths & 50 & ";"
  Next
  ListBox1.ColumnWidths = ColWidths
 End If
 memListBox1ColumnWidths = ListBox1.ColumnWidths
End If
 
t = Split(memListBox1ColumnWidths, ";")
 
ColWidths = ""
For i = 0 To UBound(t)
 If i >= ScrollBar2.Value Then
 
   ColWidths = ColWidths & t(i) & ";"
  Else
 
   ColWidths = ColWidths & "0;"
 End If
Next
ListBox1.ColumnWidths = ColWidths
 
End Sub

04/06/2015, 09h32
Atoplix

Merci une fois de plus, problème résolu !