Discussion :

[Mac_Leod]

Bonjour,

Pour des questions d'automatisation, je me suis débrouillé pour construire un fichier excel qui récupère des données selon un paramètre en liste déroulante pour en fournir une synthèse via un TCD. J'aurais idéalement voulu ajouter deux formules juste en bas ce TCD qui reprennent la structure de ce dernier. En effet, la longueur du tableau étant variable selon le paramètre choisi, je ne sais pas comment automatiser ma formule en fonction.

Dans le fichier excel ci-joint, mes deux formules sont écrites de façon à récupérer les 3 premières lignes. Ce qui pose soucis pour le paramètre ROUGE (4 lignes). De fait, comment peut - on automatiser ces formules en VBA pour qu'elles soient directement liés à mon TCD ? De façon à ce que ces formules interviennent juste en dessous du TCD (en supposant qu'il puisse y avoir plus d'une cinquantaine de ligne).

http://www.cjoint.com/c/FIurnoLVMZZ

A noter que les données sont fictives et qu'un petit bout de code VBA a été écrit pour la récupération des données et la mise en forme du tableau.


Merci,
Eliam.

[Menhir]

Dans le fichier excel ci-joint

http://www.developpez.net/forums/d84...s-discussions/

[78chris]

Bonjour

Pourquoi

• ne pas construire le TCD sur la plage de la feuille DATA et mettre Couleur en zone de filtre du TCD ou en Segment si Excel 2010 ou + ? Cela éviterait le VBA
• ne pas mettre la source sous forme de tableau et éviter ainsi des valeurs vides ?

En l'état :

Code :

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

=F.TEST(DECALER(L$9;0;0;EQUIV("*total*";I:I;0)-9;1);DECALER(P$9;0;0;EQUIV("*total*";I:I;0)-9;1))

Code :

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

=T.TEST(DECALER(L$9;0;0;EQUIV("*total*";I:I;0)-9;1);DECALER(P$9;0;0;EQUIV("*total*";I:I;0)-9;1);2;SI(J4>0,05;2;3))

Il est plus simple de laisser les formules au-dessus du TCD, sinon il va falloir calculer à chaque fois la fauteur du TCD pour déplacer les formules ou masquer des lignes vides laissées en sécurité.

[Mac_Leod]

Bonjour,

Merci pour vos réponses.

@Menhir : J'ai par habitude de procéder ainsi, l'utilité première de cette pièce jointe étant d'illustrer mon propos. Le format n'est effectivement peut être pas le plus adéquat, une capture d'écran aurait pu suffire également, je ne sais pas ce que vous en pensez ? J'estime pour le coup permettre à mes interlocuteurs de beaucoup mieux cerner le problème, quand bien même la demande est formulée parfaitement.


@78chris : En réponse à vos deux interrogations :

- Le TCD apporte permet une synthèse des données filtrées mais le détail de celui-ci est également indispensable. La volumétrie de mes données étant beaucoup plus importante que celle de cet échantillon fictif. En tout les cas, je ne cherche pas nécessaire à éviter le VBA.
- Les valeurs vides dans le TCD n'apparaissent normalement pas (filtre "greater than 0").

Il est en effet peut être plus sage de laisser ces formules au dessus du TCD, et je vais m'y tenir, cela facilite pas mal les choses. De fait, les formules proposées fonctionnent parfaitement, belle découverte de cette fonction DECALER que je ne connaissais pas.

J'allais vous poser deux questions mais j'ai finalement su les résoudre puisqu'elles dépendantes en soi (intérêt du -9 et résultats incorrects quand le TCD est placé à un autre endroit). En conséquence, j'ai poussé l'automatisation un peu plus loin :

Code :

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

=F.TEST(OFFSET(M$35;0;0;MATCH("*total*";J:J;0)-MATCH(1;J:J;0);1);OFFSET(Q$35;0;0;MATCH("*total*";J:J;0)-MATCH(1;J:J;0);1))

Encore merci et bonne journée à vous deux.

[78chris]

Bonjour

...

@78chris : En réponse à vos deux interrogations :

- Le TCD apporte permet une synthèse des données filtrées mais le détail de celui-ci est également indispensable. La volumétrie de mes données étant beaucoup plus importante que celle de cet échantillon fictif. En tout les cas, je ne cherche pas nécessaire à éviter le VBA.
- Les valeurs vides dans le TCD n'apparaissent normalement pas (filtre "greater than 0").

Quitte à faire du VBA, pourquoi ne pas ajuster la plage source du TCD ? Il est totalement inutile de le faire pour le filtre avancé, qui marche parfaitement sur colonnes complètes, mais bien plus utile sur la source du TCD...
Certes le filtre masque les valeurs vides mais elles alourdissent le cube de données et limitent les possibilités de regroupement dans les TCD (moins depuis 2010) : même si le TCD actuel ne les utilisent pas, autant s'imprégner des bonnes pratiques.

[Menhir]

J'ai par habitude de procéder ainsi, l'utilité première de cette pièce jointe étant d'illustrer mon propos. Le format n'est effectivement peut être pas le plus adéquat, une capture d'écran aurait pu suffire également, je ne sais pas ce que vous en pensez ?

Plus jamais je n'ouvrirai une pièce jointe pouvant contenir des macro depuis qu'un abruti (je ne trouve pas de terme plus édulcoré pour désigné ce triste individu) en avait placé un en oubliant de précisé qu'il contenant une macro :

Code :

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

1
2
3
4
Private Sub Workbook_BeforeClose(Cancel as Boolean) 
    Application.DisplayAlerts = False 
    Application.Close
End Sub

Deux heures de boulot perdu.

Et je l'apprécie d'autant moins quand la pièce jointe est hébergée sur un site qui commence par te bombarder d'une batterie de traceurs.