Cellule de couleur !!!!

[homernell]

Bonjour à tous,

J'ai un petit problème j'aimerai bien que lorsque je modifie une couleur d'une cellule cela me comptabilise des totaux.

Au cas ou je vous glisse mon fichier, si qqun peut m'aider ?

Please
Merci d'avance
Homernell.

 

[ROGER2327]

Re : Cellule de couleur !!!!

Bonjour homernell

Une fonction personnalisée :

[COLOR="DarkSlateGray"][B]Function blanches(plg As Range) As Long
Application.Volatile
Dim oCel As Range
   For Each oCel In plg.Cells
      blanches = blanches - (oCel.Interior.ColorIndex = 2)
   Next oCel
End Function[/B][/COLOR]

Dans votre classeur, =blanches(C5:AF5) renverra 9.​

ROGER2327
#2814

 

[homernell]

Re : Cellule de couleur !!!!

Merci bcp, mais dis moi les codes couleurs pourrais tu si tu les connais me les donner...

Encore mille merci....

 

[homernell]

Problème

Le total ne se fait que lorsque je revalide la cellule, le total n'est pas automatique.
Est ce normal ?

S'il vous plait à tous j'ai suivi les conseils mais la petit Hic !

 

[ROGER2327]

Re : Cellule de couleur !!!!

Re...

1. La question des valeurs de la propriété ColorIndex a été souvent traitée sur ce forum. Je n'ai pas de référence sous la main, mais une petite recherche devrait vous donner des réponses.
2. Le recalcul après un modification de couleur ne se fait pas automatiquement parce que la modification de la couleur de cellule n'est pas un évènement géré par VisualBasic. Vous pouvez toutefois provoquer le calcul sans "revalider" une cellule : il suffit de presser la touche F9 après une modification de couleur.

ROGER2327
#2815

 

[ROGER2327]

Re : Cellule de couleur !!!!

Suite...

J'ai retrouvé un classeur sur les couleurs : je le joins.

Une variante de la fonction précédente pour retrouver une couleur quelconque :

[COLOR="DarkSlateGray"][B]Function compteCouleur(plg As Range, c As Integer) As Long
Application.Volatile
Dim oCel As Range
   For Each oCel In plg.Cells
      compteCouleur = compteCouleur - (oCel.Interior.ColorIndex = c)
   Next oCel
End Function[/B][/COLOR]

=compteCouleur("B3:G9";3) comptera le nombre de cellules à fond rouge (ColorIndex =3) dans la plage "B3:G9".​

ROGER2327
#2816

 

[BOISGONTIER]

Re : Cellule de couleur !!!!

Bonjour,

Il n'est pas nécessaire de connaître les codes couleur

Fonction sommeCouleurFond

Pour une maj automatique, utiliser le pinceau

ou

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End If

JB