Bonjour Jean marie, le fil & le forum,
J'ai testé ta v4.2. Merci pour ce travail. Le choix des col OK, le calcul OK.
1/ Peux-tu stp m'expliquer les "BaseO!R[-3]C16>2000" dans la formule du calcul du ration SUN/SUB
Est-il possible de la remplacer par : =IF(BaseO!R[-3]C" & Col_BAT_SHON & ">2000,
2/ Gestion des erreurs :
Pour toute col définie dans le tableau ListCol de la fonction Recup_Tab, Si erreur, message OK. Après correction tout est OK.
Par contre s'il y a erreur dans le titre d'une col recherchée dans la macro extract et n'existe pas dans le tableau ListCol, par exemple BAT.SHOB, le calcul ne sera pas fait. C'est normal. Mais suite à la correction demandée, la macro extract ne s'exécute plus. Je m'e'xplique :
a- Dans la macro extract je saisi "BAT.SH OB"
If Tab_Entetes(1, C) = "BAT.SH OB" Then Col_BAT_SHOB = C
A l'exécution de la macro, aucun message d'erreur mais la col calculée "Diff_SHOB" dans BaseT est vide.
b- Je corrige l'erreur :
If Tab_Entetes(1, C) = "BAT.SHOB" Then Col_BAT_SHOB = C
c- Je réexécute plusieurs fois la macro, rien ne se passe.
d- Je modifie un titre de BaseO d'une col définie dans ListCol, un message d'erreur apparait.
Je corrige et la macro s'exécute normalement.
3/ Concernant mon paragraphe 3 de ma discussion #22 : Ne t'embête pas. Avec les 2 points ci-dessus la macro fonctionne et son adaptation n'est pas compliquée.
Merci encore
Amicalement
KIM