L'informatique à votre portée
L'informatique prêt-à-porter

Faites appel à moi pour vos formations
sur les dpts 81, 31, 82, 11 et 67 (Strasbourg)
Confiez moi vos développements Office

FacebookTwitterGoogle BookmarksLinkedin

Somme des valeurs d'une plage selon la couleur de fond de cette plage

Imprimer E-mail
5 mars 2014

Public Function SOMME_SI_COULEUR(PlageSomme As Range, PlageCouleur As Range) As Double
   Dim Cel As Range
  Dim Som As Double

   Application.Volatile
   For Each Cel In PlageSomme
    If Cel.Interior.ColorIndex = PlageCouleur.Interior.ColorIndex Then Som = Som + Cel
   Next
   SOMME_SI_COULEUR = Som
End Function

Cette fonction pose un problème, car elle ne se met pas automatiquement à jour lorsque vous changez la couleur de fond de PlageCouleur ou une couleur de fond d'une ou plusieurs cellules de la plage PlageSomme. En conséquence, vous êtes obligé de forcer le calcul de la feuille avec la touche F9 ou depuis 2007, sur l'onglet Formules, cliquez sur le bouton calculer maintenant du groupe Calcul

Nombre de cellules selon la couleur de fond de celle-ci

Imprimer E-mail
5 mars 2014

Public Function NB_SI_COULEUR(PlageNb As Range, PlageCouleur As Range) As Long
    Dim Cel As Range
    Dim lNb As Long

    Application.Volatile
    For Each Cel In PlageNb
        If Cel.Interior.ColorIndex = PlageCouleur.Interior.ColorIndex Then lNb = lNb + 1
    Next
    NB_SI_COULEUR = lNb
End Function

Cette fonction pose un problème, car elle ne se met pas automatiquement à jour lorsque vous changez la couleur de fond de PlageCouleur ou une couleur de fond d'une ou plusieurs cellules de la plage PlageNb. En conséquence, vous êtes obligé de forcer le calcul de la feuille avec la touche F9 ou depuis 2007, sur l'onglet Formules, cliquez sur le bouton calculer maintenant du groupe Calcul