Macro pour compter les cellules non blanche dans une plage

[Atiom]

Bonsoir, le forum

Je souhaiterai faire un macro que compte les cellules d’une couleur différente du blanc.

Exemple :
Dans la plage (B25 : BA25) chercher le nombre de cellules de couleur différente de blanc.

Puis envoyer la somme dans la cellule N44

Comment je peux faire ?

Merci

Amicalement
Atiom

 

[Hervé]

Re : Macro pour compter les cellules non blanche dans une plage

bonjour

à essayer :

Dim c As Range
Dim cpt As Integer

For Each c In Range("b25:ba25")
    cpt = cpt - (c.Interior.ColorIndex = 2)
Next c

Range("n44") = cpt

salut

 

[SergiO]

Re : Macro pour compter les cellules non blanche dans une plage

Bonsoir Atiom,

Voici un code à tester :

Sub Nb_Couleur()
X = 0
For Each Cell In Range("B25:BA25")
If Cell.Interior.ColorIndex <> xlNone Then
X = X + 1
End If
Next Cell
Range("N44").Value = X
End Sub

@+

Edtion : Bonsoir Hervé - Confusion entre pas de couleur et Blanc ! Attendons de voir ce que dit Atiom...

 

[SergiO]

Re : Macro pour compter les cellules non blanche dans une plage

Après vérification, ta demande est liée à ton fichier sur le photopériodisme.
https://www.excel-downloads.com/threads/calculer-le-photoperiodisme.76832/

Mais les codes écrits par Hervé ou par moi ne fonctionneront pas car tes cellules sont coloriées par une MFC et par conséquent, le code n'assimile pas cela à la présence d'une couleur.

IL faut donc traiter le code comme la MFC. Voici un essai :

Sub Nb_Couleur()
X = 0
For Each Cell In Range("B25:BA25")
If Cell <> "" Then
X = X + 1
End If
Next Cell
Range("N44").Value = X
End Sub

@+

 

[Atiom]

Re : Macro pour compter les cellules non blanche dans une plage

Bonsoir, Hervé et Sergio

Tu as raison Sergio je crois que Hervé a fait confusion entre le pas de couleur et Blanc.
Ma demande n’a rien avoir avec le photopériodisme, il s’agit d’un autre planning et les cellules sont colories par macro donc il n’y pas de problème, merci pour ton observation, c’est très sympa.

Je opté par ta proposition elle fonctionne impeccable, merci encor Sergio.

Puis j’ai essayé de modifier la macro d’Hervé comme ça :

Sub Nb_Couleur()
Dim c As Range
Dim cpt As Integer
For Each c In Range("b25:ba25")
    cpt = cpt - (c.Interior.ColorIndex = xlNone)
Next c

Range("n44") = cpt
End Sub

Elle fonctionne mais elle compte les cellules blanches, or je voulais justement le contraire.

Mais dans tous le cas merci Hervé pour ça proposition.

Cordialement


Atiom

 

[SergiO]

Re : Macro pour compter les cellules non blanche dans une plage

Re,

Pour info, dans le code d'Hervé, voilà ce qu'il faut changer :

cpt = cpt - (c.Interior.ColorIndex <> xlNone)

Bonne soirée

 

[Hervé]

Re : Macro pour compter les cellules non blanche dans une plage

re

non non hervé n'a pas confondu, il existe en excel une couleur blanche (colorindex=2) différente du pas de couleur(colorindex=xlnone).

salut