Compter les couleurs d'une plage de cellules

ADB

unread,

Jul 12, 2001, 5:51:53 AM7/12/01

to

Bonjour,
J'ai un tableau dont certaines cellules sont colorées,
d'autres non (couleur de remplissage).
Je cherche donc à compter les cellules affichées sur fond
rouge, vert, etc. (10 couleurs en tout).
Précision: le tableau est en mode partagé. Ce serait donc
bien que ce calcul se modifie à chaque modif du classeur
partagé.
Merci d'avance
Arnaud Dupin

PS: j'ai bien un code chez priscillus mais il ne convient
apparemment que pour le décompte d'une seule couleur.

ChrisV

unread,

Jul 12, 2001, 11:51:58 AM7/12/01

to

Bonjour ADB,

Function SomCool(Zne As Range, Couleur As String)
Application.Volatile True
Select Case Couleur
Case "rouge"
Couleur = 3
Case "vert"
Couleur = 50
Case "jaune"
Couleur = 6
Case "bleu"
Couleur = 5
Case "gris"
Couleur = 15
Case "orange"
Couleur = 40
End Select
For Each cell In Zne
If cell.Interior.ColorIndex = Couleur Then cvSomme = _
cvSomme + 1
Next
SomCool = cvSomme
End Function

Pour sommer le contenu des cellules de la plage B1:B10 dont la couleur de
fond est le rouge :

=SomCool(B1:B10;"rouge")

ChrisV

"ADB" <adup...@noos.fr> a écrit dans le message news:
329501c10ab8$47670a80$9ee62ecf@tkmsftngxa05...

ADB

unread,

Jul 12, 2001, 5:13:55 PM7/12/01

to

Bonjour,
Merci à Chris V pour sa fonction.
Ca fonctionne bien, sauf qu'apparemment la mise à jour ne se fait pas
automatiquement à chaque modification de couleur de cellule.
A moins que je n'ai pas placé cette fonction au bon endroit. Je l'ai mise
dans le workshop du fichier, après une instruction open.
Dois-je la mettre ailleurs (et où) pour qu'il y ait mise à jour auto ?

Merci d'avance

Amicalement
A. Dupin de Beyssat

e-mail : adup...@noos.fr
page perso : http://mapage.noos.fr/adupinbe/
page Guide Méditerranée : http://guidemediterranee.free.fr/

sabatier

unread,

Jul 12, 2001, 6:17:35 PM7/12/01

to

contrairement à ce qu'on pourrait penser, cette macro n'aura pas une
activité très laborieuse, si elle reste là
jps

ADB

unread,

Jul 13, 2001, 4:54:29 AM7/13/01

to

Bien. Ca j'ai compris.
Mais je me la mets où, alors ? -))))))))))
ADB
>-----Message d'origine-----

>.
>

sabatier

unread,

Jul 13, 2001, 7:55:07 AM7/13/01

to

excuse moi ADB mais je ne peux pas relire ton dernier message ; deux
mots pour te dire
1) que mon intervention était une joke, comme dit isabelle, et avait un
rapport avec ton utilisation du mot worshop au lieu de workbook
2) si maintenant tu deamndes où installer la fonction que t'as écrite
chrisV, assurément elle ne doit pas être mise dans un "open" quelconque
: il te suffit (mais t'est aussi nécessaire) de la mettre dans un module
standard et ensuite tu mettras dans une cellule de ton classeur ce que
t'a dit chrisV : = (le nom de la fonction) et les paramètres
voili voilou mais n'hésite pas à revenir vers plus spécialiste des
fonctions que moi
à +
jps

ChrisV

unread,

Jul 13, 2001, 2:22:32 PM7/13/01

to

Bonjour ADB,

Le changement de la couleur de remplissage d'une cellule ne provoque pas le
recalcul de la feuille et la réévaluation de la fonction personnalisée...
Néanmoins l'instruction Application.Volatile True placée en début de cette
fonction permet de forcer ce recalcul de la feuille par la touche F9.
Tu peux aussi associer à un bouton de commande de la BO Contrôle le code
suivant :

Private Sub CommandButton1_Click()
Worksheets(1).Calculate
End Sub

ChrisV

"ADB" <adup...@noos.fr> a écrit dans le message news:

9il3v8$da4$1...@neon.noos.net...