Message d'erreur. Erreur d'exécution 424. Objet requis

[a26]

Bonjour,
Dans mon classeur j'aimerai effacer par macro les feuilles nommées extrait ici (mais de noms différents dans mon classeur opérationnel).
La macro fonctionne sauf si je protège certaines feuilles auquel cas j'ai le message d'erreur. Objet requis.
Merci pour la recherche d'erreurs dans la macro.
Cordialement,
a26

 

[pierrejean]

Re : Message d'erreur. Erreur d'exécution 424. Objet requis

Re
Pour la protection des feuilles pas de problème par contre quel est le mot de passe pour la protection du VBa (possibilité de le passer en Message Particulier )

 

[a26]

Re : Message d'erreur. Erreur d'exécution 424. Objet requis

C'est un peu compliqué pour moi. Quelle est la procédure du message particulier ?

 

[pierrejean]

Re : Message d'erreur. Erreur d'exécution 424. Objet requis

Re
clique sur pierrejean au dessus de mon avatar puis sur l'enveloppe
Je t'en envoie un auquel tu pourras repondre

 

[pierrejean]

Re : Message d'erreur. Erreur d'exécution 424. Objet requis

Re

Suite MP

Le nom de la feuille pénalités_ BG2 comporte un espace entre le _ et le B
c'est pour cela que la macro effaçait sur cette feuille (Dans Liste cet espace n'existe pas)
Pour ma part j'aurais écrit la macro sous cette forme

Sub eff_extraits()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim w As Worksheet, Liste
'Liste = Array("saisie", "liste", "pénalités_BG1", "pénalités_BG2", "résultats", "arrivée") 'feuilles protégées à l'effacement
Liste = "saisie,liste,pénalités_BG1,pénalités_ BG2,résultats,arrivée," 'feuilles protégées à l'effacement
For Each w In Worksheets
If InStr(Liste, w.Name & ",") = 0 Then
'If IsError(Application.Match(x, Liste, 0)) Then
w.Unprotect
 w.Range("a1:h300").ClearContents
w.Protect
End If
Next
Application.Calculation = xlCalculationAutomatic
Sheets("arrivée").Select
Range("B10").Select
End Sub

 

[a26]

Re : Message d'erreur. Erreur d'exécution 424. Objet requis

Merci Pierrejean. Ton oeil d'expert a vu ce que je ne percevais pas, c'est à dire l'espace dans le nom de l'onglet qui empêchait cette macro de fonctionner correctement.
Ta macro fonctionne parfaitement. Essayée sans et avec l'espace dans le nom de l'onglet.
Bonne fin de semaine.
Cordialement,
a26