XL 2016 copier des données d'une feuille à une autre selon critères et protection de la feuille 1

[steph_29120]

Bonjour,
je recherche des commandes VBA pour copier des données d'une feuille à une autre selon critères et protection de la feuille 1

Dans mon fichier, qui sert pour un audit de mise en conformité, j'ai 3 feuilles :
1- évaluation de la conformité : l'auditeur renseigne par des croix la qualité des points de contrôle.
2- recap des points de contrôle à améliorer
3- recap des points de contrôle critiques
les deux macros servent à reporter dans les feuilles 2 et 3 les points de contrôle à améliorer et non respecté (critiques)

Si je ne protège pas la feuille 1 tout fonctionne correctement mais si je la protège les macros ne fonctionnent plus car j'utilise le filtre dans mes macros. Il existe surement une autre manière de sélectionner les critères et l'export vers les autres feuilles malgré la protection de la feuille 1.

Merci d'avance et bonne journée à tous.
Stéphane

 

[sylvanu]

Bonjour Steph,
Le plus simple est peut être de déprotéger en arrivant et de reprotéger en sortant, comme avec :

Sheets("armoire").Unprotect
Application.ScreenUpdating = False
 
    Votre macro
    
Sheets("armoire").Protect
End Sub

 

[steph_29120]

Bonjour Steph,
Le plus simple est peut être de déprotéger en arrivant et de reprotéger en sortant, comme avec :

Sheets("armoire").Unprotect
Application.ScreenUpdating = False
 
    Votre macro
   
Sheets("armoire").Protect
End Sub

Merci beaucoup cela me convient parfaitement.
bonne fin de journée.

 

[Phil69970]

Bonjour à tous

@steph_29120

Je te propose ce fichier j'ai tout revu dans ton code

Merci de ton retour