Excel 2000 -range() - erreur 1004

Résolu
bicylindre Messages postés 4 Date d'inscription   Statut Membre Dernière intervention   -  
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   -

Bonjour, voulant extraire des données d'une feuille vers feuille, j'ai ressaisie une macro qui fonctionne dans un autre classeur.

Voici la macro qui génère l'erreur 1004 ou438

Sub Macro3()
'
'Macro3 Macro santé
' Macro enregistrée le 26/01/2023 par Daniel
'
'
Range("base1").AdvencedFilter Action:=xlFilterCopy, CriteriaRange:=Range("sante!k1:k2"), CopyToRange:=Range("sante!a1:11"), Unique:=False

   
End Sub

bilan et sante sont mes 2 feuilles et k1:k2 mon critère, base1 un bloc a1:i50 de bilan

Merci de bien vouloir m'aider.

cordialement

bicylindre

A voir également:

4 réponses

yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 

bonjour,

je suis surpris de l'orthographe de "advenced".

peut-être écrire

sheets("bilan").Range("base1")
0
bicylindre Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 

merci yg_be, j'ai remplacé le e par a dans advanced,la macro s'exécute sans erreur ais aussi sans transfert.

Voici le début de la macro corrigé............sans résultat

sheets("bilan").Range("base1).AdvancedFilter

avec point devant Range et Adv..........

As-tu une autre idée? cordialement

0
jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 

Bonjour,

Cette partie me semble étrange

Range("sante!a1:11"),

Ne manquerait il pas une lettre devant le 11 ?

1
bicylindre Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 

Merci yg_be  ,la.macro fonctionne !!!!!  après avoir redéfini la base.

Cordialement

biicylindre

0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 

peux-tu alors marquer la discussion comme résolue (via les ... en dessous de la question de départ)?

0
bicylindre Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 

merci jordane45,j'ai ajouté la lettre de colonne qui manquait

Cordialement

0