Formule calcul nb cellule avec couleur

[DAVID P]

bonjour le forum ,

je suis à la recherche d'une formule me permettant de calculer le nombre de cellule colorée sur une ligne.


en annexe un exemple.


si quelqu'un peut m'aider


Merci de votre aide [file name=tableau exemple calcul cellules colorées_20050402143618.zip size=2085]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/tableau exemple calcul cellules colorées_20050402143618.zip[/file]

 

[charli]

bonjour le forum, david

il ne faut ni espace ni accent dans le nom de fichier.

@+
charli

 

[pat1545.]

Salut,

voilà pour compter :

Function CountByColor(InputRange As Range, ColorRange As Range) As Long
Dim cl As Range, TempCount As Long, ColorIndex As Integer
ColorIndex = ColorRange.Cells(1, 1).Interior.ColorIndex
TempCount = 0
For Each cl In InputRange.Cells
If cl.Interior.ColorIndex = ColorIndex Then TempCount = TempCount + 1
Next cl
Set cl = Nothing
CountByColor = TempCount
End Function


Patrick

 

[davidp]

merci de m'avoir consacré du temps ,

je renvoi mon tableau exemple planning car je ne sais pas comment exploiter la macro .


A savoir comment indiquer à la macro les cellules à compter et dans quelle case indiquer le résultat.

je joins un tableau pour exemple (sans espace ...)


cordialement

bonne journée

 

[davidp]

j'ai oublié de joindre le fichier,

je le joins à ce courrier

désolé [file name=ex_20050403094636.zip size=2006]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ex_20050403094636.zip[/file]

 

[DAVIDP]

Rebonjour le forum ,


si à l'occasion quelqu'un à une idée


Bonne soirée à tous

 

[JeanMarie]

Bonsoir

Ci-joint ton fichier modifié

Rajout d'un module dans VBA et ajout de la function CountByColor

Dans la cellule F6, mise en place de la formule
=CountByColor(A6:E6)

Les Function VBA sont disponibles dans la boîte de dialogue d'insertion de formules dans la catégorie 'Personnalisées'.

@+Jean-Marie [file name=ex_20050403193106.zip size=6399]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ex_20050403193106.zip[/file]

 

[@Christophe@]

Bonjour,

Voici ton fichier modifié

bonne soirée [file name=CountColor.zip size=7094]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/CountColor.zip[/file]

Message édité par: @Christophe@, à: 03/04/2005 19:33

 

[@Christophe@]

Bonsoir forum, JeanMarie,

Nous nous sommes croisé. Réponse presque identique, timing aussi, lol

bonne soirée

 

[davidp]

je te remercie JEAN MARIE pour ta rapidité.

Ca fonctionne .

Par contre est il possible si je rajoute de la couleur dans une case vide auparant ( cellule comprise dans la selectionne) que le résultat se réactualise?


MERCI

 

[JeanMarie]

Re...

En rajoutant en troisième ligne, la propriété VOLATILE à la function en troisième ligne

Function CountByColor(InputRange As Range) As Long
Dim cl As Range, TempCount As Long, ColorIndex As Integer
Application.Volatile
TempCount = 0
For Each cl In InputRange.Cells
If cl.Interior.ColorIndex > 0 Then TempCount = TempCount + 1
Next cl
Set cl = Nothing
CountByColor = TempCount
End Function

Après changement de la couleur, tu dois impérativement changer de sélection de cellule pour provoquer le recalcul de la cellule.

@+Jean-Marie

 

[DAVIDP]

JE TE REMERCIE jean marie



d'ici 2 h je vais essayer,


Merci encore de m'avoir consacré du temps.


Merci également à Christhope


Bonne soirée à tous

 

[Celeda]

Bonsoir le forum du dimanche,

ou bien on associe un bouton dont le code est à placer dans le module de la feuille 1 pour déclencher la réactualisation :

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


Celeda

 

[davidp]

Rebonjour,


j'ai essayé avec l'ajout de ' application.volatile' mais je n'ai pas réussi à faire fonctionner la réactualisation du résultat.

Qu'elle est le chemin pour créer dans VBA 'personnalisé' suite à ton mail?


Bonne nuit

 

[davidp]

bonjour le forum,


si quelqu'un à une idée malgré l'aide de Jean marie et Christophe, je débute......


Bonne soirée à tous

merci d'avance



[file name=ex_20050403193106_20050404202650.zip size=6399]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ex_20050403193106_20050404202650.zip[/file]