Bonjour le forum,
j'ai une petite question avec les checkboxes dans une listview.
J'essaie d'extraire les infos de la ligne cochée dans un formulaire.
J'ai trouvé ce code sur le forum et qui fonctionne parfaitement (merci à celui qui l'a fait, j'ai joint son fichier auquel j'ai ajouté un second formulaire):
Sub transfert()
Dim J As Byte
Dim i As Integer
Dim item
With UserForm1.ListView1
For Each item In .ListItems
If item.Checked = True Then
i = Range("A65536").End(xlUp).Row + 1
Cells(i, 1) = Format(CDate(.ListItems(item.Index).Text), "dd-mmm")
For J = 1 To .ColumnHeaders.Count - 1
Cells(i, 1 + J) = .ListItems(item.Index).ListSubItems(J).Text
Next J
End If
item.Checked = False
Next
End With
End Sub
Mais au lieu d'avoir les données qui s'affichent sur une ligne de la feuille, je voudrais que l'info de la première colonne arrive dans une textbox1 , la seconde une textbox2...d'un autre formulaire.
J'espère que je me suis expliquée clairement et que vous pouvez me donner quelques pistes.
Je vous joins le fichier.
Merci par avance, Marion
j'ai une petite question avec les checkboxes dans une listview.
J'essaie d'extraire les infos de la ligne cochée dans un formulaire.
J'ai trouvé ce code sur le forum et qui fonctionne parfaitement (merci à celui qui l'a fait, j'ai joint son fichier auquel j'ai ajouté un second formulaire):
Sub transfert()
Dim J As Byte
Dim i As Integer
Dim item
With UserForm1.ListView1
For Each item In .ListItems
If item.Checked = True Then
i = Range("A65536").End(xlUp).Row + 1
Cells(i, 1) = Format(CDate(.ListItems(item.Index).Text), "dd-mmm")
For J = 1 To .ColumnHeaders.Count - 1
Cells(i, 1 + J) = .ListItems(item.Index).ListSubItems(J).Text
Next J
End If
item.Checked = False
Next
End With
End Sub
Mais au lieu d'avoir les données qui s'affichent sur une ligne de la feuille, je voudrais que l'info de la première colonne arrive dans une textbox1 , la seconde une textbox2...d'un autre formulaire.
J'espère que je me suis expliquée clairement et que vous pouvez me donner quelques pistes.
Je vous joins le fichier.
Merci par avance, Marion