Tu peux le faire sans VBA.
A ) D'abord, tu crées un nom (insertion / nom / définir)
Supposons "Denis"
Et tu lui affectes fait référence à : = Lire.Cellule(63;$A1)
B ) Supposons que tu veuilles additionner la plage A1:A10
Dans la colonne B1:B10, tu copies : = denis
la valeur retournée par la formule est la propriété "ColorIndex"
de la couleur de fond de la cellule
C ) Dans la cellule où tu veux dénombrer le nombre de cellules d'une
couleur particulière, tu inscris : = Nb.Si(A1:A10;6)
le chiffre 6 étant l'index de la couleur
D ) si tu préfères avoir la somme des cellules pour une couleur particulière :
=SOMME.SI(B1:B10;6;A1:A10)
Et tu peux masquer la colonne B:B
Post by VersatileBonjour,
Copie cette fonction personnalis e dans un module standard
de ton classeur.
Dans la cellule de ta feuille de calcul o tu veux afficher le r sultat,
tu saisis la formule suivante : = SumCouleur(A1:A10;A1)
A ) tout le contenu de la plage A1:A10 doit tre num rique dans
un format de cellule "Standard" ou num rique. A1:A10 est la
plage additionner.
B ) le param tre A1 repr sente une cellule ayant la couleur de fond
dont tu veux additionner dans la plage A1:A10
ATTENTION : Si tu modifies manuellement la couleur de fond d'une
cellule, tu dois utiliser la touche F9 pour mettre ta formule jour.
'----------------------------------
Function SumCouleur(SumPlage As Range, CouleurEtalon As Range)
Application.Volatile
Dim C As Range
For Each C In SumPlage
If C.Interior.Color = CouleurEtalon.Interior.Color Then
SumCouleur = SumCouleur + C.Value
End If
Next
End Function
'----------------------------------
Merci bien. J'aurais espéré que l'on puisse éviter les macros et se
satisfaire des formules. Bon bien tant pis.
Et merci pour la macro.