MsgBox ActiveSheet.Cells.FormatConditions.Count
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
Teste sur un fichier ou tu as des mfc et/ou demande des précisions à DuduMFC de Type 2 (xlExpression) sont des formules Matricielles
MsgBox ActiveSheet.Cells.FormatConditions.Count
Oui, c'est juste le nombre de MFC de la feuille que je voudrais connaître.Bonjour @Marcel32, @Phil69970,
Si tu veux savoir combien de MFC tu as il suffit de faire:
VB:MsgBox ActiveSheet.Cells.FormatConditions.Count
Sub Compte_MFC()
Dim n#
On Error Resume Next 'si aucune SpecialCell
n = Cells.SpecialCells(xlCellTypeAllFormatConditions).CountLarge
MsgBox n
End Sub
Toutafé.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.
Certes mais ce n'est pas toujours possible.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...