Filtre elaboré

Merci à ChrisV et à AV pour votre aide.

Je suis arrivé à faire ce que je voulais. Effectivement la base de donnée
etait tres mal organisée et occasionnais des plantage et des erreurs.

Je viens de faire le tri et c'est tout ok.

Il me reste encore une petite question à poser.
dans la commande si dessous,

[Options!A4].CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=[Options!A1:A2], CopyToRange:=[opt1!A2]

comment faire pour que dans CopyToRange:= le nom de la feuille soit contenu
dans une variable.

Le but est de copier pour chaques machine les options associées sur une
feuille.


Merci d'avance

Et encore merci pour tous ces exemples..


Christian

pour rechercher le caractère A qui se trouve n'importe ou dans le
texte???

J'ai vu que tu utilise right pour la fin mais quand il peut être
n'importe

ou ...

Dans l'exemple et le code fourni, modifier :
'zone de critères
[Feuil1!D2] = "=isnumber(search(""A"",A2))"

Pour un respect de la casse, remplacer search par find

PS : Dans l'exemple que tu fournis, la BD est "mal organisée" (lignes
vides,

champs à ajouter...)
AV

comment faire pour que dans CopyToRange:= le nom de la feuille soit contenu
dans une variable.

........CopyToRange:=Range(laVar &"!A2")

AV

x mille merci pour ton aide précieuse.

Avec tout ça tu m'a aider à me débloquer d'un problème qui dure depuis 2
semaines.

Existe t'il des ouvrages sur le VBA qui ne sont niveau débutant ?


Merci


Christian

comment faire pour que dans CopyToRange:= le nom de la feuille soit
contenu

dans une variable.

........CopyToRange:=Range(laVar &"!A2")

AV

bien sûr, christian, tous ceux écrits par certains contributeurs, débutants
eux-mêmes, que je cite en vrac : m@rina, DJ, JièL, et d'autres que j'oublie
et qui voudront bien me pardonner de ne point les nommer...
jps

"Christian" <billi112@hotmail.com> a écrit dans le message de
news:OVetM8BPFHA.3380@TK2MSFTNGP15.phx.gbl...

Existe t'il des ouvrages sur le VBA qui sont niveau débutant ?


Merci


Christian

comment faire pour que dans CopyToRange:= le nom de la feuille soit
contenu

dans une variable.

........CopyToRange:=Range(laVar &"!A2")

AV

c'est vrai, christian, qu'AV n'est jamais très rapide dans ses réponses mais
tu l'as déjà excusé...
jps

"Christian" <billi112@hotmail.com> a écrit dans le message de
news:OVetM8BPFHA.3380@TK2MSFTNGP15.phx.gbl...

Avec tout ça tu m'a aider à me débloquer d'un problème qui dure depuis 2
semaines.

Merci


Christian

comment faire pour que dans CopyToRange:= le nom de la feuille soit
contenu

dans une variable.

........CopyToRange:=Range(laVar &"!A2")

AV

Je suis tres satisfait des réponses de AV, le problème vient plus de moi qui
bloque souvent sur du code.

J'en profite aussi pour poser une question.

Je voudrais sélectionner une plage en partant de la dernière cellule non
vide de la colonne C jusqu'a la cellule A1


Comment je dois entrer le code???

J'en suis à Range("C1").End(xlDown).Select mais je ne vois pas comment faire
pour étendre la sélection.

Merci d'avance.

Christian

c'est vrai, christian, qu'AV n'est jamais très rapide dans ses réponses
mais

tu l'as déjà excusé...
jps

"Christian" <billi112@hotmail.com> a écrit dans le message de
news:OVetM8BPFHA.3380@TK2MSFTNGP15.phx.gbl...

Avec tout ça tu m'a aider à me débloquer d'un problème qui dure depuis 2
semaines.

Merci


Christian

comment faire pour que dans CopyToRange:= le nom de la feuille soit
contenu

dans une variable.

........CopyToRange:=Range(laVar &"!A2")

AV

peut-être comme ceci, christian :

derligne = Range("C65536").End(xlUp).Row
Range("A1: C1:C" & derligne).Select

jps

"Christian" <billi112@hotmail.com> a écrit dans le message de
news:ea9ik6CPFHA.3336@TK2MSFTNGP10.phx.gbl...

Je suis tres satisfait des réponses de AV, le problème vient plus de moi
qui

bloque souvent sur du code.

J'en profite aussi pour poser une question.

Je voudrais sélectionner une plage en partant de la dernière cellule non
vide de la colonne C jusqu'a la cellule A1


Comment je dois entrer le code???

J'en suis à Range("C1").End(xlDown).Select mais je ne vois pas comment
faire

pour étendre la sélection.

Merci d'avance.

Christian

c'est vrai, christian, qu'AV n'est jamais très rapide dans ses réponses
mais

tu l'as déjà excusé...
jps

"Christian" <billi112@hotmail.com> a écrit dans le message de
news:OVetM8BPFHA.3380@TK2MSFTNGP15.phx.gbl...

Avec tout ça tu m'a aider à me débloquer d'un problème qui dure depuis
2

semaines.

Merci


Christian

comment faire pour que dans CopyToRange:= le nom de la feuille
soit

contenu

dans une variable.

........CopyToRange:=Range(laVar &"!A2")

AV

Range("A1:C" & [C65536].End(xlUp).Row).Select


ChrisV


"Christian" <billi112@hotmail.com> a écrit dans le message de news:
ea9ik6CPFHA.3336@TK2MSFTNGP10.phx.gbl...

Je suis tres satisfait des réponses de AV, le problème vient plus de moi
qui
bloque souvent sur du code.

J'en profite aussi pour poser une question.

Je voudrais sélectionner une plage en partant de la dernière cellule non
vide de la colonne C jusqu'a la cellule A1


Comment je dois entrer le code???

J'en suis à Range("C1").End(xlDown).Select mais je ne vois pas comment
faire
pour étendre la sélection.

Merci d'avance.

Christian

c'est vrai, christian, qu'AV n'est jamais très rapide dans ses réponses
mais

tu l'as déjà excusé...
jps

"Christian" <billi112@hotmail.com> a écrit dans le message de
news:OVetM8BPFHA.3380@TK2MSFTNGP15.phx.gbl...

Avec tout ça tu m'a aider à me débloquer d'un problème qui dure depuis
2
semaines.

Merci


Christian

comment faire pour que dans CopyToRange:= le nom de la feuille soit
contenu

dans une variable.

........CopyToRange:=Range(laVar &"!A2")

AV