XL 2016 Compter les MFC d'une feuille

[TooFatBoy]

Bonjour,

Y a-t-il moyen de savoir combien de MFC il y a dans une feuille d'un classeur ?

 

[Phil69970]

Bonjour Marcel

Voir ici cela devrait faire ton bonheur

@Phil69970

 

[TooFatBoy]

Waouh ! Ca m'a l'air pas mal du tout. Merci

Toutefois, ça parle de MFC de type 2, et je ne sais pas ce que c'est... ;(
Si je veux comptabiliser toutes les MFC de ma feuille, est-ce que je dois enlever ce critère ?

 

[VIARD]

Bonjour Marcel, Phil et à tous

Je ne sais pas si cela pourra t'aider.
J'ai une procédure de "Laurent Longre" pour une cellule.

Sub Elle_Est_Belle_Ma_MEFC(RetourMFC, RetourMfcHexa)
'Laurent Longre, MPFE, corrections 2003
Dim FC As FormatCondition, F1, F2
Dim c As Range, Hexa

Set c = Cells.Find(Empty)
Application.ScreenUpdating = False
For Each FC In ActiveCell.FormatConditions
    c.FormulaLocal = FC.Formula1: F1 = c
    If FC.Type = xlCellValue Then
        Select Case FC.Operator
            Case xlBetween, xlNotBetween:
                c.FormulaLocal = FC.Formula2: F2 = c
                If FC.Operator = xlBetween Then If ActiveCell >= F1 _
                    And ActiveCell <= F2 Then Exit For
                If ActiveCell < F1 Or ActiveCell > F2 Then Exit For
            Case xlEqual: If ActiveCell = F1 Then Exit For
            Case xlGreater: If ActiveCell > F1 Then Exit For
            Case xlGreaterEqual: If ActiveCell >= F1 Then Exit For
            Case xlLess: If ActiveCell < F1 Then Exit For
            Case xlLessEqual: If ActiveCell <= F1 Then Exit For
            Case xlNotEqual: If ActiveCell <> F1 Then Exit For
        End Select
    Else
        If F1 Then Exit For
    End If
Next FC
If Not FC Is Nothing Then
    RetourMFC = FC.Interior.ColorIndex
    Hexa = FC.Interior.Color
    RetourMfcHexa = "&H" & Hex$(Hexa)
'    MsgBox RetourMfcHexa
Else
    RetourMFC = ActiveCell.Interior.ColorIndex
End If
c.Clear
End Sub

que j'utilise.

Amicalement
Jean-Paul

 

[Phil69970]

Marcel

Si j'ai compris on peux mettre des formules matricielles dans une MFC

MFC de Type 2 (xlExpression) sont des formules Matricielles

Teste sur un fichier ou tu as des mfc et/ou demande des précisions à Dudu
La macro teste tout d’après mes tests sur un fichier test avec 2 mfc quelconques .....

@Phil69970

 

[Dudu2]

Bonjour @Marcel32, @Phil69970,

Si tu veux savoir combien de MFC tu as sur une feuille il suffit de faire:

MsgBox ActiveSheet.Cells.FormatConditions.Count

Les types de MFC:

Énumération XlFormatConditionType (Excel)

Rubrique de référence sur Office VBA

docs.microsoft.com

 

[TooFatBoy]

Merci @VIARD ça m'a l'air un peu plus compliqué. Mais je prends l'information avec plaisir.

Ce que je veux, c'est juste compter le nombre de MFC, autrement dit le nombre de lignes qui apparaissent dans le "Gestionnaire des règles de mise en forme conditionnelle".

 

[TooFatBoy]

Bonjour @Marcel32, @Phil69970,

Si tu veux savoir combien de MFC tu as il suffit de faire:

MsgBox ActiveSheet.Cells.FormatConditions.Count

Oui, c'est juste le nombre de MFC de la feuille que je voudrais connaître.

 

[Dudu2]

Le nombre de MFC évolue avec le temps.
Tu peux très bien définir une MFC sur un Range, puis, au fur et à mesure des insertions, suppressions Excel va morceler cette MFC en plusieurs MFC du même type mais sur des Range éclatés.

 

[VIARD]

@Marcel32

Par contre MFC type 2, je ne connais pas.
la réponse de @Dudu2 semble intéressante.
A+

 

[TooFatBoy]

C'est @Dudu2 qui a remporté le trophé du gagnant !

Merci à tous.

 

[job75]

Bonjour à tous,

Si l'on veut calculer le nombre de cellules contenant des MFC :

Sub Compte_MFC()
Dim n#
On Error Resume Next 'si aucune SpecialCell
n = Cells.SpecialCells(xlCellTypeAllFormatConditions).CountLarge
MsgBox n
End Sub

A+

 

[TooFatBoy]

Le nombre de MFC évolue avec le temps.
Tu peux très bien définir une MFC sur un Range, puis, au fur et à mesure des insertions, suppressions Excel va morceler cette MFC en plusieurs MFC du même type mais sur des Range éclatés.

Toutafé.

Si les gens savaient un minimum utiliser Excel, ils feraient des collages spéciaux pour ne coller que les données et non toute la cellule...

 

[Dudu2]

Si les gens savaient un minimum utiliser Excel, ils feraient des collages spéciaux pour ne coller que les données et non toute la cellule...

Certes mais ce n'est pas toujours possible.
De toutes façons, une simple insertion de ligne ou de cellules dans un Range MFC se termine généralement par du split de MFC selon la formulation de la MFC.

J'ai fait des outils de manipulation de MFC dont l'un consiste à essayer de regrouper les MFC éclatées. C'est tout sauf simple car pour comparer des MFC il faut aussi comparer les types, les formules ou les objets et les formats qu'elles utilisent.

 

[TooFatBoy]

Pour info, la MsgBox de #6 m'affiche... 2814

La MsgBox de #12 m'affiche 0.