XL 2016 Calculer le nombre d'itérations selon une valeur de cellule (VBA ou formule)

istpeleve · 8 Décembre 2020

Bonjour à tous,

J'ai une base de données avec:
- nom
- jour
- semaine
- poste occupé

J'aimerai avoir une formule (ou VBA) qui puisse me permettre de savoir le nombre de postes différents occupés par chaque personne, sur le mois en cours.

En PJ un exemple de ma base de données ainsi que d'un exemple de tableau que j'aimerai avoir.

J'avais commencé à tester avec =SOMMEPROD((A1:J10<>"")/NB.SI(A1:J10;A1:J10&"")) qui me permet d'avoir le nombre de valeurs différentes sur une plage, mais là j'aimerai rajouter le critère qui fait que ça ne prenne en compte que les valeurs qui concernent la personne (un peu comme un NB.SI.ENS, j'ai testé cette variante =SOMMEPROD((D27<>"")/NB.SI.ENS(A2:A7;A2:A7=H2;D27;D27&"")) mais ça me met un #DIV/0!

Le top du top serait un tableau où il ait une croix lorsque la personne occupe le poste dans le mois.

Pourriez-vous m'éclairer svp ?

JHA · 8 Décembre 2020

Bonjour à tous,

Peut-être avec sommeprod
Tableau 1

VB:

=SOMMEPROD(($A$2:$A$10=$H12)*($B$2:$B$10>="01/09/20"*1)*($B$2:$B$10<="30/09/20"*1))

Tableau 2

Code:

=SI(SOMMEPROD(($A$2:$A$10=$H19)*($B$2:$B$10>="01/09/20"*1)*($B$2:$B$10<="30/09/20"*1)*($D$2:$D$10=I$18))>0;"x";"")

JHA

Exl-Noob · 8 Décembre 2020

Bonjour à tous les deux,

Ne pas sous estimer la puissance d'un tableau croisé dynamique...
J'y ai ajouté un slider de chronologie pour filtrer quand le tableau sera plus grand.

Ci-joint l'exemple de JHA auquel j'ai ajouté le TCD pour comparaison.

istpeleve · 8 Décembre 2020

Bonjour à vous et merci pour vos réponses !

J'ai finalement réussi à faire ce que je voulais mais la macro tourne durant 4 minutes.

Je vais dans un premier temps essayer vos propositions, afin de voir si elles ne sont pas meilleures.
Dans un second temps, pourriez-vous me dire si vous avez des conseils pour réduire le temps d'exécution d'une macro ?
Y a-t-il des actions qui sont plus chronophages que d'autres ?

Par ex, j'ai identifié les actions qui reviennent le plus souvent dans mon code:
Worksheets("(S" & onglet).Activate
Range("A" & i).Select 'Copie-Colle le nom de l'opérateur
Selection.Copy
Worksheets("BaseDeDonnées").Activate
Range("A" & DernLigneBDD + 1).Select
ActiveSheet.Paste

Ce genre de code revient énormément, n'y a-t-il pas un moyen de le réduire ?

XL 2016 Calculer le nombre d'itérations selon une valeur de cellule (VBA ou formule)

istpeleve

XLDnaute Nouveau

Pièces jointes

JHA

XLDnaute Barbatruc

Pièces jointes

Exl-Noob

Guest

Pièces jointes

istpeleve

XLDnaute Nouveau

Discussions similaires