count format

Pierrot93

XLDnaute Barbatruc

• 6 Novembre 2007

• #2

Re : count format

Bonjour News

ton fichier en retour, avec une fonction personnalisée :

bonne soirée
@+

 

Pièces jointes

• couleur_de_fond.xls

  29 KB · Affichages: 85
• couleur_de_fond.xls

  29 KB · Affichages: 89
• couleur_de_fond.xls

  29 KB · Affichages: 88

Vote positif 0 Vote négatif

N

news

XLDnaute Impliqué

• 6 Novembre 2007

• #3

Re : count format

re: somme de couleur de fond,

est-ce une macro semblable à celle-ci de Staple1600 trouvé sur un lien posté sur ce forum,

https://www.excel-downloads.com/threads/compter-les-cellules-de-la-meme-couleur.78302/

Sub test()
Application.ScreenUpdating = False
Dim P As Range
Dim C As Range
Set P = Sheets("Feuil1").Range("A1:A100") 'ici pour le test
compteur = 0
For Each C In P
'compter selon format condtitionnel
'If C.FormatConditions(1).Interior.ColorIndex = 0 Then
'pour compter selon couleur police
'If C.Font.ColorIndex = 3 Then
'pour compter selon la couleur de la celulle
'If C.Interior.ColorIndex=3 then
compteur = compteur + 1
End If
Next C
MsgBox compteur & " cellule(s) trouvées"
End Sub

restant à changer par
if C.FormatConditions(1).Interior.ColorIndex <> 0 Then ...

 

Dernière édition: 6 Novembre 2007

Vote positif 0 Vote négatif

E

Eric 45

XLDnaute Occasionnel

• 6 Novembre 2007

• #4

Re : count format

Bonsoir à tous

Si j'ai bien compris, regarde ce post :

https://www.excel-downloads.com/threads/additionner-des-cellules-par-type-de-couleur.72154/

un code super simple de wilfried_42

Eric

Bonsoir News, on a les mêmes références j'ai l'impression

 

Vote positif 0 Vote négatif

N

news

XLDnaute Impliqué

• 6 Novembre 2007

• #5

Re : count format

re:

déjà réponse, merci beaucoup Pierrot93,

 

Vote positif 0 Vote négatif

E

Eric 45

XLDnaute Occasionnel

• 6 Novembre 2007

• #6

Re : count format

Re
Bonsoir Pierrot

 

Vote positif 0 Vote négatif

B

Banzai64

XLDnaute Accro

• 6 Novembre 2007

• #7

Re : count format

Bonjour

Une étude

 

Pièces jointes

• Compte Couleur.zip

  9.1 KB · Affichages: 39

Dernière édition: 6 Novembre 2007

Vote positif 0 Vote négatif

SergiO

XLDnaute Accro

• 6 Novembre 2007

• #8

Re : count format

Message annulé

 

Dernière édition: 6 Novembre 2007

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 6 Novembre 2007

• #9

Re : count format

Bonsoir,

Voir PJ

Code:

Function CompteCouleur(champ As Range, couleurFond)
    Application.Volatile
    Dim c, temp
    temp = 0
    For Each c In champ
      If c.Interior.ColorIndex = couleurFond Then
         temp = temp + 1
      End If
    Next c
    CompteCouleur = temp
End Function


Function CompteCouleurFondTexte(champ As Range)
   Application.Volatile
   couleurFond = Range(Application.Caller.Address).Interior.ColorIndex
   couleurTexte = Range(Application.Caller.Address).Font.ColorIndex
   Dim c, temp
   temp = 0
   For Each c In champ
     If c.Interior.ColorIndex = couleurFond And c.Font.ColorIndex = couleurTexte Then
       temp = temp + 1
     End If
   Next c
   CompteCouleurFondTexte = temp
End Function

JB
Formation Excel VBA JB

 

Pièces jointes

• couleur_de_fond(1).xls

  29.5 KB · Affichages: 71

Vote positif 0 Vote négatif

N

news

XLDnaute Impliqué

• 6 Novembre 2007

• #10

Re : count format

re: merci à tous de vos réponses,

j'ai repris les différents formules et fonctions, fait différents tests,
mais cela ne fonctionne pas encore que calcule bien le total d'une plage de données de différents couleurs de fonds,

voir fichier ci-joint,

dans les exemples de Boisgontier, le total est fait sur la base d'une couleur de fond précise,
mais besoin que le total est indiqué pour n'importe quel couleur de fond,

et j'avance un peu pour résoudre,
je prends la formule ci-dessous, laquelle fonctionne bien repris d'un autre fil posté sur ce forum,

Function nb_inter(plage As Range) As Long
Dim cel As Range, nb As Long
Application.Volatile
nb = 0
For Each cel In plage
If cel.Interior.ColorIndex <> xlNone Then nb = nb + 1
Next
nb_inter = nb
End Function

manque encore ou pour améliorer,
comment est fait automatiquement un update du total dans Range ("A12","C12","E12","I12")
si par excemple une couleur de fond est ajouté dans une plage de données,
qu'est affiché dans Range ("A12","C12","E12","I12") automatiquement le nouveau total,
sans besoin de se positionner de nouveau dans Range ("A12","C12","E12","I12") est effectuez le recalcul,

 

Pièces jointes

• couleur_de_fond_05.xls

  34 KB · Affichages: 52
• couleur_de_fond_05.xls

  34 KB · Affichages: 56
• couleur_de_fond_05.xls

  34 KB · Affichages: 54

Dernière édition: 7 Novembre 2007

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 7 Novembre 2007

• #11

Re : count format

Bonjour News, le fil, le forum

ton fichier modifié, si j'ai bien compris, ajout d'une macro événementielle dans la feuille, recalcul le classeur à chaque nouvelle selection, à noter que tu peux spécifier une plage pour ce re-calcul si tu as beaucoup de formule dans le classeur concerné.

bonne journée
@+

 

Pièces jointes

• couleur_de_fond_05.xls

  35.5 KB · Affichages: 72
• couleur_de_fond_05.xls

  35.5 KB · Affichages: 75
• couleur_de_fond_05.xls

  35.5 KB · Affichages: 73

Vote positif 0 Vote négatif

N

news

XLDnaute Impliqué

• 7 Novembre 2007

• #12

Re : count format

Bonjour à tosu du forum,

merci pour réponse Pierrot93,
ta fonction résoud et calcule bien le total de différents couleurs de fond d'une plage de données,

j'ai mis le code ci-dessous afin d'avoir automatiquement le recalcul de la forumule s'il y a des ajoutes de couleur de fond dans une plage de données ( code repris de Boisgontier qui a des données et exemples très explicites )

Dim celluleAvant

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not IsEmpty(celluleAvant) Then
If Not Intersect(Range(celluleAvant), [A1:I55]) Is Nothing Then Calculate
End If
celluleAvant = Target.Address
End Sub

bonne journée encore,

 

Dernière édition: 7 Novembre 2007

Vote positif 0 Vote négatif