Re : VBA - Problème de somme en pourcentage
Bonjour Florian ,
Alors avant même d'analyser ton code ,
Il faut le simplifier , peut être créer des sous routines ,
car là ça donne le vertige , tu perdras à chaque fois un temps fou dans tes mises au point .
Si tu veux , tu peux déjà te débarrasser d'une bonne partie des select , qui ne sont pas indispensables et surtout gros consommateurs en temps de traitement .
Le coup du word pour donner la macro , l'on me l'avait jamais fait encore , pourquoi ne pas l'intégrer directement dans ton classeur ?
la définition des zones d'impression devrait faire l'objet d'une sous routine paramètrable .
cela évite d'écrire 200 fois la même chose et de risquer de faire 200 fois les même erreurs
voici un premier travail que tu peux effectuer les expressions de ce genre :
Range("AE15").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-31]:RC[-1])"
ce transforme en
Range("AE15").FormulaR1C1 = "=SUM(RC[-31]:RC[-1])"
et ici
Range("AE23:AE26").Select
Range("AE23:AE26,AE20:AE21,AE15").Select
Range("A1:H1").Select
Range("AE15").Select
il ne devrait rester que la derniére ligne , et encore modifiée en :
Range("AE15").FormulaR1C1 = "=SUM(RC[-31]:RC[-1])"
Si tu ne veux pas effacer de suite , tu peux aussi utiliser les commentaires.
Mais c'est pas trés sérieux de vouloir nous faire déverminer du code au kilomètre venant à 90 % de l'enregistreur de macro .
Tu vois , l'Extraterrestre , à nouveau prés à t'aider . A bientot peut être ?