Version imprimable
:lahola: Ca marche presque, j'ai fait un test et la macro me complète déjà la première case c'est un très bon début.
Par contre j'ai ensuite un message qui me dit "Erreur d'exécution '6' Dépassement de capacité" et lorsque je clique sur débogage il me met cette ligne en jaune
Code:CelTest = CInt(CelTest) + CInt(c.Offset(0, 5))
SAlut
Hummm bizard les entiers (Integer) ca va jusqu'a 65000 (environ)
Essai ca
Si ca ne marche toujours pas il faut que tu regarde sur quelle cellule ca mer** et me dire la valeur contenu dans la cellule et dans CelTestCode:CelTest = CLng(CelTest) + CLng(c.Offset(0, 5))
A++
Qwaz
Les nombres de type Integer vont de -32768 à 32767. Pour pouvoir identifier des nombres en dehors de ces limites, il faut obligatoirement passer par une variable de type LongCitation:
Envoyé par Qwazerty
Ok?
Oui pardon, j'ai effectivement melangé les 2 dans ma tete :)
Sauf qu'ici on identifi juste des valeurs inscrites dans des cellules, il faut donc voir quelle sont ces valeurs pour savoir si elles appartiennent au domaine Integer ou Long
A++
Qwaz
Le problème, c'est que cInt force le type de l'opération intermédiaire . C'est un problème de la conversion (cast) implicite de VB.Citation:
Envoyé par Qwazerty
Ainsi, le code
envoit une erreur, alors que 80000 se trouve dans les limites des entiers longs. :aie:, car (CInt(40000) + CInt(40000)) est d'abord évaluée en temps que Integer avant que la valeur soit passée à a...Code:
2
Donc, si
renvoie une valeur hors limites par rapport à Integer => plantage...Code:CInt(CelTest) + CInt(c.Offset(0, 5))
:aie: euhhhhh j'ai pas tout compris. C'est quoi la solution à mon problème?
Le problème potentiel vient du fait que le résultat de
DOIT ETRE un entier simple (limites -32768 à + 32767). Si l'addition des deux valeurs de cellules donne un nombre hors de ces limites, il y a plantage. Donc, pour étendre la plage des valeurs possibles, il faudrait utiliserCode:CInt(CelTest) + CInt(c.Offset(0, 5))
comme le préconisait QwazertyCode:CelTest = CLng(CelTest) + CLng(c.Offset(0, 5))
Re
Meme si j'ai donné la bonne reponse je ne connaissais pas cette particularité du language, merci donc a toi pour l'info ;)
A++
Qwaz
Bon la macro est presque bonne. J'ai presque sauté de joie en voyant mes cases se compléter. Je me suis donc mises à vérifier que les chiffres étaient correctes au début pas de problème mais j'ai très vite déchanté.
Voila le problème que j'ai trouvé, et je peux vous dire que j'ai mis le temps (avec 80 feuilles...) de quoi vous donner mal à la tête :aie:
1/ pour le même mois si toute les valeurs se trouvent à la 1ère ligne (A11) le calcul se fait correctement => le résultat est donc bon
2/ si j'ai un mois qui apparait en 2ème ligne (A12) il récupére le montant en D12 (jusque là c'est bon) MAIS il l'additionne avec la A11 (même si ce n'est pas le même mois) => le résultat est donc faux avec des écarts énorment.
Par contre il va bien récupérer les différents mois dans les différents tableaux. Il faut simplement que la macro ne récupére les infos se trouvant dans les lignes du dessus (Je ne sais pas si je suis très clair...)
Comment peut on résoudre ce problème???
Je compte vraiment sur vous, parce que jusque là vous m'avez vraiment bien aidé.
PS: je vous mets les fichiers test pour que vous puissiez visualiser le problème (regarder par rapport au mois d'aout j'ai un résultat de 5200 dans le tableau Dépenses+ heures... alors que je devrais avoir un montant de 5000 [cf page 4 du tableau Facturation fournisseurs..]) problème identique dans mes "vrai" tableaux...
Encore merci de votre aide
SAlut
Baa on va dire que je suis ronchon ... mais un petit effort
Il sufft de remplacer ca
par caCode:CelTest = CLng(CelTest) + CLng(c.Offset(0, 5))
et le tour et joué ;)Code:CelTest = CLng(CelTest) + CLng(c.Offset(0, 3))
A++
Qwaz
:lahola::lahola::lahola:
Bon je pense que ça exprime bien ce que je pense. Vous êtes des chefs. Merci beaucoup. La macro fonctionne super bien.
vu que je suis un peu perfectionniste, j'ai remarqué que la macro arrondi mon résultat, je souhaite avoir a la place 2 chiffres après la virgule. Si ce n'est pas trop compliqué je veux bien l'astuce...
Et encore merci.
Utilise ceci
Code:CelTest = round(CDbl(CelTest) + CDbl(c.Offset(0, 3)),2)
Ca ne fonctionne pas, le résultat est multiplié...
SAlut
8O multiplié ?
heu tu as du faire une boulette Laura, le code de Pierre fonctionne parfaitement.
A++
Qwaz
:king: autant pour moi, cela fonctionne parfaitement, j'avais en effet du faire une erreur.
Encore merci de votre aide