Macro Adition Couleur
manu
-
Manu -
Manu -
Bonjour,
Je souhaite dans un tableau avoir la somme des cellule ayant la meme couleur d'ecriture
et la somme des cellule aynat la meme couleur de fond
j utilise pour le premier ce qui marche bien
Public Function cumul_couleur(plage As Range, col As Range)
Dim elm As Object
Application.Volatile
cumul_couleur = 0
For Each elm In plage
If elm.Font.ColorIndex = col.Font.ColorIndex Then
cumul_couleur = cumul_couleur + elm.Value
End If
Next elm
End function
mais je n'arrive pas a ajouter la seconde action
merci
Je souhaite dans un tableau avoir la somme des cellule ayant la meme couleur d'ecriture
et la somme des cellule aynat la meme couleur de fond
j utilise pour le premier ce qui marche bien
Public Function cumul_couleur(plage As Range, col As Range)
Dim elm As Object
Application.Volatile
cumul_couleur = 0
For Each elm In plage
If elm.Font.ColorIndex = col.Font.ColorIndex Then
cumul_couleur = cumul_couleur + elm.Value
End If
Next elm
End function
mais je n'arrive pas a ajouter la seconde action
merci
1 réponse
-
Bonjour,
Avec 2 fonctions
Public Function Cumul_Couleur_Police(plage As Range, col As Range)
Dim elm As Object
Application.Volatile
Cumul_Couleur_Police = 0
For Each elm In plage
If elm.Font.ColorIndex = col.Font.ColorIndex Then
Cumul_Couleur_Police = Cumul_Couleur_Police + elm.Value
End If
Next elm
End Function
Public Function Cumul_Couleur_Fond(plage As Range, col As Range)
Dim elm As Object
Application.Volatile
Cumul_Couleur_Fond = 0
For Each elm In plage
If elm.Interior.ColorIndex = col.Interior.ColorIndex Then
Cumul_Couleur_Fond = Cumul_Couleur_Fond + elm.Value
End If
Next elm
End Function
A+
