problème d'extration

[blackjack]

Tout d'abord bonjour à tous et je vous souhaite une très bonne année 😎

Je reviens vers vous pour un problème d'extraction qui avait été en parti résolu mais que je n'arrive pas à adapter au tableau ci-joint

Je parie que vous allez trouver ça en 2 mn et avec le sourire en +

Merci

A bientôt
BJ

PS j'ai la version 97

 

[Kobaya]

Re : problème d'extration

hello blakcjack, Bonne Année,

remplace ta macro par :

Sub extraire2()
'
' extraire2 Macro
' Macro enregistrée le 30/10/2007 par jc
'
 Sheets("Saisies").Range("a10:i" & [A65000].End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("Relance").Range( _
        "a1:d2"), CopyToRange:=Sheets("Saisies").Range("a4:i4"), Unique:=False
End Sub

Il ne faut pas oublier de préciser pour chaque range, à quelle feuille on fait référence...

 

[blackjack]

Re : problème d'extration

Merci KOBAYA,
Absent ce week end je n'avais pas vu ta réponse
je test et je reviens 😉

 

[blackjack]

Re : problème d'extration

Aïe ça marche pas
j'ai recopié le code, bien vérifié qu'il n'y avait pas d'erreur et j'ai le message suivant:
erreur 1004
nom de champ introuvable ou incorrect dans la plage d'extraction 😕

 

[blackjack]

Re : problème d'extration

Me dites pas que c'est encore une colle 🙂😀

 

[blackjack]

Re : problème d'extration

bah mince alors personne n'a une idée ?

 

[Kobaya]

Re : problème d'extration

les onglets s'appellent bien "Saisies" et "Relance" ?

Autre détail, le nombre de colonnes de la zone copiée et de la zone de destination ne doivent-ils pas être identiques ?
Essaie avec ceci :

Sub extraire2()
 Sheets("Saisies").Range("a10:i" & [A65000].End(xlUp).Row).AdvancedFilter _ 
        Action:=xlFilterCopy, _
        CriteriaRange:=Sheets("Relance").Range("a1:d2"), _
        CopyToRange:=Sheets("Saisies").Range("f4:i4"), _
        Unique:=False
End Sub

 

[blackjack]

Re : problème d'extration

toujours pareil 😕🙁

merci quand même 😉