Discussion :

[dev_php51]

Bonjour,
j'ai plusieurs listbox les une a coté des autres
et je souhaite sélectionner toute les listbox sur la même ligne
lors d'un clique sur la ligne

j'ai essaye ce qui suis lors du clique sur la ligne 2 cela me renvoi -1
je ne comprend pas trop

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub ListBox1_Click()
Dim iIndex As Integer
iIndex = UserForm.ComboBox1.ListIndex
 
UserForm.ListBox2.Selected(iIndex) = True
UserForm.ListBox3.Selected(iIndex) = True
UserForm.ListBox4.Selected(iIndex) = True
End Sub

merci ++

[Theze]

Bonjour,

Tu n'effectue probablement pas de sélection dans le ComboBox se qui retourne -1 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Private Sub ListBox1_Click()
 
    Dim iIndex As Integer
 
    iIndex = Me.ComboBox1.ListIndex
 
    If iIndex = -1 Then
        MsgBox "Veuillez faire une sélection dans le ComboBox !"
        Exit Sub
    End If
 
    Me.ListBox2.Selected(iIndex) = True
    Me.ListBox3.Selected(iIndex) = True
    Me.ListBox4.Selected(iIndex) = True
 
End Sub

Hervé.