Microsoft 365 Compter des éléments spécifiques dans une diagonale

mapomme

XLDnaute Barbatruc

Supporter XLD

• 17 Décembre 2023

• #2

Bonjour @ricoben ,

Formule en C20 à recopier vers la droite :
=SOMMEPROD(($C$4:$O$16="+")*(LIGNE($C$4:$O$16)+COLONNE($C$4:$O$16)-3-4=C$19))

Formule analogue en C21 en remplaçant l'expression "+" par "-".

nota : La première cellule de la plage est la cellule C4.
C4 correspond à la 4° ligne et à la 3° colonne.
C'est pourquoi on retire 3 et 4 dans la formule (car la première diagonale commence à la cellule C4 et son index est 0 -> diagonale 0).

 

Pièces jointes

• ricoben- compter dans diagonales- v1.xlsx

  11.9 KB · Affichages: 5

Dernière édition: 17 Décembre 2023

Vote positif 0 Vote négatif

R

ricoben

XLDnaute Nouveau

Supporter XLD

• 17 Décembre 2023

• #3

Merci @mapomme, c'est très clair pour moi. j'en ai fait une extension qui fonctionne bien sur le même principe en conditionnant les + ou moins à une métrique quelconque.

 

Pièces jointes

• ricoben- compter dans diagonales_par rapport à une métrique.xlsx

  19.1 KB · Affichages: 1

Dernière édition: 17 Décembre 2023

Vote positif 0 Vote négatif

R

ricoben

XLDnaute Nouveau

Supporter XLD

• 17 Décembre 2023

• #4

Suite de mon sujet, je veux désormais exclure les cellules colorées du comptage des diagonales. en utilisant la même formule sommeprod avec un filtre "couleur"... ca bugge. Merci

 

Pièces jointes

• ricoben- compter dans diagonales_par rapport à une métrique, sans tenir comptes des cellules ...xlsm

  22.8 KB · Affichages: 7

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 17 Décembre 2023

• #5

Re,

Il me semble que votre fonction Couleur(Couleur(Plg As Range) n'est pas correcte.
La fonction devrait retourner un tableau de même dimension que la plage en argument (range Plg).

Essayez cette fonction :

VB:

Function Couleur(Plg As Range)
Dim i&, j&
   Application.Volatile True
   ReDim tb(1 To Plg.Rows.Count, 1 To Plg.Columns.Count)
   For i = 1 To Plg.Rows.Count: For j = 1 To Plg.Columns.Count: tb(i, j) = Plg(i, j).Interior.ColorIndex: Next j, i
   Couleur = tb
End Function

nota : un changement de couleur ne provoque pas d'évènement intercepté et traité par Excel. L'instruction Application.Volatile True n'assure en rien le re-calcul automatique après avoir modifié la couleur d'une cellule et c'est bien dommage .

 

Dernière édition: 17 Décembre 2023

Vote positif 0 Vote négatif

R

ricoben

XLDnaute Nouveau

Supporter XLD

• 18 Décembre 2023

• #6

Merci , en effet je viens de m'apercevoir que la composante colonne du redim était à 1 !
c'est bcp mieux désormais

 

Vote positif 0 Vote négatif

Solution