somme de couleurs et des contenus

[arvin]

Bonsoir

j'aurai besoin d'une coup de main : en fait je souhaite calculer toutes les cellules qui sont d'une même couleur et ce qu'ily a dans ces cellules
J'ai un peu de code mais je bloque

qq'un aurait 1 idée ?



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


merci

 

[arvin]

c'est bon j'ai trouvé dans la rubrique recherche

merci àtous ceux qui nous aident

à+


Auteur: Thierry (195.78.17.---)
Date: 16-11-02 15:16
Pièce jointe: CompteCellsFormats.zip (23k)

Salut Lionnel, bonjour les Ami(e)s du Forum, salut à tous

Ci-joint un fichier démo... Vu que cette question revient souvent dans le Forum...

Je pense que celà aidera pas mal de gens qui veulent faire comme toi... Je n'ai pas testé en format Heure, mais si tu es "débrouillard" tu vas t'en sortir..

Comme çà tu as tous les cas de figures... Tu peux aussi envisager d'en faire des fonctions plutôt que des routines... Mais moi j'aime bien l'action !! c'est bien plus amusant en Démo...

Tu peux aussi selon tes besoins, envisager de cumuler les If pour avoir le cumul des cellules avec fond rouge AND Italic... Mais j'ai juste fait le "basic" du travail...

Je pense que tu vas pouvoir avancer des tes statistics de planning...

Bon Week End
@+Thierry