Calcul de cellule de couleur avec texte spécifique à l'intérieur

[perrine93100]

Bonjour,

J'ai réussi à comptabiliser les cellules de couleurs grâce à une fonction que l'on nous à programmé au travail.
Seulement aujourd'hui je cherche à comptabiliser ces fameuses cellules qui contiennent du texte.

Exemple: Combien y a t'il de cellule à fond rouge contenant le chiffre 1
Combien y a t'il de cellule à fond rouge contenant le chiffre 2
Combien de cellule à fond vert contenant le chiffre 1
Combien de cellule à fond vert contenant le chiffre 2

Merci d'avance pour votre aide.

 

[Robert]

Re : Calcul de cellule de couleur avec texte spécifique à l'intérieur

Bonjour Perrine et bienvenue, bonjour le forum,

Peut être avec cette fonction personnalisée :

Public Function Som_C_V(pl As Range, ref As Range) As Double
Dim v As Double 'déclare la variable v (Valeur de la référence)
Dim coul As XlColorIndex 'déclare la variable coul (Couleur de la référence)
Dim cel As Range 'déclare la variable cel (CELlule)
Dim t As Double 'déclare la variable t (Total)

v = ref.Value 'définit la valeur de référnce v
coul = ref.Interior.ColorIndex 'définit la couleur de référence
For Each cel In pl 'boucle sur toutes les plage de la palge pl
    'si la valeur de la cellule cel vaut v et la couleur de fond de la cellule cel est coul, définit le total t
    If cel.Value = v And cel.Interior.ColorIndex = coul Then t = t + v
Next cel
Som_C_V = t 'affiche le total t
End Function

• Tu écris : =Som_C_V( dans la cellule où tu souhaite avoir le résultat
• Tu sélectionnes la plage
• tu sélectionnes la cellule de référence (qui porte la couleur et la valeur de référence)
• tu ferme la parenthèse ) et tu valides...

 

[perrine93100]

Re : Calcul de cellule de couleur avec texte spécifique à l'intérieur

Merci Robert pour la solution.
Je peux rentrer la formule dans une macro telle qu'elle?

Désolé pour la question un peu bête 🙂

 

[Robert]

Re : Calcul de cellule de couleur avec texte spécifique à l'intérieur

Bonjour Perrine, bonjour le forum,

Pas bien compris ta question... Tu copies le code de la fonction personnalisée soit dans un module du fichier dans lequel tu veux l'appliquer, soit dans un module de ton classeur de macros personnelles (perso.xls) pour pouvoir l'appliquer dans tous les fichiers.
Puis tu l'utilises comme une fonction normale en cliquant sur le bouton fx de la barre de formules. Puis dans la catégorie Personnalisées... Après, tu fait comme expliqué dans le premier post.

Tu peux aussi la renommer. J'ai mis Som_C_V pour Somme par Couleur et Valeur mais tu peux changer dans le codes les deux occurrences en première et avant dernière lignes pour la nommer à ton gré...

Je n'avais pas détaillé car tu parlais d'une fonction qu'on t'avait déjà programmé au boulot et je pensais que tu savais faire...