XL 2013 Macro ne fonctionne pas à cause du filtre lorsque que le feuille est protégée

[cdric78]

Bonjour à tous,

Je bloque sur un problème, je n'arrive à faire fonctionner ma macro lorsque la feuille est protégé malgré que que j'ai bien coché "utiliser le filtre automatique" dans les paramètres de de protection de la feuille.

Je suis sur un macro assez simple de suppression de données "Clean" :

Sub Clean()
'
' Clean Macro
'

'
    Range("A2:B500,AF2:AG500").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    With Selection.Font
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
    Selection.ClearContents
End Sub

Merci par avance pour vos conseils et votre aide sur ce problème.

Cédric

 

[Jacky67]

Bonjour,
Le plus simple pour cette macro

Sub Clean()
'
' Clean Macro
'
    ActiveSheet.Unprotect
    With Range("A2:B500,AF2:AG500")
        .Interior.Pattern = xlNone
        .Interior.TintAndShade = 0
        .Interior.PatternTintAndShade = 0
        .Font.ColorIndex = xlAutomatic
        .Font.TintAndShade = 0
        .ClearContents
    End With
    ActiveSheet.Protect
End Sub

ou

Sub Clean()
'
' Clean Macro
'
    ActiveSheet.Unprotect
    Range("A2:B500,AF2:AG500").Clear
    ActiveSheet.Protect
End Su

 

[cdric78]

Bonjour Jacky,

Merci pour ta réponse rapide.

En résumé, si j'ai bien compris, il faut ajouter : "ActiveSheet.Unprotect" & "ActiveSheet.Protect".

Cela me permettra de l'adapter à d'autres macro.
Un grand merci.

Cédric