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

Pierrot93

XLDnaute Barbatruc

• 25 Juin 2015

• #2

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

Bonjour,

pour que le code puisse fonctionner sur une feuille protégée, il faut que la protection soit effectuée par le code en utilisant l'argument "userinterfaceonly", exemple de code ci-dessous à placer dans le module "thisworkbook", se déclenche à l'ouverture du classeur :

Code:

Option Explicit
Private Sub Workbook_Open()
Feuil1.Protect "toto", userinterfaceonly:=True
End Sub

bonne journée
@+

 

Vote positif 0 Vote négatif

A

a26

XLDnaute Occasionnel

• 25 Juin 2015

• #3

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

Pierrot93 à dit:

Bonjour,

pour que le code puisse fonctionner sur une feuille protégée, il faut que la protection soit effectuée par le code en utilisant l'argument "userinterfaceonly", exemple de code ci-dessous à placer dans le module "thisworkbook", se déclenche à l'ouverture du classeur :

Code:

Option Explicit
Private Sub Workbook_Open()
Feuil1.Protect "toto", userinterfaceonly:=True
End Sub

bonne journée
@+

Cliquez pour agrandir...

Merci Pierrot93, grâce à toi la macro fonctionne parfaitement.
Bonne journée.
Cordialement,
a26

 

Vote positif 0 Vote négatif

A

a26

XLDnaute Occasionnel

• 26 Juin 2015

• #4

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

Bonjour,
Je retourne vers vous car j'ai constaté que cette macro n'était pas efficace malgré les conseils dePierrot93 lorsque les feuilles non sujettes à l'effacement et protégées comportaient des formules.
Le résultat : formules effacées et arrêt de la macro à w.Range("a1:h400").Delete
En plus,si j'efface plusieurs fois les feuilles extrait, les tableaux contenant des formules disparaissent.
Y aurait-il un autre moyen d'effacer les feuilles placées après les sept premières. J'ai essayé par array, mais il faut nommer les feuilles dans la macro et ce n'est pas envisageable pour un fichier ou le nombre de feuilles est aléatoire.
Merci et Bonne journée.
Cordialement,
a26

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 26 Juin 2015

• #5

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

Bonjour,

Je retourne vers vous car j'ai constaté que cette macro n'était pas efficace malgré les conseils dePierrot93 lorsque les feuilles non sujettes à l'effacement et protégées comportaient des formules.

Cliquez pour agrandir...

pas tout compris...
mets peut être cette instruction juste avant le "end sub" :

Code:

Application.Calculation = xlCalculationAutomatic

bonne journée
@+

 

Vote positif 0 Vote négatif

A

a26

XLDnaute Occasionnel

• 26 Juin 2015

• #6

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

Je me suis mal exprimé. Quand la macro s'exécute elle supprime 1 ou 2 colonnes des feuilles qui normalement ne sont pas programmées pour être effacées et les formules sont amputées de certaines références avec comme valeur Ref.
Je cherche donc une macro qui me permettrait d'effacer les feuilles de la 8e à un nombre indéfini, enfin aléatoire. Tout ceci en tenant compte du fait que dans mes 7 premières feuilles il y en a qui sont protégées en écriture car contenant des formules.
Un casse tête pour moi malgré les différents essais, je ne maîtrise pas assez le visual basic pour l'instant.
Bonne journée,
a26

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 26 Juin 2015

• #7

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

Bonjour a26

Salut Pierrot

A mon avis la macro n'est pas en cause
Si des effacements sont constatés dans des feuilles théoriquement non concernées ,c'est du coté des noms de ces feuilles qu'il faut chercher la faille
Peux-tu poster le fichier avec les vrais noms de feuille ?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 26 Juin 2015

• #8

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

Bonjour,

Je cherche donc une macro qui me permettrait d'effacer les feuilles de la 8e à un nombre indéfini, enfin aléatoire. Tout ceci en tenant compte du fait que dans mes 7 premières feuilles il y en a qui sont protégées en écriture car contenant des formules.

Cliquez pour agrandir...

essaye ceci :

Code:

Sub eff_extraits()
Dim i As Byte, Liste
With Application
    .ScreenUpdating = False
    .Calculation = xlCalculationManual
    .DisplayAlerts = False
    For i = 8 To Worksheets.Count
        If IsError(Application.Match(Worksheets(i).Name, Liste, 0)) Then
            Worksheets(i).Range("a1:h300").Delete
        End If
    Next i
    .DisplayAlerts = True
    .Calculation = xlCalculationAutomatic
End With
End Sub

edition : bonjour PierreJean🙂
ajouté un bloc "with"

 

Dernière édition: 26 Juin 2015

Vote positif 0 Vote négatif

A

a26

XLDnaute Occasionnel

• 26 Juin 2015

• #9

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

Merci Pierrot. Ta dernière macro me semble fonctionner correctement. Les feuilles concernées sont effacées et les autres non affectées par cet effacement.
Je retiens donc ce processus. Pour répondre à pierrejean, certaines feuilles comportaient un nom composé avec un _ entre les 2 noms. A ta disposition si tu veux le fichier avec les noms par curiosité pour déceler la faille.
Cordialement,
a26

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 26 Juin 2015

• #10

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

Re

Comme j'aime bien comprendre je serais intéressé par le fichier comportant les noms exacts des feuilles (s'il n'y a rien de confidentiel bien entendu)

 

Vote positif 0 Vote négatif

A

a26

XLDnaute Occasionnel

• 26 Juin 2015

• #11

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

pierrejean à dit:

Re

Comme j'aime bien comprendre je serais intéressé par le fichier comportant les noms exacts des feuilles (s'il n'y a rien de confidentiel bien entendu)

Cliquez pour agrandir...

Voilà ci-joint le classeur. Je t'ai mis des commentaires sur la feuille arrivée.
Merci de donner des conclusions sur les erreurs commises.

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 26 Juin 2015

• #12

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

Re

Euh
Pas vu le fichier !!!!

 

Vote positif 0 Vote négatif

A

a26

XLDnaute Occasionnel

• 26 Juin 2015

• #13

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

Moi non plus, je fais pourtant le nécessaire ??? Encore quelque chose qui m'échappe !
Je fais pourtant comme d'habitude dans gérer les pièces jointes. As-tu une idée du problème ?

 

Dernière édition: 26 Juin 2015

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 26 Juin 2015

• #14

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

Re

Trop important peut-être
fait une copie en supprimant le contenu des feuilles a l'exclusion de quelques données et formules

 

Vote positif 0 Vote négatif

A

a26

XLDnaute Occasionnel

• 26 Juin 2015

• #15

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

Voilà le fichier allégé?

 

Pièces jointes

• BG_P.xlsm

  260.7 KB · Affichages: 44

Vote positif 0 Vote négatif