list box récupération des valeurs dans un userform

Version imprimable

22/01/2008, 10h20
mindar

list box récupération des valeurs dans un userform
c'est encore moi

j'ai un userform ou je peut sélectionner dans une liste plusieurs numéros d'une colonne d'un tableau

je n'arrive pas à crééer le code du bouton de validation qui va récupérer ces numéros copier la ligne correspondante aux numéros sélectionner dans la liste dans une autre feuille

j'avais réussi à capter le numéro d'une combobox pour afficher un message du style vous avez sélectionner X sauf que pour ma liste elle est en multi sélection et du coup ça ne marche plus
Code:

1 2 Private Sub Valider_Click() MsgBox "vous avez sélectionné le bac " & ListBox1.Value
J'avais ce code là ou j'ai bien entendu modifier le combobox en listbox mais il n'affiche plus rien

dur le vba quand c'est pas notre boulot :aie:

Bonjour,

Essaye ceci :

Code:

1
2
3
4
5
6
7
8
9
Private Sub Valider_Click()
 
For i = 0 To ListBox1.ListCount - 1
   If ListBox1.Selected(i) Then
      MsgBox "Vous avez sélectionné le numéro de colonne " & ListBox1.List(i)
   End If
Next i
 
End Sub

wape

merci bien ça marche il m'affiche plusieurs msgbox avec chacune un numéro

par contre comment faire pour que une fois que j'ai sélectionné mes numéros de ma colonne il faudrait qu'il me colle les lignes correspondantes à ma sélections dans une autre page :oops:

j'avais ce code là mais il colle juste le numéro sélectionné et pas la ligne correspondante et en plus il faut passer sur une autre feuille
Code:

1 2 3 4 5 6 7 8 9 10 11 12 'If ListBox1.ListIndex = -1 Then Exit Sub 'MsgBox "vous avez sélectionné " & ListBox1.List(ListBox1.ListIndex) 'Dim I As Integer, y As Integer 'With Me.ListBox1 'For I = 0 To .ListCount - 1 'If .Selected(I) = True Then ''y = y + 1 'Range("b" & y).Value = .List(I) 'End If 'Next I 'End With

23/01/2008, 08h44
Invité
Bonjour

Regardes dans l'aide Excel, la propriété List à deux arguments
- La ligne (Row)
- La colonne (Column)
Starec
23/01/2008, 08h56
mindar

en fait ça je le sais mon soucis avec le vba c'est que j'ai du mal à savoir ou je dois placer mes arguments et la syntaxe pour qu'il comprenne bien ce que je veut:oops:

Bonjour,

Voici un petit exemple (à adapter) qui copie les lignes sélectionnées dans une nouvelle feuille :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Valider_Click()
 
j = 0
For i = 0 To ListBox1.ListCount - 1
   If ListBox1.Selected(i) Then
      j = j + 1
      For k = 1 To ListBox1.ColumnCount
         Worksheets("Feuil2").Cells(j, k).Value = ListBox1.List(i, k - 1)
      Next k
   End If
Next i
 
End Sub

wape