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

[Yann71]

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]

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]

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]

Bonjour,

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]

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]

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]

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]

Bonjour à tous,

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

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]

Bonjour à tous,

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

 

[job75]

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]

Bonjour à tous,
Répondre

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

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

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]

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]

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]

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]

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.