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

[ricoben]

Bonsoir,
Existe t il une syntaxe plus élégante de compter en diagonale le nombre d'éléments qui matche avec une certaine valeur, sans tester chaque cellule de chaque diagonale?
Je vous ai mis un exemple en excel sur ce que je cherche à faire.
En gros ca serait un mix de nb.si avec Tableau filtré sur les cellules de la diagonale, qui matche avec le caractère "+" par exemple).
Merci d'avance pour votre aide,
Eric

 

[mapomme]

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).

 

[ricoben]

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.

 

[ricoben]

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

 

[mapomme]

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 :

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 .

 

[ricoben]

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