Enregistrement des données d'une listView

**monichou86** · 21/12/2009, 14h04

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

**fgiambelluco** · 21/12/2009, 14h24

Bonjour

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

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

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

**monichou86** · 21/12/2009, 14h34

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