Enregistrement des données d'une listView
Hello,
je vouudrais enregistrer toutes les données entrées ou modifiés d'une listView. Pour cela, j'ai écris ce code qui émet une erreur au niveau du CInt (erreur: variable incompatible):
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Private Sub Enregistrer()
Dim i%, j%, k%, T$
i% = Sheets("rex_data").UsedRange.Rows.Count + 1
For i% = 1 To ListView2.ListItems.Count
For j% = 0 To ListView2.ColumnHeaders.Count - 1
If j% = 0 Then
T = ListView2.ListItems(i).Key
If Len(T) > 0 Then T = Right(T, Len(T) - 1)
k% = CInt(T)
Sheets("rex_data").Cells(k%, j% + 1).Value = ListView2.ListItems(i%).Text
Else
Sheets("rex_data").Cells(k%, j% + 1).Value = ListView2.ListItems(i%).ListSubItems(j%).Text
End If
Next j%
Next i%
End Sub |
J'ai bien l'impression que la conversion ne se fait pas mais jne sais pas pourquoi!!!
Help me please:?:?