ERROR '13' : Type Mismatch

Bonjour Ingrid,
Ingrid a écrit :

salut tout le monde,

je lance une boucle pour ajouter des infos dans une listview et j'ai tjs un
message d'erreur qui dit "Type Mismatch" !!!!!!!!j'ai tout verifié les dim
des variables et tout...je comprend pas qu'est ce qui génére cette erreur...

Qqu'un pourra m'aider please......

Merci
Kisses
Ingrid

Sans voir le code, ça me parait difficile de t'aider.

--
Cordialement,

Jacques.

Jacques,
ci-dessous le code. Il faut noter que qd je fais "For uno=2 to 8" j'ai pas
d'erreur mais par contre la derniere colonne reste vide donc logiquement je
rajoute 1 don "For uno=2 to 9" et là il bloque en generant un message type
:"Type mismatch".

merci jacques
Kisses

With Me.ListView1
.View = lvwReport
.Gridlines = False
.FullRowSelect = True

.ColumnHeaders.Add , , "Nom", 3000
.ColumnHeaders.Add , , "Prenom", 1000

For I = 1 To 8
.ColumnHeaders.Add , , Format(Text2, "dd/mmmm/yyyy"), 1500
Text2 = Text2 + 1
Next I


Set rc7 = New ADODB.Recordset
rc7.Open "SELECT * From Tables"



Do Until rc7.EOF
Set itmX = .ListItems.Add(, , rc7!Age)
itmX.SubItems(1) = rc7!Datedenaissance
For uno = 2 To 8
itmX.SubItems(uno) = rc7!Lieude naissance
rc7.MoveNext
Next uno
Loop

end with

"Jacques93" a écrit :

Bonjour Ingrid,
Ingrid a écrit :
> salut tout le monde,
>
> je lance une boucle pour ajouter des infos dans une listview et j'ai tjs un
> message d'erreur qui dit "Type Mismatch" !!!!!!!!j'ai tout verifié les dim
> des variables et tout...je comprend pas qu'est ce qui génére cette erreur...
>
> Qqu'un pourra m'aider please......
>
> Merci
> Kisses
> Ingrid

Sans voir le code, ça me parait difficile de t'aider.

--
Cordialement,

Jacques.

Bonjour Ingrid,
Ingrid a écrit :

Jacques,
ci-dessous le code. Il faut noter que qd je fais "For uno=2 to 8" j'ai pas
d'erreur mais par contre la derniere colonne reste vide donc logiquement je
rajoute 1 don "For uno=2 to 9" et là il bloque en generant un message type
:"Type mismatch".

merci jacques
Kisses

With Me.ListView1
.View = lvwReport
.Gridlines = False
.FullRowSelect = True

.ColumnHeaders.Add , , "Nom", 3000
.ColumnHeaders.Add , , "Prenom", 1000

For I = 1 To 8
..ColumnHeaders.Add , , Format(Text2, "dd/mmmm/yyyy"), 1500
Text2 = Text2 + 1
Next I


Set rc7 = New ADODB.Recordset
rc7.Open "SELECT * From Tables"



Do Until rc7.EOF
Set itmX = .ListItems.Add(, , rc7!Age)
itmX.SubItems(1) = rc7!Datedenaissance
For uno = 2 To 8
itmX.SubItems(uno) = rc7!Lieude naissance
rc7.MoveNext
Next uno
Loop

end with

Le code n'est pas complet (pas de dim, etc ...). Dans ce que tu publie
je ne vois pas de cause d'erreur si ce n'est 'rc7!Lieude naissance' où
l'espace provoque une erreur de syntaxe. Peux tu préciser sur quelle
ligne se produit l'erreur ?
--
Cordialement,

Jacques.