compter des cellules rouges dans une ligne

[la meule]

Bonjour.Comment compter des cellules rouges sans texte dans une ou plusieurs lignes?Merci

 

[Dan]

Bonjour,

Suis ce lien et télécharge le fichier Lien supprimé fait par notre ami Thierry et placé par Zon.

Bon travail

😉

 

[la meule]

Merci.Je n'y arrive pas.Les cellules rouges sont sans texte et en lignes,et je voudrais compter les cellules rouges dans chaque lignes.Je pars par exemple de la ligne 2 colonne f,g,h, etc.

 

[Dan]

Re:

Place un petit fichier exemple avec données bidons.

😉

 

[Gael]

Bonjour La meule, Bonjour Dan,

Essaye la fonction suivante:

Function ColorCountIf(SearchArea As Object, BgColor As Range) As Integer

Application.Volatile True
ColorCountIf = 0
MaCoul = BgColor.Interior.ColorIndex
For Each cell In SearchArea
If cell.Interior.ColorIndex = MaCoul Then ColorCountIf = ColorCountIf + 1
Next cell

End Function

A mettre dans un module de ton classeur puis à utiliser comme une fonction XL cmassique par exemple:

=Colorcountif(A1:G1;C1)

==> compter les cellules de la plage A1:G1 dont la couleur est identique à C1.

@+

Gael

 

[la meule]

Voila un exemple.Je dois compter les cellules rouges en bout de ligne ou autre. [file name=Classeur1_20050926175539.zip size=1400]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20050926175539.zip[/file]

 

[Dan]

Re,

Voici un exemple que j'ai récupéré d'un fil. Je n'ai malheureusement pas l'auteur de ce fichier mais je pense que cela peut te servir.

😉 [file name=couleur_Somme.zip size=13370]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/couleur_Somme.zip[/file]

Message édité par: Dan, à: 26/09/2005 18:43

 

[la meule]

Merci.Comment on ouvre un module? Il faut recopier le code de la fonction dans le module?Je m'excuse pour toutes ces questions,mais je n'ai que quelques notions de base.

 

[Gael]

Rebonsoir,

Ci-joint ton fichier modifié avec le comptage des cellules rouges ligne par ligne et pour la plage entière.

Pour voir la fonction VBA 'ColorcountIf' tu vas dans l'éditeur VBA (Outils Macros VBA editeur ou Alt-F11) et tu regardes dans 'Module 1'.

L'exemple que t'a envoyé Dan permet en plus de totaliser les contenus des cellules de couleur ce qui peut être aussi très utile.

@+

Gael [file name=Couleur_20050926195523.zip size=6571]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Couleur_20050926195523.zip[/file]

 

[la meule]

Merci pour vos réponses,çà marche!