Copier coller selon critères vba ou formules

G

Guest

Guest

• 27 Janvier 2011

• #2

Re : Copier coller selon critères vba ou formules

Bonjour Et bienvenue sur le forum,

Dans le fichier joint une macro qui automatise un filtre élaboré.

En B2 mettre le(s) chiffre(s) par le(s)quel(s) commence(nt) les numéros de comptes à extaire, valider et la macro est lancée.

IMPORTANT: ne pas modifier A1

Pour voir la macro, click-droit sur l'onglet de la feuille ->visualiser le code.

A+

 

Vote positif 0 Vote négatif

Gorfael

XLDnaute Barbatruc

• 27 Janvier 2011

• #3

Re : Copier coller selon critères vba ou formules

Salut stefpau@hotmail.com et le forum

Code:

Sub test()
Sheets(2).Cells.Clear
Sheets(1).AutoFilterMode = False
Sheets(1).Range("A1").CurrentRegion.AutoFilter Field:=1, Criteria1:=">=90000", Operator:=xlAnd, Criteria2:="<1000000"
Sheets(1).Range("A1").CurrentRegion.Copy Sheets(2).Range("A1")
End Sub

A+

 

Vote positif 0 Vote négatif

S

stefpau@hotmail.com

XLDnaute Nouveau

• 27 Janvier 2011

• #4

Re : Copier coller selon critères vba ou formules

Merci Hasco,

J'ai juste corrigé la formule en A2 par (=GAUCHE(Feuil1!A2;1)="" &$B$2). Merci Beaucoup.

 

Vote positif 0 Vote négatif

S

stefpau@hotmail.com

XLDnaute Nouveau

• 27 Janvier 2011

• #5

Re : Copier coller selon critères vba ou formules

Merci Gorfael. Nickel

 

Vote positif 0 Vote négatif