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

  • Initiateur de la discussion Initiateur de la discussion cdric78
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

cdric78

XLDnaute Junior
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.

1626349745257.png


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
 

Pièces jointes

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
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
989
Réponses
6
Affichages
1 K
Retour