Compter de cellules colorées

[Léon de Marseille]

Bonjour à tous

Existe t'il un moyen de compter des cell colorées de telle ou telle couleur dans une plage de cell ???

Merci d'avance
Cordialement
Léon

 

[Canardo]

Bonjour à toi

On peut tout compter sur xl.

Avec une macro ou avec une fonction sur la feuille, Monsieur?

 

[Canardo]

Toi aussi, t'es parti à la messe?

Tiens, je t'ai fait une petite macro qui compte les cellules jaunes et les cell rouges ds une zone adjacete à A6.

Tu modifieras les paramètres selon tes besoins, zone ou couleurs.

Sub couleurs()
Dim cell As Range
Range('A1').Select

Range('A6').CurrentRegion.Select
Set MaZone = Selection

For Each cell In MaZone

If cell.Interior.ColorIndex = 6 Then compteJ = compteJ + 1
If cell.Interior.ColorIndex = 3 Then compteR = compteR + 1
Next cell

Range('G4').Select
ActiveCell = 'Il y a ' & compteJ & ' Cellules Jaunes et ' & compteR & ' Cellules Rouges'
ActiveCell.Font.ColorIndex = 3

End Sub

A+

 

[Léon de Marseille]

Salut

Un grand merci c'est plus que j'en espérai
Fellicitation
Bonne journée
Léon