Discussion :

[GuillaumeNcy]

Bonjour à tous,

Je souhaite extraire dans une variable la valeur minimal d'un champs de mon tableau dyna.
J'ai tenté un peu sans y croire des formules qui n'ont rien donné, du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

valeur_mini = ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("KBAU").PivotItems("Capot").xlMin

Existe t'il quelque chose répondant au besoin?
Merci d'avance

[78chris]

Bonjour

A priori j'extrairais le minimum (fonction MIN) de la plage du TCD contenant les valeurs Capot.

[GuillaumeNcy]

Merci pour ta réponse Chris,
Je souhaiterai le faire via vba, car c'est une étape essentiel dans une de mes procédures.

[78chris]

RE

Je n'ai pas dit de ne pas utiliser le VBA : je t'ai juste dit comment l'utiliser car, si j'ai bien compris, le TCD n'affiche pas des minumum mais tu veux en extraire la plus petite valeur.

Sinon soit plus précis dans ta description...

[GuillaumeNcy]

Oui le champs du TCD en question est rempli de valeur plus ou moins élevées et je souhaite pouvoir stocker dans une variable la plus petite d'entre elles.
Mais impossible de trouver la syntaxe qui me permet de faire ça en vba..

[pgz]

Bonjour.

Tu peux essayer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

valeur_mini = Application.WorksheetFunction.Min(ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("KBAU").PivotItems("Capot").DataRange.Value)

Cordialement,

PGZ

[78chris]

Re

Tu peux utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

valeur_mini=Application.Min(ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("KBAU").PivotItems("Capot").DataRange.Value)

Edit : pas raffraichi ! pgz a été plus rapide que moi qui explorais plusieurs pistes.

[GuillaumeNcy]

Ca marche nickel merci les gars