Enregistrement des données d'une listView

Version imprimable

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

21/12/2009, 14h24
fgiambelluco

Bonjour

Citation:

Dim i%, j%, k%, T$

Voila une façon de déclarer des variables que je n'avais pas vu depuis longtemps. :P

Sans trop à chercher à comprendre, je te propose d'essayer d'enlever tous les % et $.

D'autre part, tu déclare un T$ et ensuite tu utilises juste T. Est-ce normal ??
;)
21/12/2009, 14h34
monichou86

Euh non, petite erreur. Mais même quand j'ai rectifié et remplacé par T$ j'ai la même erreur.

Quand je fais le débogage mon T$="" donc la conversion n'est pas pris en compte!!?
21/12/2009, 14h43
fgiambelluco

Re
comme je te l'ai dis précédement

Citation:

je te propose d'essayer d'enlever tous les % et $.

Essaye ça et voit ce que cela donne.
21/12/2009, 14h50
monichou86

C fait mais j'ai oujours la même erreur!!