Formule calcul nb cellule avec couleur

C

charli

Guest

• 2 Avril 2005

• #2

bonjour le forum, david

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

@+
charli

 

Vote positif 0 Vote négatif

P

pat1545.

XLDnaute Accro

• 2 Avril 2005

• #3

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

 

Vote positif 0 Vote négatif

D

davidp

Guest

• 3 Avril 2005

• #4

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

 

Vote positif 0 Vote négatif

D

davidp

Guest

• 3 Avril 2005

• #5

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]

 

Pièces jointes

• ex_20050403094636.zip

  2 KB · Affichages: 67

Vote positif 0 Vote négatif

D

DAVIDP

Guest

• 3 Avril 2005

• #6

Rebonjour le forum ,


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


Bonne soirée à tous

 

Vote positif 0 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 3 Avril 2005

• #7

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]

 

Pièces jointes

• ex_20050403193106.zip

  6.2 KB · Affichages: 93

Vote positif 0 Vote négatif

@

@Christophe@

XLDnaute Occasionnel

• 3 Avril 2005

• #8

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

 

Pièces jointes

• CountColor.zip

  6.9 KB · Affichages: 85

Vote positif 0 Vote négatif

@

@Christophe@

XLDnaute Occasionnel

• 3 Avril 2005

• #9

Bonsoir forum, JeanMarie,

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

bonne soirée

 

Vote positif 0 Vote négatif

D

davidp

Guest

• 3 Avril 2005

• #10

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

 

Vote positif 0 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 3 Avril 2005

• #11

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

 

Vote positif 0 Vote négatif

D

DAVIDP

Guest

• 3 Avril 2005

• #12

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

 

Vote positif 0 Vote négatif

Celeda

XLDnaute Barbatruc

• 3 Avril 2005

• #13

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

 

Vote positif 0 Vote négatif

D

davidp

Guest

• 4 Avril 2005

• #14

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

 

Vote positif 0 Vote négatif

D

davidp

Guest

• 4 Avril 2005

• #15

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]

 

Pièces jointes

• ex_20050403193106_20050404202650.zip

  6.2 KB · Affichages: 58

Vote positif 0 Vote négatif