Erreur d'éxcution "13"

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

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

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 .

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)