Macro ????

fred65200

XLDnaute Impliqué

• 5 Octobre 2007

• #2

Compter cellules bleues

bonjour
place la fonction suivante dans un module

Code:

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

 

Vote positif 0 Vote négatif

B

balian

Guest

• 7 Octobre 2007

• #3

Re : Macro ????

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

 

Vote positif 0 Vote négatif

B

balian

Guest

• 10 Octobre 2007

• #4

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! 🙂

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 10 Octobre 2007

• #5

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.

@+

 

Vote positif 0 Vote négatif

B

balian

Guest

• 10 Octobre 2007

• #6

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+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 10 Octobre 2007

• #7

Re : Macro ????

Re Balian

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

bonne soirée
@+

 

Vote positif 0 Vote négatif

B

balian

Guest

• 11 Octobre 2007

• #8

Re : Macro ????

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

Merci! 🙂

bonne journée! 🙂

 

Pièces jointes

• Book21.xls

  32 KB · Affichages: 59

Vote positif 0 Vote négatif

fred65200

XLDnaute Impliqué

• 11 Octobre 2007

• #9

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"


@+

 

Pièces jointes

• Book21.zip

  11.6 KB · Affichages: 42
• ColorIndex.zip

  21.5 KB · Affichages: 35
• ColorIndex.zip

  21.5 KB · Affichages: 33
• ColorIndex.zip

  21.5 KB · Affichages: 36

Dernière édition: 11 Octobre 2007

Vote positif 0 Vote négatif

B

balian

Guest

• 11 Octobre 2007

• #10

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! 🙂

 

Vote positif 0 Vote négatif

fred65200

XLDnaute Impliqué

• 11 Octobre 2007

• #11

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

Code:

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
@+

 

Vote positif 0 Vote négatif

B

balian

Guest

• 11 Octobre 2007

• #12

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! 🙂

 

Vote positif 0 Vote négatif

fred65200

XLDnaute Impliqué

• 11 Octobre 2007

• #13

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

 

Vote positif 0 Vote négatif