VBA copier le contenu d'une cellule

[karlskoff]

Bonjour à tous,

je ne connais pas grand chose à VBA mais j’ai remarqué en créant une macro qu’un filtre textuel « contient :XX » correspondait à ça :

ActiveSheet.Range("$A$1:$L$3299").AutoFilter Field:=2, Criteria1:="=*XX*", _
Operator:=xlAnd

ma question est la suivante:
à la place de XX, est-il possible d’écrire ce que contient une cellule, A1 par exemple?

Merci d'avance.

 

[pierrejean]

Re : VBA copier le contenu d'une cellule

bonjour karlskoff

A tester:

ActiveSheet.Range("$A$1:$L$3299").AutoFilter Field:=2, Criteria1[COLOR=red][COLOR=black]:="=*[/COLOR]" & Range("A1").value &[/COLOR] [COLOR=red]"[/COLOR]*", _
Operator:=xlAnd

 

[karlskoff]

Re : VBA copier le contenu d'une cellule

Merci Pierrejean,

pourrais-tu m'indiquer la même chose avec le contenu d'une cellule d'une autre feuille du filtre?

Merci beaucoup.

 

[pierrejean]

Re : VBA copier le contenu d'une cellule

Re

ActiveSheet.Range("$A$1:$L$3299").AutoFilter Field:=2, Criteria1[COLOR=red][COLOR=black]:="=*[/COLOR]" & Sheets("AutreFeuille").Range("A1").value &[/COLOR] [COLOR=red]"[/COLOR]*", _
Operator:=xlAnd

AutreFeuille etant a adapter

 

[karlskoff]

Re : VBA copier le contenu d'une cellule

Comme je l'ai dis, je suis novice en VBA, mais en analysant un peu, j'ai réussi à trouver la logique avant ton second message.
Mais merci Pierrejean, c'est ce que je voulais.