Formule pour compter des cellules de fond gris

[ascal44]

Bonsoir , je cherche une formule pour compter les cellule de fond gris 25% de la plage D5:E60

Merci pour votre aide

 

[job75]

Re : Formule pour compter des cellules de fond gris

Bonsoir ascal44,

Voyez en bas de la page (et ailleurs sur le forum) les discussions similaires.

A+

 

[hbenalia]

Re : Formule pour compter des cellules de fond gris

Bonjour le forum,

Je te présente les codes suivants (fonction personalisée) à mettre dans la feuille concernée comme ceci:
1- cliques droit sur l'onglet de la feuille concernée
2- sélectionnes "Visualiser le code" et colles ces codes

Les codes:

Function Compte_Couleurs(cell_range As Range, color_cell_index) As Integer
Dim rCell As Range
Dim cell_count As Integer
cell_count = 0
   For Each rCell In cell_range
    If rCell.Interior.ColorIndex = color_cell_index Then
         cell_count = cell_count + 1
    End If
   Next rCell
   Compte_Couleurs = cell_count
End Function

Function Color_index(cell_range As Range) As Integer
  
  Color_index = cell_range.Interior.ColorIndex
           
End Function

Dans l'une des cellules de la feuille (où tu veut mettre le resultat demandé) écrire la formule suivante:

= compte_couleurs(D5:E60;15)


Cordialement

 

[ascal44]

Re : Formule pour compter des cellules de fond gris

Bonsoir Hbenalia,
J'ai une erreur avec la formule : #NOM?

A quoi correspond le 15 dans la formule ?

Cordialement

 

[Habitude]

Re : Formule pour compter des cellules de fond gris

15 correspondant au Gris

regarde dans l'aide : IndicatorColorIndex

 

[job75]

Re : Formule pour compter des cellules de fond gris

Bonsoir ascal44, hbenalia, Habitude,

J'ai une erreur avec la formule : #NOM?

Pour pouvoir être utilisées dans la feuille de calcul, les 2 fonctions doivent être placées dans un Module, et non pas dans le code de la feuille.

A+

 

[hbenalia]

Re : Formule pour compter des cellules de fond gris

Bonjour à tous, bonjour job75

Bonsoir ascal44, hbenalia, Habitude,
Pour pouvoir être utilisées dans la feuille de calcul, les 2 fonctions doivent être placées dans un Module, et non pas dans le code de la feuille.
A+

Merci pour la rectification, il est vrai qu'il faut placer ces codes dans un module... Sinon le code donnerait l'erreur #NOM? comme précisé plus haut...

Le nombre 15 dans la formule correspond au Gris 25%... Le Gris 40% c'est le 48 , le Gris 50% c'est le 16 et le Gris 80% c'est le 56...

Et encore merci Job75...

NB: Chaque fois qu'on change les couleurs des cellules on est tenu à valider de nouveau la fonction dans la cellule...


Cordialement

Cordialement

 

[ascal44]

Re : Formule pour compter des cellules de fond gris

Bonjour et merci à tous.
Désolé pour le retard mai j'ai eu des soucis avec ma nouvelle freebox.

Comment fait on pour valider la fonction dans la cellule pour avoir le nouveau comptage?

Y aurait il un moyen pour dès que l'on grise une cellule le comptage se fasse ?

Merci

 

[hbenalia]

Re : Formule pour compter des cellules de fond gris

Bonjour le forum, bonjour ascal44,

Bonjour et merci à tous.
Désolé pour le retard mai j'ai eu des soucis avec ma nouvelle freebox.

Comment fait on pour valider la fonction dans la cellule pour avoir le nouveau comptage?

Y aurait il un moyen pour dès que l'on grise une cellule le comptage se fasse ?

Merci

La validation de la fonction se fait par le changement du contenu d'une cellule quelconque de la feuille, ou tout simplement, en selectionnant la cellule contenant cette fonction, on appuie sur la touche F2 puis sur ENTREE...

Pour le comptage automatique, je ne vois pas de solutions pour le moment et j'y travaille, en espérant que l'un des piliers du forum trouve la solution avant...

Cordialement

 

[job75]

Re : Formule pour compter des cellules de fond gris

Bonjour le fil,

Y aurait il un moyen pour dès que l'on grise une cellule le comptage se fasse ?

Ce n'est pas possible, car l'application d'une couleur ne crée aucun évènement.

Par contre on peut mettre au début de la fonction Compte_Couleurs l'instruction :

Application.Volatile

Alors quand on appuie sur la touche F9 la fonction est recalculée.

A+

 

[hbenalia]

Re : Formule pour compter des cellules de fond gris

Bonjour à tous, bonjour job75

Bonjour le fil,

Par contre on peut mettre au début de la fonction Compte_Couleurs l'instruction :

Application.Volatile

Alors quand on appuie sur la touche F9 la fonction est recalculée.
A+

Bonne idée job75 ... J'étais certain que quelqu'un trouverait une solution à ce problème...

On peut aussi ajouter ce petit code au "code de la feuille" :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

Maintenant, il sufit de sortir de la cellule à laquelle on a appliqué le fond Gris à 25% pour que la fonction est recalculée.


Bonne soirée à tous