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

cdric78 · 15 Juillet 2021

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" :

VB:

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 · 15 Juillet 2021

Bonjour,
Le plus simple pour cette macro

VB:

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

Code:

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

cdric78 · 15 Juillet 2021

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

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

cdric78

XLDnaute Junior

Pièces jointes

Jacky67

XLDnaute Barbatruc

cdric78

XLDnaute Junior

Discussions similaires