copier certaine ligne suivant critère

Cousinhub

XLDnaute Barbatruc

• 13 Mai 2009

• #2

Re : copier certaine ligne suivant critère

Bonsoir,

avec ou sans VBA?

un filtre élaboré le fait très bien...

Tu peux le faire manuellement (j'en ai eu pour 30 secondes)

ou l'automatiser (un clic, et un pouillième de seconde plus tard, tu as ton résultat....)

NDLR : Pouillième au format 10 puissance -3 secondes.....

Aussi par des formules, mais cela demande de mettre des formules dans un nombre inconnu de cellules de la feuille 2

A toi de choisir....

 

Vote positif 0 Vote négatif

B

bpol

XLDnaute Impliqué

• 13 Mai 2009

• #3

Re : copier certaine ligne suivant critère

bonsoir bhbh,

je souhaiterais une macro

Merci
bpol

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 13 Mai 2009

• #4

Re : copier certaine ligne suivant critère

Bonsoir


Essaie avec cette macro , désolé bhbh (bonsoir) , j'ai opté pour le filtre automatique

Code:

Sub marofiltre()
Range("A1").AutoFilter Field:=5, Criteria1:="<>"
With Range("_FilterDataBase")
    .Columns(1).SpecialCells(xlCellTypeVisible).Copy Sheets(2).[A1]
    .Columns(2).SpecialCells(xlCellTypeVisible).Copy Sheets(2).[B1]
    .Columns(5).SpecialCells(xlCellTypeVisible).Copy Sheets(2).[C1]
End With
Application.CutCopyMode = False
Sheets(1).AutoFilterMode = False
End Sub

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 13 Mai 2009

• #5

Re : copier certaine ligne suivant critère

Re,

bonsoir, vbacrumble 🙂

par filtre élaboré :

Code:

Sub export()
Range("A1:E" & [A65000].End(xlUp).Row).Name = "base"
[G1] = [E1]: [G2] = ">0"
With Sheets("Feuil2")
    .[A1] = [A1]: .[B1] = [B1]: .[C1] = [E1]
    Range("base").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("G1:G2"), _
        CopyToRange:=.Range("A1:C1"), Unique:=False
End With
[G1:G2].ClearContents
End Sub

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 13 Mai 2009

• #6

Re : copier certaine ligne suivant critère

Re


bhbh: au niveau "pouillième de seconde", quelle macro en consomme le moins ? 😉

 

Vote positif 0 Vote négatif

B

bpol

XLDnaute Impliqué

• 13 Mai 2009

• #7

Re : copier certaine ligne suivant critère

Merci à tout les deux

bonne nuit

Bpol

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 13 Mai 2009

• #8

Re : copier certaine ligne suivant critère

re-,

avec 1153 lignes

mon code : 0,015625 seconde

le tien : 0,046875

soit un rapport de 3.....

😉

 

Vote positif 0 Vote négatif