OVH Cloud OVH Cloud

pap userform de misange

2 réponses
Avatar
NicolasB
Bonjour =E0 tous

j'essai de recr=E9er le classeur de misange adapt=E9e =E0 mon=20
besoin. Je ne rencontre aucune difficult=E9 sauf sur cette=20
partie:

Range("zonebdd").AdvancedFilter Action:=3DxlFilterCopy, _
CriteriaRange:=3D("A1:A2"), CopyToRange:=3D("A6:K6"),=20
Unique:=3DFalse

d=E8s que je lance mon userform et que je lance la=20
recherche, le d=E9bogeur ce met sur cette ligne et m'indique=20
une erreur 1004 r=E9f=E9rence non valide.

Quelqu'un peut-il me dire ou j'ai fait une erreur

Merci

2 réponses

Avatar
michdenis
Bonjour NicolasB,

CriteriaRange:=("A1:A2"), CopyToRange:=("A6:K6")

Tu as oublié d'insérer le mot Range :

CriteriaRange:=Range("A1:A2"), CopyToRange:=Range("A6:K6")



Salutations!


"NicolasB" a écrit dans le message de news:14f101c4a615$57013f00$
Bonjour à tous

j'essai de recréer le classeur de misange adaptée à mon
besoin. Je ne rencontre aucune difficulté sauf sur cette
partie:

Range("zonebdd").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=("A1:A2"), CopyToRange:=("A6:K6"),
Unique:úlse

dès que je lance mon userform et que je lance la
recherche, le débogeur ce met sur cette ligne et m'indique
une erreur 1004 référence non valide.

Quelqu'un peut-il me dire ou j'ai fait une erreur

Merci
Avatar
Misange
bonjour
Les points à vérifier :
tu dois absolument (par VBA) te mettre sur la feuille destinée à
recevoir les données avant de lancer ton filtre élaboré.
donc
sheets("mafeuilledestination").activate
le filtre

En fait, je te conseille deux choses : sans t'occuper de la partie
userform, essaie de faire fonctionner correctement le filtre élaboré.
Une fois que ça fonctionne ne manuel, lance l'enregistreur de macros et
compare avec ce que tu as déjà écrit.
Il y aussi en ligne sur excelabo un classeur pour voir les astuces liées
aux filtres élaborés.

Fais aussi attention à la plage de destination. Si tu à "reconstruit" le
classeur exemple, peut être as tu modifié l'emplacement des cellules, le
nombre de colonnes...


Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

on 29/09/2004 13:13:
Bonjour à tous

j'essai de recréer le classeur de misange adaptée à mon
besoin. Je ne rencontre aucune difficulté sauf sur cette
partie:

Range("zonebdd").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=("A1:A2"), CopyToRange:=("A6:K6"),
Unique:úlse

dès que je lance mon userform et que je lance la
recherche, le débogeur ce met sur cette ligne et m'indique
une erreur 1004 référence non valide.

Quelqu'un peut-il me dire ou j'ai fait une erreur

Merci