XL 2016 Multifiltres : Tableau Croisé Dynamique ou VBA ?

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 13 Janvier 2022

• #2

Bonsoir Bagheera,
1- Je ne suis pas à l'aise avec les TCD, donc pas d'avis
2- En VBA c'est évidemment faisable. C'est une question de choix.
3- Par formules aussi c'est faisable, pour le fun voir PJ avec :

VB:

=NB.SI.ENS(DECALER($A$2:$A$14;0;EQUIV(B$28;$1:$1;0)-1);"x";DECALER($A$2:$A$14;0;EQUIV($A30;$1:$1;0)-1);"x")

 

Pièces jointes

• TCD_VBA_Croisement.xlsx

  14.7 KB · Affichages: 0

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 13 Janvier 2022

• #3

Mieux, avec :

VB:

=SI(B$28=$A29;"";NB.SI.ENS(DECALER($A$2:$A$14;0;EQUIV(B$28;$1:$1;0)-1);"x";DECALER($A$2:$A$14;0;EQUIV($A29;$1:$1;0)-1);"x"))

C'est la même formule dans tout le tableau, les cellules sont grisées par MFC.

 

Pièces jointes

• TCD_VBA_Croisement 2.xlsx

  14.9 KB · Affichages: 4

Vote positif 1 Vote négatif

pierrejean

XLDnaute Barbatruc

• 14 Janvier 2022

• #4

Bonjour bagherra
salut sylvanu
un essai en version vba

 

Pièces jointes

• TCD_VBA_Croisement.xlsm

  113 KB · Affichages: 4

Vote positif 0 Vote négatif

B

bagheera

XLDnaute Nouveau

• 15 Janvier 2022

• #5

Merci à vous deux !
Je vais voir pour compiler vos deux approches qui me permettra d'avoir ce tableau qui se mettra à jour en fonction d'un filtre Date.
J'avoue ne pas comprendre toute la réflexion de la macro de @pierrejean mais je vais prendre le temps de lire tout ça et comprendre le fonctionnement pour l'adapter.
Mais j'ai compris la rédaction de la formule de @sylvanu alors c'est toujours ça de gagné !
Merci encore pour votre temps 😁

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 15 Janvier 2022

• #6

Re
Voici une version commentée
A ta disposition pour éclaircissement si nécessaire

 

Pièces jointes

• TCD_VBA_Croisement.xlsm

  113.8 KB · Affichages: 10

Vote positif 1 Vote négatif

B

bagheera

XLDnaute Nouveau

• 15 Janvier 2022

• #7

Merci beaucoup @pierrejean ! Je vais travailler là dessus. Ca va grandement m'aider les commentaires ajoutés.

 

Vote positif 0 Vote négatif