Comptabiliser couleur de fond et texte

Bonjour a tous et toutes, forum bonjour,

Je souhaiterai effectuer des tests sur des colonnes couleur et texte.

ci-joint un fichier expliquant ce que svp je souhaiterai faire.

Merci a vous pour votre aide.

Cdlt Ray

Bonjour,

Je t'ai fait une fonction qui permet de savoir si une cellule a un fond de couleur, et une qui permet de savoir si le texte est en couleur, mais visiblement, ce n'est pas exactement ce que tu veux pour la deuxième chose, j'ai donc fait une fonction NB.SI avec comme critère "<>"

Si c'est seulement pour compter les cellules remplies qui ont le texte mis en couleur, il faudra me dire...

Voici le code des fonctions :

Function AFond(Optional cel As Range)
Application.Volatile

'déclaration de variables
Dim tableau As Variant
If cel Is Nothing Then
    Set cel = Application.Caller
End If

ReDim tableau(1 To cel.Rows.Count, 1 To cel.Columns.Count)
ligne = cel.Row - 1
colonne = cel.Column - 1

'Parcours et enregistrement des informations des cellules dans un tableau
For i = 1 To UBound(tableau, 1)
    For j = 1 To UBound(tableau, 2)
        If Cells(ligne + i, colonne + j).Interior.ColorIndex <> xlColorIndexNone Then
            tableau(i, j) = True
        Else
            tableau(i, j) = False
        End If
    Next j
Next i

'retour de valeur
AFond = tableau
End Function

Function ACouleurTexte(Optional cel As Range)
Application.Volatile

'déclaration de variables
Dim tableau As Variant
If cel Is Nothing Then
    Set cel = Application.Caller
End If

ReDim tableau(1 To cel.Rows.Count, 1 To cel.Columns.Count)
ligne = cel.Row - 1
colonne = cel.Column - 1

'Parcours et enregistrement des informations des cellules dans un tableau
For i = 1 To UBound(tableau, 1)
    For j = 1 To UBound(tableau, 2)
        If Cells(ligne + i, colonne + j).Font.ColorIndex <> xlColorIndexAutomatic Then
            tableau(i, j) = True
        Else
            tableau(i, j) = False
        End If
    Next j
Next i

'retour de valeur
ACouleurTexte = tableau
End Function

Voici le fichier en retour :

Ps: En réalité, la fonction ACouleurTexte teste si le texte a une couleur qui n'est pas automatique

Salut ausecour,

Merci pour ta réponse, c'est sympa.

Pour les colonnes E et F ça ne fonctionne pas bien

Pour les colonnes I et J c'est ok

Pour les colonnes E et F c'est juste la couleur d' "Interior Rouge" que je souhaite comptabiliser

Pour les colonnes I et J c'est juste la couleur de "Font Vert" que je souhaite comptabiliser

Pour le troisième point, juste faire un test : Si les 4 colonnes sont vides alors je lance une macro ou un Msgbox pour tester si c'est bon

Merci pour ton aide bonne après midi.

Cdlt Ray

Bonjour,

Dans ce cas il faut utiliser les valeurs de couleur qui sont de type Long, on aura donc quelque chose de différent:

Re ausecour,

Merci pour cette nouvelle réponse

ça ne fonctionne pas pour les colonnes (E) et (F) couleur d'interior Rouge

j'ai essayer de modifier mais les fonctions je ne comprends pas trop.

Merci a plus tard

Cdlt Ray

Rebonjour,

Bizarre, pourtant j'ai bien le même nombre que toi avec mon SOMMEPROD... En quoi ça ne marche pas?

bonjour à tous

as tu essayé la fonction NB_SI_COULEUR du pack développé par Sébastien ???

pour plus de details :

https://www.excel-pratique.com/fr/fonctions-complementaires/nb-si-couleur.php

https://www.excel-pratique.com/fr/fonctions-complementaires.php

fred

Salut fred2406,

Merci pour ta réponse

Non, je n'ai pas essayer ce que tu me proposes.

Mais néanmoins, j'aimerai savoir svp comment on installe et une fois installer mes programmes

que j'ai déjà fait vont t'il continuer de fonctionner ???

Et comment ca se passe si je change de version d'Excel, il faudra ré_installer tout.

Et si j'essai mes programmes fait sur mon PC cela fonctionne t'il sur un autre Pc n'ayant

pas les packs de Sébastien installés ???

Je suis sous Windows 10 et Excel 2007.

Bonne journée a toi et merci.

Cdlt Ray

Bonjour

pour l'installation c'est ici : https://www.excel-pratique.com/fr/fonctions-complementaires/installation-macro-complementaire.php

c'est de nouvelles fonctions donc tout ce que tu auras fais avant continu de fonctionner

si installation d'une nouvelle version d'excel faire le point 2 de l'installation... ajouter le complement

Il faut que le pack soit installé sur le pc avec lequel tu vas ouvrir le fichier. si c'est pas le cas la fonction ne sera pas reconnue...

fred

petit ajout... tiré de la notice d'installation :

Remarque : si vous souhaitez utiliser ces fonctions sur un second poste, il faudra également installer cette macro complémentaire sur le second poste. Notez qu'il est important d'installer le fichier dans un répertoire strictement identique sur chaque poste (si vous avez placé le fichier dans "C:\Excel", faites de même sur chaque poste).

Fred