run time error '13' type mismatch

Question

Bonjour à tous,
j'ai un soucis concernant un bout de code  que j'essaie d'exécuter
Dim n As Integer

For n = 6 To 900
    S3.Cells(n, 47) = S3.Cells(n, 45) / S3.Cells(n - 1, 45) - 1
Next n

j'essaie de calculer les valeurs de ma plage ("AV6:AV900") de ma feuille 3 en suivant la formule suivante :
AV6=AT6/AT5 - 1

 Mais je recois un message d'erreur ( "type mismatch"), pouvez- vous s'il vous plait m'éclairer si je fais effectivement une erreur et comment la contourner? 
je galère depuis ce matin .
Merci de votre aide, cordialement

jordane45 · Answer

Bonjour,

Es tu certain de n'avoir que des nombres dans tes cellules ?
Quand tu exécutes ce code en mode pas à pas... a quelle itération de ta boucle (autrement dit.. que vaut N ) lorsque ça plante ?

Laetitiayao · Answer

Bonjour à tous,
je reviens sur ce que j'ai declaré la colonne ou il y a un NA n'est pas concernée par le code 
"AT" correspond à la 46 eme colonne ( c'est à la premiere ligne que j'ai un NA)
sinon le code porte sur  "AS"( 45 eme colonne). 
Merci de vos réponses et belle journée

Laetitiayao · Answer

Merci jordane45 et patrice33740 vous aviez effectivement raison la colonne comportait un NA à la ligne 896, je l'ai remplacé et il marche correctement. cependant j'ai le même problème avec et autre bout de code

Dim g As Long
For g = 5 To 900
    If Application.VLookup(S3.Cells(g, 50), S3.Range(Cells(5, 4), Cells(900, 6)), 2, False) = S3.Cells(9, 1).Value Then
        S3.Cells(g, 51) = Application.VLookup(S3.Cells(g - 1, 50), S3.Range(Cells(5, 4), Cells(900, 6)), 2, False)
    Else
        S3.Cells(g, 51) = Application.VLookup(S3.Cells(g, 50), S3.Range(Cells(5, 9), Cells(900, 11)), 2, False)
    End If
Next g

Les données sont bien présentes , ci - joint mon fichier:

 https://www.cjoint.com/c/HGyjKyftOOh

Run time error '13' type mismatch

3 réponses

Discussions similaires

Newsletters