Exploitation excel

georges -  
Armojax Messages postés 1863 Date d'inscription   Statut Membre Dernière intervention   -
bonjour.
comment sommer sur excel tous les cellules dons les chiffres sont de couleur (ex: rouge)
georges.garia@wanadoo.fr

merci
Configuration: win xp

1 réponse

  1. Armojax Messages postés 1863 Date d'inscription   Statut Membre Dernière intervention   1 529
     
    Bonsoir Georges,

    Il n'existe pas, à ma connaissance, de fonction standard qui fasse ça.
    Tu peux utiliser une petite macro du genre ci-dessous. Je l'ai appelée SUMCOLOR.
    On lui passe en paramètres :
    - la plage sur laquelle on veut faire la somme
    - le code de la couleur à prendre en compte (3 pour le rouge dans l'exemple).

    =SUMCOLOR(A1:B12;3)
    fait la somme des chiffres en rouge dans la plage (A1:B12).

    Voici le code :
    Function SUMCOLOR(Plage As Range, Couleur As Integer) As Double
      Dim Cellule As Range
      SUMCOLOR = 0
      For Each Cellule In Plage
        If Cellule.Font.ColorIndex = Couleur Then
          SUMCOLOR = SUMCOLOR + Cellule.Value
        End If
      Next
    End Function
    0