Totaux De Lignes Selon Mise En Forme

[PHILIPPE94]

Bonjour,

J'ai un fichier excel sur lequel j'ai mis en jaune des lignes.
Est il possible de faire la somme des lignes qui sont en jaune.

Merci

 

[JHA]

Re : Totaux De Lignes Selon Mise En Forme

Bonjour Philippe 94, le forum,

Je pense que pour mettre tes lignes en jaune, tu as établi un critère.

Pourquoi ne pas comptabiliser ce critère avec NB.SI()?
Exemple:
=NB.SI(plage;">"&2)

JHA

 

[PHILIPPE94]

Re : Totaux De Lignes Selon Mise En Forme

non il n'y a aucun critère, quelqu'un aurait une solution ?

 

[Bisson]

Re : Totaux De Lignes Selon Mise En Forme

Bonjour,

Dans un module:

Function SommeCouleurFond(champ As Range, couleurFond)
Application.Volatile
Dim c, temp
temp = 0
For Each c In champ
If c.Interior.ColorIndex = couleurFond Then
If IsNumeric(c.Value) Then temp = temp + c.Value
End If
Next c
SommeCouleurFond = temp
End Function

Dans la feuille: =SommecouleurFond(A1😀10;6)

Bisson

 

[wilfried_42]

Re : Totaux De Lignes Selon Mise En Forme

Bonjour à tous

voici une serie de fonctions qui sont basées sur les couleurs, mais pas les couleurs issues des MFC

 

[PHILIPPE94]

Re : Totaux De Lignes Selon Mise En Forme

merci bcp, comment trouver le numero de la couleur ?

 

[wilfried_42]

Re : Totaux De Lignes Selon Mise En Forme

re:

Voici une fonction :

function quelle_couleur(target as range) as variant
quelle_couleur = target.interior.colorindex
end function

usage : =quelle_couleur(cellule)