Macro figer couleurs graphique croisé dynamique

Bonjour,

La proposition révisée pour prendre en compte ton filtre sur les valeurs !...

A te relire.

Cdlt.

9travailv6.xlsm (75.40 Ko)

Cela à l'air de fonctionner mais le message d'erreur : " 'erreur 438' : propriété ou méthode non géré par cet objet "

N'y a-t-il pas un moyen pour l'empêcher d'afficher cela?

3travailv6-2.xlsm (65.83 Ko)

Re,

Il n'y a pas d'erreur 438 dans le fichier que tu as joint.

Cdlt.

Re,

Si ouvre et clique sur le bouton, je t'ai mis une capture aussi

4travailv6-2-1.xlsm (72.78 Ko)

Re,

Je répète : Je n'ai pas d'erreur à l'exécution de la procédure Update_Data.

A quelle ligne de la procédure se situe l'erreur (ligne surlignée en jaune dans l'éditeur VBE) ?

Cdlt.

Ah, c'est bizarre, cela peut être du au fait qu'on a peut-être des version différentes d'Excel?

Je vous montre ce que cela m'affiche sur la page "msg d'erreur" :

21travailv6-2-1.xlsm (72.78 Ko)

Re,

Je ne pense pas que ta version Excel soit en cause.

Y a t'il une ligne surlignée en jaune dans la procédure lors de son exécution ?

Y a t-il un autre intervenant qui pourrait tester ma proposition sous Excel 2010 ?

Cdlt.

RE,

Oups !...

essaie en supprimant le 2 de Add ci dessous dans la procédure.

    pf.PivotFilters.Add2 xlValueIsGreaterThan, pt.PivotFields("Somme de Qt?."), Value1:=1

REE,

C'était bien ça ahaha Du coup ça fonctionne parfaitement ! Merci mille fois

Rechercher des sujets similaires à "macro figer couleurs graphique croise dynamique"