Discussion :

[monichou86]

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 :

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
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