labellebleu a écrit :
Bonjour tout le monde
le forum m'a fait connaitre la formule " SomColPol" pour faire une addition de plusieurs celulles contenant des chiffres d'une couleur precise. Mais je voudrais savoir s'il est possibe de compter le nombre de celulles rempli de chiffre d'une couleur precise. j'ai cherche avec "NB" mais je n'y arrive pas .
D'avance merci à tous d'essayer de m'aider.
LBB
Dès que tu t'attaques à un problème de format, il te faut passer par les macros.
Il te faut créer une Function qui retourne le résultat voulu.
Ta fonction, devra avoir un argument : Plage de cellule.
Il faudra aussi que le fond soit de la couleur des cellules
Il faut la mettre dans un module, et s'en servir comme les autres fonctions d'excel
Function Test(ByVal Plage_T As Range) As Integer
Dim Tot As Integer
Dim Cel As Range
Application.Volatile
'permet le recalcul à chaque calcul de la feuille
For Each Cel In Plage_T
'Pour chaque cellule de la plage
If Range(Application.Caller.Address).Interior.ColorIndex = _
Cel.Interior.ColorIndex Then
'si la couleur de fond de la cellule contenant la formule
'est celle de la cellule testée alors
If Not (IsEmpty(Cel)) And IsNumeric(Cel) Then
'si la cellule est un nombre et qu'elle n'est pas vide alors
If Not (IsDate(Cel)) Then
'si la cellule ne contient pas une date
Tot = Tot + 1
'ajouter 1
End If
End If
End If
Next Cel
'cellule suivante
Test = Tot
'transmettre le résultat
End Function
Pour moi, une date n'est pas un nombre, mais pour excel si. donc j'ai inclu un test de date
Comme les modifications de format ne déclenchent un recalcul de la feuille, après les changement de couleurs, il suffira de double-cliquer dans une cellule et de valider pour déclencher un recalcul.
ATTENTION : les modifications de couleurs par MFC ne seront pas prises en compte
A+
|
1
