Discussion :

[guyanais]

Bonjour ,

Dans un listview je renvois les valeurs de la colonne A et la colonne D dans une autre feuille.
Je voudrais renvoyer uniquement la ligne selectionné. Je crois qu'il me faut un "selected" mais je ne sais pas ou le mettre dans mon code.
Si vous pouvez m'aider merci de me consacrer un peu de votre temps.
Je vous met le code

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub cmbExport_Click()
ligne = 1
With Me.ListView1
For I = 1 To .ListItems.Count
ligne = ligne + 1
Sheets("Impression").Cells(ligne, 1) = .ListItems(I)
Sheets("Impression").Cells(ligne, 4) = .ListItems(I).ListSubItems(3)
Next I
End With
End Sub

Je pensais que je pouvais, je crois faire avec ca mais la fin je ne sais pas.

Code :

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

1
2
3
Private Sub ListView1_DbClick()
Dim valeurs As String
valeurs = ListView1.ListItems.Item(ListView1.SelectedItem.Index).

[guyanais]

Bonjour le forum,

J'ai trouvé la solution à mon probléme. Je voulais renvoyer 2 valeurs dans une

Code :

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

1
2
3
4
5
6
7
8
9
10
11
ligne selectionné sur un listview.
Private Sub cmdexport_Click()

With Me.ListView4
Sheets("Feuille1").Cells(5, 12) = .SelectedItem 
'renvoi la valeur de la colonne 1 de la ligne selectionné dans la feuille1 ligne 5 colonne 12
Sheets("Feuille1").Cells(13, 1) = .SelectedItem.ListSubItems(5)
'renvoi la valeur de la colonne 6 de la ligne selectionné dans la feuille1 ligne 13 colonne 1
Unload Me 'ferme la formulaire
End With
End Sub