Microsoft 365 Compter des cellules colorées avec mise en forme conditionnelle

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 22 Avril 2021

• #2

Bonjour Sébastien,
Bien que je l'ai déjà vu quelque part, je ne me rappelle plus comment compter les MFC. Mais ce n'était pas simple.
Une autre idée est de remettre les règles MFC en VBA, comme en PJ, avec :

VB:

Sub Compte()
    Dim V0%, V1%, V2%, V3%, V4%
    V0 = 0: V1 = 0: V2 = 0: V3 = 0: V4 = 0
    For Each C In Range("B3:H23")
        Select Case C.Value
            Case "FAIT OK":             V1 = V1 + 1
            Case "FAIT NOK":            V2 = V2 + 1
            Case "PAS FAIT":            V3 = V3 + 1
            Case "PAS DE PERSONNEL":    V4 = V4 + 1
        End Select
        If C.Interior.Color = RGB(112, 48, 160) Then V0 = V0 + 1
    Next C
    [D28] = V0: [D29] = V1: [D30] = V2: [D31] = V3: [D32] = V4
End Sub

 

Pièces jointes

• test count color.xlsm

  26.8 KB · Affichages: 23

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 22 Avril 2021

• #3

Ou encore plus simple, de simples formules et une fonction perso :

VB:

Function Violet(Plage As Range)
    Dim N%
    Application.Volatile
    For Each C In Plage
        If C.Interior.Color = RGB(112, 48, 160) Then N = N + 1
    Next C
    Violet = N
End Function

 

Pièces jointes

• test count color V2.xlsm

  25.9 KB · Affichages: 18

Vote positif 0 Vote négatif

Solution

Staple1600

XLDnaute Barbatruc

• 22 Avril 2021

• #4

Bonjour le fil

[aide mémoire pour sylvanu]
Ici et maintenant
[/aide mémoire]

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 22 Avril 2021

• #5

Bonjour Staple,
Merci c'est ce que j'avais oublié. (c'est archivé!)
Ceci étant dit, ça n'aurait pas servi à grand chose car les cellules violettes ne font l'objet d'aucune MFC, c'est la couleur du fond.
C'est pour ça qu'au post #3 ça s'est simplifié.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Avril 2021

• #6

Re

Si, si cela a servi au moins à deux choses
1) nous croiser (Bonjour sylvanu)
2) me permettre de caresser mes trois touches fatiguées car trop sollicitées: CTRL, C et V

 

Vote positif 0 Vote négatif

S

sebastien176

XLDnaute Junior

• 22 Avril 2021

• #7

sylvanu à dit:

Ou encore plus simple, de simples formules et une fonction perso :

VB:

Function Violet(Plage As Range)
    Dim N%
    Application.Volatile
    For Each C In Plage
        If C.Interior.Color = RGB(112, 48, 160) Then N = N + 1
    Next C
    Violet = N
End Function

Cliquez pour agrandir...

Super Merci Beaucoup Sylvanu
Je vais prendre ta 1ère solution ... elle est plus adaptable à mon fichier
Merci pour ton retour très rapide

Une dernière petite question :
Est-il possible d'interdire la copie d'un fichier Excel
Je m'explique : Le fichier que j'ai créé est sur réseau (interne entreprise) et malheureusement quelques personnes "s'amusent" à faire une copie de ce fichier et au bout du compte je me retrouve avec XX copies à la racine du dossier dans lequel il se trouve ....

Si tu as une soluc, je suis preneur

Merci d’avance

Seb

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 22 Avril 2021

• #8

Re,
Il existe peut être des solutions en VBA interdisant une copie ( j'en doute ) mais ce serait totalement illusoire.
Il suffit de copier le fichier sous l'explorateur et le tour est joué.

 

Vote positif 0 Vote négatif

S

sebastien176

XLDnaute Junior

• 22 Avril 2021

• #9

sylvanu à dit:

Re,
Il existe peut être des solutions en VBA interdisant une copie ( j'en doute ) mais ce serait totalement illusoire.
Il suffit de copier le fichier sous l'explorateur et le tour est joué.

Cliquez pour agrandir...

Ok ça marche
Merci quand même ... je continuerai d'effacer les copies de ces petits malins

 

Vote positif 0 Vote négatif