Effacer une MFC sans effacer les autres MFC par Macro

Version imprimable

Bonsoir à tous les lecteurs : Dans une feuille Excel version 2019 j'ai plusieurs MFC et je voudrais supprimer une seule MFC. Comment procéder je suis suis pas un super spécialiste en codage VBA.
Par avance merci à ceux qui voudrons bien me rendre ce petit service.

Exemple
Code:

1 2 3 4 5 6 7 8 Cells.Select If FormatConditions = "Monsieur" Then Cells.FormatConditions.Delete si non ne pas supprimer les autres conditions Else: FormatConditions = "" 'End If Range("W3").Select

13/10/2020, 10h27
Ben_L

Bonjour,

Les règles de MFC ne reçoivent pas de nom.
Il va donc falloir que vous précisiez d'une autre façon quelle règle devra être supprimée. Par exemple le type de MFC dont il s'agit, et/ou la formule utilisée, les bornes de l'intervale considéré, etc.

De quelles informations disposez-vous sur la règles à supprimer ?

Cdt
13/10/2020, 13h53
mfoxy

Bonjour,

Perso, je pense qu'il serait préférable de directement modifier la MFC, création MFC sur un critère formule, plutôt que des chipotages en vba.

Bav,

Bonjour: Merci pour votre participation. Je me suis peut être mal exprimé. Je veux simplement supprimer une seule MEFC qui contient la formule [ EstFormule ] sans effacer les autres MEFC. Cette formule est appliquée à la totalité de la feuille soit =$1:$1048576 afin de repérer l'ensemble des formules contenues dans une feuille.

voici une partie du code pour appliquer cette MEFC qui fonctionne parfaitement

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 Sub reperage_formules()
Application.ScreenUpdating = False
    Cells.Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=ESTFORMULE(A1)"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Bold = True
        .Italic = False
        '.ThemeColor = xlThemeColorAccent4
        '.TintAndShade = -0.249946592608417
        .Color = RGB(180, 55, 235)
    End With
    With Selection.FormatConditions(1).Interior
        '.PatternColorIndex = xlAutomatic
        '.ThemeColor = xlThemeColorAccent4
        '.TintAndShade = 0.799981688894314
        .Color = RGB(255, 250, 5)
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Range("A1").Select
 Application.ScreenUpdating = True
 End If
End Sub

Code à adapter pour effacer uniquement la MEFC ci_dessus

Code:

1
2
3
4
5
6
7
8
 Sub Effacer_repérage_des_Formules()
'
' Effacer_repérage_des_Formules Macro
'
    Cells.Select
    Cells.FormatConditions.Delete
    Range("A1").Select
End Sub

Bonjour,

Ci-dessous une proposition de code qui devrait répondre à votre besoin :
Code:

1 2 3 4 5 6 7 8 9 Public Sub Effacer_repérage_des_Formules() Dim FC As FormatCondition For Each FC In Feuil1.Cells.FormatConditions If FC.Type = 2 And FC.Formula1 = "=ESTFORMULE(A1)" Then FC.Delete Exit For End If Next FC End Sub
Notez que ce code s'applique au cellules de la feuille Excel nommée "Feuil1". Cette partie du code est à adapter à votre fichier.

Nota1 : de façon générale, il est conseillé de référencer clairement les parents des objets que vous utilisez. En lieu et place de "Cells", il est ainsi préférable d'utiliser "ThisWorkbook.Sheets(1).Cells".

Nota2 : Les opérations de sélection doivent être évitées autant que faire se peut. Elles rendent le code peut lisible et difficile à débugger en cas de problème.

Cdt

14/10/2020, 14h32
patmicro

Bonjour Ben : Merci pour ta participation ton code correspond exactement à mes attentes je l'ai juste modifié pour puisse fonctionner uniquement sur la feuille active.