Compter cellules coloriées

[giova]

Bonjour à tous,

Je débute en VBA et j'aimerais résoudre le problème suivant qui est un peu compliqué, je voudrais compter des cellules non colorées, ci-joint tableau pour une explication plus précise.

Merci d'avance pour votre aide.

Giova

 

[Staple1600]

Re : Compter cellules coloriées

Bonsoir

Colle ce code dans un module standard
(ALT+F11 Insertion/Module)

Function sanscouleur(Plage As Range)
Dim Cell As Range
Dim cpt
For Each Cell In Plage
If Cell.Interior.ColorIndex = xlNone Then
cpt = 1 + cpt
End If
Next Cell
sanscouleur = cpt
End Function

Ensuite dans ton classeur
saisis par exemple(en B1)
=sanscouleur(A1:A10)
avec des en A1:A10 deux cellules coloriées

tu devrais alors obtenir 8

 

[giova]

Re : Compter cellules coloriées

Bonsoir,

Merci pour ton aide, mais cela ne résoud pas totalement mon problème, je te joins un fichier pour plus de précisions.

Merci d'avance

Giova

 

[Staple1600]

Re : Compter cellules coloriées

Re



Je n'ai pas dis avoir résolu ton problème

Je me suis contenté de répondre à

je voudrais compter des cellules non colorées

Ce que fait la fonction VBA sanscouleur

 

[giova]

Re : Compter cellules coloriées

Merci pour ta réponse.

Cependant y-a t-il malgré tout une solution au problème exposé dans mon fichier Excel joint dans mon post précédent.

Cordialement,

Giova

 

[Excel_lent]

Re : Compter cellules coloriées

autocensure

 

[Staple1600]

Re : Compter cellules coloriées

Re


Pour te rassurer

Oui, il y a une solution.

Pour infos:
tes flèches pointent sur la ligne 7, pas la ligne 8

or tu parles de la ligne 8

Edition:bonsoir Excel_lent, non je sais pas ce que tu en dis
(je suis pas devin)

 

[giova]

Re : Compter cellules coloriées

je parlais de mon post précédent , dans ce fichier joint je ne parle plus de numéros de lignes, mais j'esssaye d'expliquer à ma façon ce que je voulais.

Cordialement,

Giova