comptage

JCGL

XLDnaute Barbatruc

• 5 Avril 2010

• #2

Re : comptage

Bonjour à tous,

Un essai avec une Fonction :

Code:

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

 

Pièces jointes

• JC couleur_police.xls

  22 KB · Affichages: 52

Dernière édition: 5 Avril 2010

Vote positif 0 Vote négatif

E

eutrophisation

XLDnaute Occasionnel

• 5 Avril 2010

• #3

Re : comptage

je ne vois pas dans mon fichier la fonction.

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 5 Avril 2010

• #4

Re : comptage

Bonjour à tous,

Et dans la colonne D...

A+ à tous

 

Vote positif 0 Vote négatif

E

eutrophisation

XLDnaute Occasionnel

• 5 Avril 2010

• #5

Re : comptage

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

 

Dernière édition: 5 Avril 2010

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 5 Avril 2010

• #6

Re : comptage

Bonjour à tous,

Enlève le format personnalisé

A+ à tous

 

Vote positif 0 Vote négatif

E

eutrophisation

XLDnaute Occasionnel

• 5 Avril 2010

• #7

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 5 Avril 2010

• #8

Re : comptage

Bonjour à tous,

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

La fonction se recalcule à chaque calcul

A+ à tous

 

Vote positif 0 Vote négatif

E

eutrophisation

XLDnaute Occasionnel

• 6 Avril 2010

• #9

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

 

Dernière édition: 6 Avril 2010

Vote positif 0 Vote négatif