Microsoft 365 Compter le nombre de cellule mise en couleur avec MFC

Yann71 · 4 Septembre 2024

Bonjour la COM.

J'ai un tableau dont les lignes prennent une couleur différente suivant le contenu d'une cellule,
Exemple: Si dans la colonne A j'inscrit F1 les lignes B à L prenne la couleur rouge
Si dans la colonne A j'inscrit F2 les cellules B à L prenne la couleur verte
A noter que les couleurs sont établie avec une MFC

Je vous remercie pour votre aide

Dudu2 · 4 Septembre 2024

Bonjour,
Faut compter dans l'ApplyTo Range de la MFC le nombre de cellules qui ont:
Cellule.DisplayFormat.Interior.Color <> Cellule.Interior.Color
à condition bien sûr qu'aucune couleur de la MFC ne corresponde à une couleur existante native du Range examiné.
Et ça se fait en VBA !

AtTheOne · 4 Septembre 2024

Bonsoir à toutes & à tous
Bonsoir @Yann71
Je suis sur mon téléphone, pas accès aux MFC.
Mais tu peux utiliser une formule avec le test de ta MFC : exemple
=SOMME(SI(A2:A16="F1";COLONNES(B2:K16);0))
Avec excel 365 pas besoin de validation matricielle
A bientôt

TooFatBoy · 4 Septembre 2024

Bonjour,

Yann71 à dit:
J'ai un tableau dont les lignes prennent une couleur différente suivant le contenu d'une cellule

A noter que les couleurs sont établie avec une MFC

Le mieux est probablement d'utiliser les formules des MFC.
Ici ça donnerait par exemple =NB.SI(A2:A16;"F1")+NB.SI(A2:A16;"F2")

AtTheOne · 4 Septembre 2024

Re, bonsoir @TooFatBoy
Si @Yann71 veut compter les cellules rouges et les cellules vertes en 2 comptes il faudra séparer les additions. En plus il faut multiplier par le nombre de colonnes colorées non ?
À bientôt

TooFatBoy · 5 Septembre 2024

Oui, je croyais qu'il voulait compter les lignes et non toutes les cellules vu que la formule de la MFC est =$A2="F2".
J'ai encore une fois lu entre les lignes et mal compris la question.

Yann71 · 5 Septembre 2024

Tout d'abord merci à vous tous d'avoir pris le temps de me répondre.
Il semblerai que je me sois peut-être mal exprimé. Pour plus de clarté
je joins un nouveau fichier qui se montrera je pense plus explicite.
L'information que j'ai omis de préciser, c'est que je souhaite avoir le total des
cellule de couleur sur la même ligne, ce qui ,me permettra d'afficher dans
colonne "BA" le nombre d'heure de présence de chaque ligne.

job75 · 5 Septembre 2024

Bonjour à tous,

Voyez le fichier joint et cette macro dans le code de la feuille :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, n%, c As Range
Application.EnableEvents = False
For Each r In [D9:AY18].Rows
    n = 0
    For Each c In r.Cells
        If c.DisplayFormat.Interior.ColorIndex <> xlNone Then n = n + 1
    Next c
    r.Cells(1, r.Columns.Count + 2) = n / 4
Next r
Application.EnableEvents = True
End Sub

Elle se déclenche quand on modifie ou valide une cellule quelconque.

A+

djidji59430 · 5 Septembre 2024

Bonjour à tous,

Il suffit de dire que pour 01, ça fait 7:15

job75 · 5 Septembre 2024

djidji59430 à dit:
Il suffit de dire que pour 01, ça fait 7:15

Oui mais ma macro fonctionne même si l'on modifie les plages d'application des MFC.

Yann71 · 5 Septembre 2024

job75 à dit:
Bonjour à tous,
Répondre

job75 à dit:

Oui mais ma macro fonctionne même si l'on modifie les plages d'application des MFC.

Cliquez pour agrandir...

Voyez le fichier joint et cette macro dans le code de la feuille :

VB:

Private Sub Worksheet_Change(ByVal Target As Range) Dim r As Range, n%, c As Range Application.EnableEvents = False For Each r In [D9:AY18].Rows n = 0 For Each c In r.Cells If c.DisplayFormat.Interior.ColorIndex <> xlNone Then n = n + 1 Next c r.Cells(1, r.Columns.Count + 2) = n / 4 Next r Application.EnableEvents = True End Sub

Elle se déclenche quand on modifie ou valide une cellule quelconque.

A+

Bonjour, merci pour votre aide. Je suis un tout petit débutant en ce qui concerne le code VBA. Malgré le fait que vous m'apportez un peut plus de connaissance à ce sujet, cela ne m'aide pas sur le fond de ma demande. Le but est que dans la colonne "BA" s'inscrit le nombre de cellule colorée dans la ligne correspondante.

djidji59430 · 5 Septembre 2024

Job 75 --je n'ai jamais dit le contraire (de plus, je suis nul en VBA).
Mais faire une mfc qui remplit a chaque fois toutes les cellules de la selection, ça me parait un peu farfelu ...D'ou mon idée de solution*

Crdlmt

job75 · 5 Septembre 2024

Yann71 à dit:
Le but est que dans la colonne "BA" s'inscrit le nombre de cellule colorée dans la ligne correspondante.

Ma macro indique le nombre d'heures, c'est pourquoi le nombre de cellules n est divisé par 4.

Yann71 · 5 Septembre 2024

djidji59430 à dit:
Job 75 --je n'ai jamais dit le contraire (de plus, je suis nul en VBA).
Mais faire une mfc qui remplit a chaque fois toutes les cellules de la selection, ça me parait un peu farfelu ...D'ou mon idée de solution*

Crdlmt

Pourquoi trouvez-vous cela farfelu

Yann71 · 5 Septembre 2024

Je tiens à tous vous remercier pour votre aide, qui m'a apporté quelques connaissance supplémentaire qui me serviront sûrement pour d'autre projet et qui à répondu pleinement à ce que je recherchais. Je vous souhaite une bonne soirée.

Microsoft 365 Compter le nombre de cellule mise en couleur avec MFC

Yann71

XLDnaute Occasionnel

Pièces jointes

Dudu2

XLDnaute Barbatruc

AtTheOne

XLDnaute Accro

TooFatBoy

XLDnaute Barbatruc

AtTheOne

XLDnaute Accro

TooFatBoy

XLDnaute Barbatruc

Yann71

XLDnaute Occasionnel

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

djidji59430

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Yann71

XLDnaute Occasionnel

djidji59430

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Yann71

XLDnaute Occasionnel

Yann71

XLDnaute Occasionnel

Discussions similaires