Discussion :

[flamel]

Bonjour,
Je voudrais extraire la ligne sélectionnée d'une listBox.

Code :

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

x = listbox1.value

ne marche pas.
J'ai essayé des tas de codes, mais je n'y arrive pas.
Quel code employer ?
Merci si vous pouvez me dépanner.

[jmh51]

Bonjour,

Déjà , il faudrait savoir si ta listbox est dans une userform ou dans une sheet ? Comment est-elle alimentée ?

Sinon, qqch comme ceci devrait fonctionner :

Code :

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

1
2
3
For i = 1 To UserForm1.ListBox1.ListCount
    MsgBox UserForm1.ListBox1.List(i - 1)
Next i

[rvtoulon]

Bjr,
pour

Code :

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

x = listbox1.value

Sur l'évènement double clic de la listbox en donnant pour l'exemple à la cellule B10 la valeur sélectionnée dans la listbox

Code :

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

1
2
3
4
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
x = Me.ListBox1.Value
[B10] = x
End Sub

@+

[flamel]

Merci de me répondre.

Le classeur très simple, pour essai, a 3 feuilles A,B et C.
La listBox est dans la feuille "A" qui possède aussi le CommandButton1.
Voici le code dans la feuille "A" :

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
18
19
20
21
22
 
Option Explicit
    Dim xListe As Variant
    Dim x As Variant
 
 
Private Sub ListBox1_Click()
  Dim i  As Integer
 
    Sheets("A").Select
    ListBox1.Clear
    xListe = Array("A", "B", "C")
    For i = 0 To 2
        ListBox1.AddItem Range("A1").Offset(i, 0).Value
    Next
 
End Sub
Private Sub CommandButton1_Click()
          x = Sheets("A").ListBox1.SelectedItem.Value
MsgBox (x)
 
End Sub

J'ai fait un programme assez important, mais devant mes difficultés avec listBox, j'ai écrit ce petit truc, plus facile pour mes essais.

Merci pour l'aide.

[rvtoulon]

Re, j'ai légèrement modifié ton code :

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
18
19
20
21
22
Option Explicit
 Dim xListe As Variant
    Dim x As Variant
 
Private Sub CommandButton1_Click()
Dim x As String
   x = Me.ListBox1.Value
MsgBox x
 
End Sub
Private Sub ListBox1_GotFocus()
 Dim i  As Integer
 
  Me.ListBox1.Clear
    xListe = Array("A", "B", "C")
 
    For i = 0 To 2
        Me.ListBox1.AddItem (Range("A1").Offset(i, 0).Value)
    Next
 
Me.ListBox1.ListIndex = 0
End Sub

J'ai remarqué que sur l'évènement click de la listbox sa coince alors qu'avec l'évènement GotFocus non. ??
Bref comme ceci ça fonctionne

[flamel]

Merci rvtoulon, ça marche.
Je vais pouvoir continuer après 2 jours de panne !