Calculs selon couleur de cellule [Résolu]

Signaler
-
 gb -
Code VBA à utiliser :

Function CouleurCell(Cellule As Range)
'Permet d'identifier le code de la couleur d'arrière-plan d'une cellule
Application.Volatile 'Actualise les calculs du document
CouleurCell = Cellule.Interior.ColorIndex
End Function

Function CouleurPolice(Cellule As Range)
'Permet d'identifier le code couleur de la police utilisée dans une cellule
Application.Volatile 'Actualise les calculs du document
CouleurPolice = Cellule.Font.ColorIndex
End Function

Function NbCellCouleur(Plage As Range, NumeroDeCouleur%) As Long
' Renvoie le nombre de cellules de même couleur en arrière-plan
Application.Volatile True
Dim wCell As Range
For Each wCell In Plage
If wCell.Interior.ColorIndex = NumeroDeCouleur Then
NbCellCouleur = NbCellCouleur + 1
End If
Next
End Function

Function SomCellCouleur(Plage As Range, NumeroDeCouleur%) As Long
' Renvoie la somme des cellules de même couleur en arrière-plan
Application.Volatile True
Dim wCell As Range
For Each wCell In Plage
If wCell.Interior.ColorIndex = NumeroDeCouleur Then
SomCellCouleur = SomCellCouleur + wCell
End If
Next
End Function


Function SomFontCouleur(Plage As Range, NumeroDeCouleur%) As Long
' Renvoie la somme des cellules de même couleur de police
Application.Volatile True
Dim wCell As Range
For Each wCell In Plage
If wCell.Font.ColorIndex = NumeroDeCouleur Then
SomFontCouleur = SomFontCouleur + wCell
End If
Next
End Function





Configuration: Windows / Chrome 80.0.3987.122

1 réponse

Messages postés
16173
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
14 juillet 2020
2 992
Bonjour,

Et quelle est la question ?
Désolé j'ai mal utilisé le forum.
Je souhaitais plutôt apporter une réponse à un pb que je m'étais posé.