comptage

[eutrophisation]

BONSOIR

Je suis à la recherche d'un code qui m'autoriserait à compter le nombre de cellule ecrit en couleurs.
merci beaucoup

 

[JCGL]

Re : comptage

Bonjour à tous,

Un essai avec une Fonction :

Option Explicit

Function Couleurs(Plage As Range, IndexCouleur As Integer) As Long
Application.Volatile
Dim Cel As Range
  For Each Cel In Plage.Cells
    If Cel.Font.ColorIndex = IndexCouleur Then Couleurs = Couleurs + 1
  Next Cel
End Function

A+ à tous

 

[eutrophisation]

Re : comptage

je ne vois pas dans mon fichier la fonction.

 

[JCGL]

Re : comptage

Bonjour à tous,

Et dans la colonne D...

A+ à tous

 

[eutrophisation]

Re : comptage

Merci sauf que j'ai besoin que du nombre et devrait se faire automatiquement
2
1
1
2

 

[JCGL]

Re : comptage

Bonjour à tous,

Enlève le format personnalisé

A+ à tous

 

[eutrophisation]

Re : comptage

est il possible qu'il se fasse automatiquement sans avoir à cliquer sur la cellule contenant la formule compte tenu que j'ai un tableau sur lequel je saisie avec des couleurs differentes dont je voudrais que le comptage des couleurs se fait au fur et à mesure que je saisie.
MERCI

 

[JCGL]

Re : comptage

Bonjour à tous,

Voir le code déposé : j'ai ajouté Application.Volatile

La fonction se recalcule à chaque calcul

A+ à tous

 

[eutrophisation]

Re : comptage

Désolé je suis un vrai débutant veux tu completer le code de mon fichier. A mon niveau cela ne fonctionne pas ;suis obligée de cliquer sur la cellule ou tout autre cellule pour que la formule puisse prendre en ligne de compte.
Function Couleurs(Plage As Range, IndexCouleur As Integer) As Long
Application.Volatile
Dim Cel As Range
For Each Cel In Plage.Cells
If Cel.Font.ColorIndex = IndexCouleur Then Couleurs = Couleurs + 1
Next Cel
End Function
MERCI