Rapport de message :*
 

Re: Adapter macro a des couleurs definies dans un graph camenbert

Titre du sujet : Re: Adapter macro a des couleurs definies dans un graph camenbert
par myDearFriend! le 19/11/2007 19:22:23

Bonsoir papi73, le Forum,

En premier lieu, soit le bienvenu dans ce forum.

Ensuite, il va falloir que tu développes un peu tes explications papi73... Il manque certains éléments qui me paraissent indispensables pour comprendre et trouver une solution à ton problème.

Si j'ai bien analysé la situation, voici le déroulement des opérations tel que j'ai cru le comprendre :
[list=1]
[*]Tu saisis des données manuellement en feuille Fiche, dans une cellule ou une plage BR(?)
Première interrogation pour moi : tu parles de BR1 dans ton post et ton code VBA semble cibler la cellule $BR$12. Qu'en est-il exactement ?
[*]Cette saisie déclenche la macro "ImporterWordVersExcel" qui, sauf erreur de ma part, va rapatrier des données en feuille Récapitulatif. C'est bien ça ?
Comment sont rapatriées les données ? Quelle est la plage - exacte - mise à jour ? Et à quoi ressemble cette procédure "ImporterWordVersExcel" ?
[*]Le graphe s'adapte donc ensuite aux données rapatriées et tu souhaites imposer des couleurs prédéterminées aux séries.
[/list]
Je puis déjà te faire part d'une grosse anomalie dans le code que tu as laissé dans le module de code de la feuille "Fiche" :
tu ne peux avoir la présence de 2 procédures évènementielles "Worksheet_Change()" dans un même module de code de feuille. C'est une situation non gérable par VBA. Il faut en laisser une seule dans laquelle tu dois rassembler l'ensemble des instructions nécessaires aux différents traitements.

Par ailleurs, pour la ligne suivante :
If Not Application.Intersect(Target, Sheets("Matricielle;B2:B9")) Is Nothing Then

La syntaxe n'est pas bonne. Il aurait fallu saisir :
If Not Application.Intersect(Target, Sheets("Matricielle").Range("B2:B9")) Is Nothing Then
bien que je ne sois pas vraiment convaincu que la plage ciblée soit la bonne pour ce traitement...

Dans l'attente d'éclaircissements complémentaires...

Cordialement,

EDITION : Salut JCGL, pardon je ne t'avais pas vu arriver...