Erreur d'éxcution "13"

Fermé
sossso Messages postés 29 Date d'inscription dimanche 17 août 2014 Statut Membre Dernière intervention 12 juillet 2016 - 17 août 2014 à 17:35
ccm81 Messages postés 10907 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 janvier 2025 - 17 août 2014 à 21:07
Bonjour,

pour l'erreur 13 : incompatibilité type

avec le f8 on me disigne ses deux lignes ci-dessous et je sais pas ou est le probleme :

coutrevient = Sheets("CR").Range("D34").Value
Range("I" & i).Value = coutrevient * ((Range("H4") / 100) + 1)


est ce que l'expression "sheets" disigne bien la donnée de la feuille CR ?

Merci.
A voir également:

4 réponses

bonjour,
quels sont les types de "coutrevient" et de "Sheets("CR").Range("D34").Value" ?
il faut qu'ils aient le meme type.
exemple :
si tu defini "coutrevient" avec :
dim coutrevient as integer
ce sera un nombre
et si dans "Sheets("CR").Range("D34").Value" tu as une chaine de caractere, dans ce cas les types sont differents et l'erreur "incompatibilité type" survient
0
ccm81 Messages postés 10907 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 janvier 2025 2 430
17 août 2014 à 20:54
Bonjour

en plus de vérifier les types de tes variables comme le suggère fort justement quent que je salue au passage

1. Sheets("CR") fait bien référence à la feuille nommée CR
coutrevient = Sheets("CR").Range("D34").Value
ici tu as bien indiqué dans quelle feuille tu vas chercher la valeur de CoutRevient

2. Range("I" & i).Value = coutrevient * ((Range("H4") / 100) + 1)
Ici, tu n'as pas de référence à une feuille
Si ta procédure est dans un module général (Module 1 par exemple), il te faut préciser la feuille dans laquelle tu vas chercher tes valeurs

Si ça ne débloque pas la situation, mets ton fichier sur cjoint.com et joins le lien obtenu à ton prochain message

Cdlmnt
0
sossso Messages postés 29 Date d'inscription dimanche 17 août 2014 Statut Membre Dernière intervention 12 juillet 2016 1
17 août 2014 à 21:04
est ce que c possible que j'utilise meme pas la variable cout de revient dans ce code ?

je fais comme ça par exemple :

Range("I" & i).Value = Sheets("CR").Range("D34").Value * ((Range("H4") / 100) + 1)


Merci .
0
ccm81 Messages postés 10907 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 janvier 2025 2 430
17 août 2014 à 21:07
bien sûr que c'est possible
et si ça ne produit pas d'erreur, c'est bien que ta variable CoutRevient n'a pas le bon type (déclares là comme single ou double)
0