additionner 2 couleurs

[samuel 36]

d' abord, comment ca se fait que mon post a disparu ? lol

alors je recommence

comment faire pour additionner toutes les valeurs de cellules, en fonction des couleur de celles ci?


imaginons, de a1 jusque a10, des valeurs que je vais additionées en fonction de la couleur que je leur attribue.

par exemple du rouge du vert et du jaune, n' dditionner que le vert et le jaune.

le but étant de pouvoir permuter les couleurs de a1 a a10


qq' 1 m' as déja répondu , c était pas mal , je l' en remerci,mais au risque de me répeter, mon post a disparu

 

[JeanMarie]

Bonsoir

Regarde ce lien
Lien supprimé

@+Jean-Marie

 

[samuel36]

c est pas ca jean marie, moi y' a des chiffres dans mes cellules, et en fait , c est la couleursqui va déterminer si je les prends en compte ou pas

 

[JeanMarie]

Re...

Place sur le forum un fichier d'exemple.

Fichier zippé, de moins de 50 ko, et pas d'accents ni d'espaces dans le nom du fichier.

@+Jean-Marie

Message édité par: JeanMarie, à: 11/06/2006 23:23

 

[Mytå]

Salut Samuel, Jean-Marie

Une petite macro(Fonction) de Pat5

Function SommeCouleur(Plage, Couleur)
Dim NumCouleur As Integer
Dim cell As Object
Application.Volatile
' Récupération du numéro de couleur dans la cellule
' dont l'adresse est le 2e paramètre de la fonction
NumCouleur = Couleur.Font.ColorIndex
' Initialisation de la somme
Somme = 0
' Somme des cellules de la couleur choisie
For Each cell In Plage
If cell.Font.ColorIndex = NumCouleur Then
Somme = Somme + cell.Value
End If
Next
' Renvoi du résultat
SommeCouleur = Somme

End Function

Ecrire dans la cellule
=SommeCouleur(A1:A10,3)

Mytå