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 10543 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 18 mars 2023 - 17 août 2014 à 21:07
ccm81 Messages postés 10543 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 18 mars 2023 - 17 août 2014 à 21:07
A voir également:
- Erreur d'éxcution "13"
- Erreur 1004 vba ✓ - Forum VB / VBA
- Macos 13 - Guide
- Erreur 1000 france tv - Forum MacOS
- Youtube une erreur s'est produite ✓ - Forum YouTube
- Erreur d'execution 13 ✓ - Forum Programmation
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
10543
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
18 mars 2023
2 336
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
10543
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
18 mars 2023
2 336
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)