XL 2016 Compter les cellules en fonction de la couleur issu du MFC

Rabeto · 19 Août 2021

Bonjour,

J'ai cherché une solution mais ce que j'ai trouvé ne correspond pas à ce que je souhaite avoir.
Si quelqu'un peut m'aider.

Je souhaite compter le nombre de cellule qui ont des couleurs issues d'une MEFC

job75 · 21 Août 2021

Bonjour Patrick, le forum,

Oui c'est moi qui avais la comprenette difficile

Alors avec le fichier de mon post #10 on utilisera 2 dictionary :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim d As Object, dd As Object, c As Range, coul&
Set d = CreateObject("Scripting.Dictionary")
Set dd = CreateObject("Scripting.Dictionary")
For Each c In [D3:M17] 'plage à adapter
    coul = c.DisplayFormat.Interior.Color
    d(coul) = d(coul) + 1 'comptage
    dd(coul) = dd(coul) + Val(Replace(c, ",", ".")) 'somme
Next
Application.EnableEvents = False 'désactive les évènements
For Each c In [A4:A6] 'plage à adapter
    coul = c.Interior.Color
    c = "Nombre " & d(coul) & " - Somme " & Format(dd(coul), "0.00")
Next...

Chris769375 · 20 Août 2021

job75 à dit:
Comprenette difficile ? Entrez manuellement en A7 la formule =SOMME(A4:A6)

Nous parlons bien du fichier du post #10...

Je pense que vous avez pas compris,
Depuis le premier poste on parle de compter le nombre de cellule D3 à M17 qui ont des couleurs identique, et donc en plus je souhaite additionner les chiffres des cellules D3 à M17 de la meme couleur
Et pour info faire la somme de 3 cellules moi comprendre

Victor21 · 20 Août 2021

Bonsoir à tous.
Toujours avec les conditions de la mefc,
(mais je suis persuadé qu'on peut trouver plus compliqué )

job75 · 21 Août 2021

Bonjour Patrick, le forum,

Oui c'est moi qui avais la comprenette difficile

Alors avec le fichier de mon post #10 on utilisera 2 dictionary :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim d As Object, dd As Object, c As Range, coul&
Set d = CreateObject("Scripting.Dictionary")
Set dd = CreateObject("Scripting.Dictionary")
For Each c In [D3:M17] 'plage à adapter
    coul = c.DisplayFormat.Interior.Color
    d(coul) = d(coul) + 1 'comptage
    dd(coul) = dd(coul) + Val(Replace(c, ",", ".")) 'somme
Next
Application.EnableEvents = False 'désactive les évènements
For Each c In [A4:A6] 'plage à adapter
    coul = c.Interior.Color
    c = "Nombre " & d(coul) & " - Somme " & Format(dd(coul), "0.00")
Next
Columns(1).AutoFit 'ajustement largeur
Application.EnableEvents = True 'réactive les évènements
End Sub

A+

XL 2016 Compter les cellules en fonction de la couleur issu du MFC

Rabeto

XLDnaute Occasionnel

Pièces jointes

job75

Chris769375

XLDnaute Nouveau

Victor21

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

Discussions similaires