XL 2019 La methode range de l'objet a échoué...

Diterlizzi31

XLDnaute Nouveau
Bonjour a tous

J'ai un soucis comme inscrit dans le titre...
J'ai beau tourné et retourné mon code dans tout les sens je trouve pas...
Alors un oeil neuf et neutre sera le bienvenue

juste pour le plaisir je vous dit l'idée...
Ces de copier de la feuille "Demandes" des donné sur la feuille "Accueil"
Le code que j'ai est une adaptation d'un code déjas existant


Sub Extraire_Arrivées()
On Error GoTo Extraire_Arrivées_Erreur
Application.ScreenUpdating = False
Worksheets("Demandes").Unprotect
Range("Demandes").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Range("Critères"), CopyToRange:=Range("Extraction"), Unique:=False
Application.ScreenUpdating = True

Worksheets("Demandes").Range("A4").AutoFilter

Worksheets("Demandes").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True

Worksheets("Accueil").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Worksheets("Accueil").EnableSelection = xlNoSelection

Extraire_Arrivées_Exit:
Exit Sub

Extraire_Arrivées_Erreur:
MsgBox Error$
Resume Extraire_Arrivées_Exit
End Sub



Merci a tout ceux qui saurons m'éclairer sur le sujet

Cordialement
 

laurent3372

XLDnaute Occasionnel
Supporter XLD
Bonsoir,

Avec ta routine de gestion des erreurs, on ne sait pas quelle ligne provoque l'erreur.
Enlève la ligne :
On Error GoTo Extraire_Arrivées_Erreur

et relance le test. Ca te dira quelle est la ligne qui part en erreur.
 

Diterlizzi31

XLDnaute Nouveau
Pas faux didonc...

a force de cligner des yeux on voit plus rien lol

Bon ou je le met maintenant attention si je louche ces foutus

Je peut pas malheureusement partager ce fichier trop de donnée privée
Si jamais les infos que je donne ne suffise pas tant pis pour moi j'ai envis de dire ;)

Je vous tien au courrant si sa suffit a lui décoincer les doigts de la porte
 

Staple1600

XLDnaute Barbatruc
Re, Bonsoir JM27, sylvanu, laurent3372

Et le fichier exemple? Inutile ?
(cf le message#2)
La cape d'invisibilté d'XLD a encore frappée ;)
 
Dernière édition:

Diterlizzi31

XLDnaute Nouveau
voila ligne retiré

voila celle qui ressort...

Range("Critères"), CopyToRange:=Range("Extraction"), Unique:=False
Application.ScreenUpdating = True


Je vérifie de mon coté également je prend toute idée....
 

JM27

XLDnaute Impliqué
Je dois être aussi transparent
J'ai testé
Je confirme
Déprotège la feuille Accueil
Cela va fonctionner une seule fois

teste cela
VB:
Sub Extraire_Arrivées()
On Error GoTo Extraire_Arrivées_Erreur
Application.ScreenUpdating = False
Worksheets("Demandes").Unprotect
Worksheets("Accueil").Unprotect
Range("Demandes").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Range("Critères"), CopyToRange:=Range("Extraction"), Unique:=False
Application.ScreenUpdating = True

Worksheets("Demandes").Range("A4").AutoFilter

Worksheets("Demandes").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True

Worksheets("Accueil").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Worksheets("Accueil").EnableSelection = xlNoSelection

Extraire_Arrivées_Exit:
Exit Sub

Extraire_Arrivées_Erreur:
MsgBox Error$
Resume Extraire_Arrivées_Exit
End Sub
 

Diterlizzi31

XLDnaute Nouveau
Staple désolé...

Vus que je vois pas... je comprend pas le soucis ...

Il est plus simple pour moi de copier coller le code... et pour ce qui est du partage fichier en dehors du code ... je peut vous exporter tout les fichier VBA mais sa va faire un peut lourd...

Je vérifie cette plage extraction en même temps
 

Staple1600

XLDnaute Barbatruc
Re

je parlais d'un fichier exemple (simplifié) créé pour illustrer la problématique.
(et joins par le demandeur)

Si tu l'avais joins au premier message, on serait déjà en train de faire nos tests dessus ;)
 

Diterlizzi31

XLDnaute Nouveau
je prépare un fichier exemple comme demander... je vide les données

J'ai essayer toutes les solution proposé mais rien n'y fait

Merci a vous
 

Diterlizzi31

XLDnaute Nouveau
Voici le fameux fichier

jéspère que le fait de retirer les donnée ne l'on pas trop pourris... sur le principe je pense pas

Merci a vous pour votre temps

Sinon staple si je crois que j'ai finis par comprendre... quand je met du code VBVA il y a une manip a faire pour qu'il apparaisse jolie pour vous...

je vais faire attention la prochaine fois

Cordialement
 

Fichiers joints

Staple1600

XLDnaute Barbatruc
Re

Merci pour le fichier
(même si c'est loin d'être ce que j'appelle un fichier simplifié)
Je vais tester de ce pas.
 
Dernière édition:

Staple1600

XLDnaute Barbatruc
Re

Sylvanu avait soulevé le lièvre ;)

=>Diterlizzi31
Fais ce test
VB:
Sub Extraire_Arrivées_test()
Application.ScreenUpdating = False
Worksheets("Demandes").Unprotect
Worksheets("Accueil").Unprotect
MsgBox Range("Demandes").Address
End Sub
 
Dernière édition:

laurent3372

XLDnaute Occasionnel
Supporter XLD
C'est bien ce que je pensais. Les noms "Extraction" et "Demandes" ne sont pas définis.
Par contre il y existe une plage nommée "Extraire" qui semble convenir à la place d"Extraction"
Il n'y a pas de plage nommé "Demandes".

Cela explique le message d'erreur signalé (méthode Range a échoué).

Cordialement,
--
LR
 

Staple1600

XLDnaute Barbatruc
Re

=>laurent3372
On est bien d'accord
C'est ce que voulais montrer ce petit test (message#18)
(Comme quoi un fichier exemple de le premier message aurait éviter ce message#20)
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas