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
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
A voir également:
- Erreur d'éxcution "13"
- Erreur 0x80070643 - Accueil - Windows
- Redmi note 13 5g test - Accueil - Téléphones
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- Erreur 1001 outlook - Accueil - Bureautique
- Fifa 13 apk - Télécharger - Jeux vidéo
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
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
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
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
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
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
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 .
je fais comme ça par exemple :
Range("I" & i).Value = Sheets("CR").Range("D34").Value * ((Range("H4") / 100) + 1)
Merci .
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
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)
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)