Discussion :

[scoulibri]

Bonjour a tous,
j'ai pas trouve ( ou mal cherche?) de fiche concernant cette erreur.

Je viens a vous car, j'ai crer cette macro a partir de l'enregistreur. il suffit que je ferme et re-ouvre le fiche pour avoir:

error "1004"
the extract range has a missing or illegal field name

L'erreur porte sur la premiere ligne, celle ou je filter et exporte une liste d'un onglet a un autre.

Je suppose qu'il s'agit d'une erreur de format ou un manque de definition de mes parametres mais je ne le trouve pas.



Merci de votre aide!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub never2015()
'filter dealer who have never bought in the year
    Sheets("current_month").Range("currentmonth[[#Headers],[#Data]]"). _
        AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("neveryear").Range("A1:A2"), _
        CopyToRange:=Sheets("neveryear").Range("A5:B5"), Unique:=False
'added retail et EDS columns
 'found figures
    Sheets("neveryear").Range("c6").FormulaR1C1 = _
        "=ROUND(INDEX(Totalprojection,MATCH(RC2,PROJECTION_DEALERS_CODE,0),7),0)"
 
 
    Sheets("neveryear").Range("d6").FormulaR1C1 = _
        "=ROUND(INDEX(Totalprojection,MATCH(RC2,PROJECTION_DEALERS_CODE,0),29),0)"
    dernligne = Range("A" & Rows.Count).End(xlUp).Row
 
  'pasted figures
      Range("C6:D6").Select
   Selection.AutoFill Destination:=Range("C6:D115" & dernligne), Type:=xlFillDefault
End Sub

[antonysansh]

Bonjour scoulibri,

Je ne peux pas tester ton code mais le code ci-dessous me parait plus approprié.
Sur la derniere ligne ton Range etait mal défini et nommer une feuille avant un range est tj mieux.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub never2015()
'filter dealer who have never bought in the year
    Sheets("current_month").Range("currentmonth[[#Headers],[#Data]]").AdvancedFilter _
        Action:=xlFilterCopy, _
        CriteriaRange:=Sheets("neveryear").Range("A1:A2"), _
        CopyToRange:=Sheets("neveryear").Range("A5:B5"), _
        Unique:=False
'added retail et EDS columns
'found figures
    Sheets("neveryear").Range("c6").FormulaR1C1 = _
        "=ROUND(INDEX(Totalprojection,MATCH(RC2,PROJECTION_DEALERS_CODE,0),7),0)" 
 
    Sheets("neveryear").Range("d6").FormulaR1C1 = _
        "=ROUND(INDEX(Totalprojection,MATCH(RC2,PROJECTION_DEALERS_CODE,0),29),0)"
 
    dernligne = Sheets("neveryear").[A5].End(xlDown).Row 'A5 mieux si tu n'as qu'une ligne apres l'en-tete
 
'pasted figures
   Sheets("neveryear").Range("C6:D6").AutoFill _
      Destination:=Range("C6:D" & dernligne), _
      Type:=xlFillDefault
End Sub

Antony

[scoulibri]

hello Anthony,
Desole, j'ai beau avoir passé ma semaine sur ce site pour trouver mon bonheur je n'ai pas vu ta reponse...

j'ai maintenant une erreur 9, subscript out of the range. j'ai le meme probleme sur une autre macro mais cela c'est pour un autre soleil...

je te laisse un fichier anonyme au cas ou tu repasserai ou quelqu'un d'autre par la.

Merci

[Philippe Tulliez]

Bonjour,
Tu ne dis pas à quelle ligne l'erreur à lieu.
La méthode AdvancedFilter pour exporter des données est simple à utiliser. Il faut une zone des données, une zone des critères et une zone d'exportation.
La première chose à vérifier est la validité de ces zones.
Le nom des feuilles et les plages de cellules concernées sont elles correctement définies
S'il faut exporter toutes les colonnes une cellule vide doit être renseignée. S'il s'agit d'exporter certaines colonnes, il faut définir la plage de ceulles de destination en plaçant au préalable les étiquettes de colonnes à exporter.
A lire éventuellement Les filtres avancés ou élaborés dans Excel. Il y a un classeur avec des exemples à télécharger.

[scoulibri]

Si les colonnes d'arrivees n'ont pas le meme nom....
Merci de vos reponse et m'avoir rappeler a mes bases