[XL-2007] Effacer la totalite des MCF [Résolu]

[apdf1]

Bonjour,

Voila j'ai une feuille auquel j'ai des Mise en Forme conditionnelle, cette feuille je la copie via un code VBA pour l'envoyer sur la feuil2 jusque la tous marche très bien.
Quand je veut effacer la feuil2 avec le code ci-dessous et malgré cette ligne la

Code :

Selection.FormatConditions.Delete

Qui m'efface bien toute les mises en Forme conditionnelle sur la feuille mais reste toujours dans le menu MFC

Code :

1
2
3
4
Sub Efface_Click()
Range("E4:U55").SpecialCells(xlCellTypeConstants, 3).ClearContents
Selection.FormatConditions.Delete
End Sub

Ma question: est-il possible de supprimer au niveau des menu les MFC ?

Un très grand merci pour celui ou celle qui pourra m'aider……..
Cordialement
Max

[gFZT82]

Bonjour,

Essaie avec

Code :

1
2
3
4
5
6
Sub Efface_Click()
With Worksheets("Feuil2")
    .Range("E4:U55").SpecialCells(xlCellTypeConstants, 3).ClearContents
    .Cells.FormatConditions.Delete
End With
End Sub

Cordialement.

[apdf1]

Bonjour gFZT82,

Je te remercie pourton code mais j'ai un nouveau problème
Voila quand j'efface la feuil2 j'applique le code ci-dessous que tu viens de me donnée

Code :

1
2
3
4
5
6
Sub Efface_Click()
With Worksheets("Feuil2")
    .Range("E4:U55").SpecialCells(xlCellTypeConstants, 3).ClearContents
    .Cells.FormatConditions.Delete
End With
End Sub

Il m'efface bien toute les mises en Forme conditionnelle sur la feuille mais aussi les MCF qu'il ne faut pas.Je m'explique
J'ai dans ma feuille des autres MFC que je ne voudrais pas effcé

Ma question: est-il possible de supprimer les MFC sauf celle qui sont a garder?
Un très grand merci a toi

Cordialement
Max

[gFZT82]

Re,

Ma question: est-il possible de supprimer les MFC sauf celle qui sont a garder?

Oui, tu peux préciser la plage concernée

Code :

 .Range("E4:U55").FormatConditions.Delete

Cordialement.

[apdf1]

Re,

Les plages qui ne doivent pas être effacer sont "K2:U3"

Merci

@+
Max

[gFZT82]

Re,

Il faut donc que tu effaces les MFC de toutes les autres plages

Code :

1
2
3
4
5
6
7
8
9
 
Sub Efface_Click()
Dim Maplage As Range
With Worksheets("Feuil2")
    .Range("E4:U55").SpecialCells(xlCellTypeConstants, 3).ClearContents
    Set Maplage = Application.Union(.Range("1:1"), .Range("A2:J3"), .Range("V2", .Cells(3, .Columns.Count)), .Range("A4", .Cells(.Rows.Count, .Columns.Count)))
    Maplage.FormatConditions.Delete
End With
End Sub

Cordialement.

[apdf1]

Bonjour gFZT82,

Je te remercie sa marche Nickel par contre j'ai fait une boulette, j'ai oublié la moitié des plages.

Les plages qui ne doivent pas être effacer sont "K2:U3"

C'est bien "K2:U3" mais il manque "Y4: AI60"
J'ai essayé de rajouter sa ne marche pas!
Alors si tu passe dans le coin et que tu as une minute à m'accorder sa serai sympa de me faire la modif.

Merci d'avance et bonne journée

@+
Max

[gFZT82]

Bonjour apdf1,

Il se trouve que je passe dans le coin et que j’ai une minute à t'accorder.
De plus, comme je suis sympa par nature, je t’ai fait la modification.

En suivant la même logique que précédemment, il suffit de déclarer l’ensemble des plages qui ne doivent pas être effacées.

Code :

1
2
3
4
5
6
7
8
9
Sub Efface_Click()
Dim Maplage As Range
With Worksheets("Feuil2")
    .Range("E4:U55").SpecialCells(xlCellTypeConstants, 3).ClearContents
    Set Maplage = Application.Union(.Range("1:1"), .Range("A2:J3"), .Range("V2", .Cells(3, .Columns.Count)), _
    .Range("A4:X60"), .Range("AJ4", .Cells(60, .Columns.Count)), .Range("A61", .Cells(.Rows.Count, .Columns.Count)))
    Maplage.FormatConditions.Delete
End With
End Sub

Cordialement.
P.S. : n’abuses pas des boulettes, attention à l’indigestion .

[apdf1]

Bonjour gFZT82,

Je te remercie beaucoup, du code qui a été fait avec de l'humour.

Elle est pas belle la vie ?

Je te remercie encore et te souhaite une bonne journée

J'espère à bientôt avec toujours au temps d'humour.

@+

Max