Macro ????

[balian]

Bonjour, j'ai la macro suivante:

Sub NombredeCellulesbleues()

Dim Cellule As Range
Dim total As Variant
For Each Cellule In Selection
If Cellule.Interior.ColorIndex = 5 Then 'bleu
total = total + Cellule.Count
End If
Next
MsgBox "Il y a " & total & " Cellules bleues"
Range("A10") = total

End Sub

La question est si je peux la faire exécuté automatiquement pour chacune des colonnes de mon tableau et qu'elle indique le nombre au bas de la colonne. Donc, lorsqu'il y aura un changement, le nombre au bas de la colonne va changer automatiquement.

Merci de votre aide 😉

 

[fred65200]

Compter cellules bleues

bonjour
place la fonction suivante dans un module

Function CellulesEnBleu(R As Range)
'tu appelles ta formule comme ceci
' =CellulesEnBleu(E3:E19)
Application.Volatile
For Each c In R
  If c.Interior.ColorIndex = 5 Then 'bleu
    CellulesEnBleu = CellulesEnBleu + 1
  End If
Next
End Function

ensuite appelle la dans une feuille sous la forme

=CellulesEnBleu(E3:E19)

Salutations

 

[balian]

Re : Macro ????

Désolé pour le délai, merci, cela répond à ma demande.

 

[balian]

Re : Macro ????

Bonjour, j'ai un problème lors de l'utilisation de la formule, j'ai l'erreur suivante:

La formule omet les cellules adjacentes et finalement, elle ne compte pas toutes mes cellules selon la couleur.

Merci encore et bonne journée! 🙂

 

[Pierrot93]

Re : Macro ????

Bonjour Balian, Fred

tu n'aurais pas des cellules fusionnées par hasard ? vba aime pas trop, enfin il faut les gérer.

@+

 

[balian]

Re : Macro ????

J'avais des cellules fusionnées, je les ai enlever mais maintenant j'ai centrer sur plusieurs colonnes. Est-ce que cela pourrait être le problème.

a+

 

[Pierrot93]

Re : Macro ????

Re Balian

et une fois enlevé les cellules fusionnées, le problème demeure ?

bonne soirée
@+

 

[balian]

Re : Macro ????

Voici une partie du tableau, je dois compter les cellules blanches.

Merci! 🙂

bonne journée! 🙂

 

[fred65200]

Re : Macro ????

bonsoir
Je t'ai mis la fonction pour les cellules qui n'ont aucun remplissage
(pas blanc)

aucun remplissage -4142
blanc 2

Si tu dois compter "plusieurs couleurs", il serait peut être judicieux d'entrer un 2nd paramètre
ce que j'ai fais dans la fonction

Function CompterCelluleUneCouleur(R As Range, Coul)

je te laisse finir de la paramétrer (cf. ColorIndex.jpg)
Regarde ligne 181


NB : comme tu l'as constaté, il ne faut pas de cellule fusionnée.
la cellule fusionnée cause souvent des problèmes, utilise plutôt "Centrer sur plusieurs colonnes"


@+

 

[balian]

Re : Macro ????

Merci pour ton aide, mais je cela ne résout toujours pas mon problème, en essayant tes explications, je n'arrive toujours pas à la solution. Premièrement, j'ai seulement besoin de compter les case blanche, soit celle qui n'ont pas de couleur. Pis quand j'effectue l'opération avec les info que tu m'as donné, j'arrive à un compte de 36 sur ma première colonne. Je dois compter les cellules par colonne individuellement. Et indiquer le nombre dans le bas de chaque colonne. Désolé de m'être mal exprimé antérieurement.


Bye! 🙂

 

[fred65200]

Re : Macro ????

re

je crois que tu ne fais pas la différence entre
fond blanc ColorIndex = 2
aucun remplissage ColorIndex = -4142

tu as 36 cellules en blanc et 80 sans remplissage

Utilise le code suivant, tu vas comprendre

Sub dp()

For Each c In Range("a1:a179")
Cells(c.Row, 13) = c.Interior.ColorIndex
Next
End Sub

dans la colonne M, tu auras les colorindex de la colonne A

2 <> -4142

=CompterCelluleUneCouleur($A$3:$A$179;"aucune") + CompterCelluleUneCouleur($A$3:$A$179;"blanc") = 116

En espérant que cela t'aide.

Tiens nous au courant
@+

 

[balian]

Re : Macro ????

Merci pour ton aide, j'ai mis toutes les cellules à pas de couleur et cela a marche. Je demeure toujours avec l'intérogation que la formule omet les cellules adjacentes, est-ce important?



Merci encore pour votre aide et bonne journée! 🙂

 

[fred65200]

Re : Macro ????

bonsoir,
si j'ai bien compris, tu doit mettre ta plage de cellules entre parenthèses, séparé par des point-virgules

=CompterCelluleUneCouleur((C178;C17:E173);"bleu")

nb: le colorindex pour bleu est bien 5 et non 6

Cordialement

fred65200