copier certaine ligne suivant critère

[bpol]

bonsoir,

un peu pour mon usage professionnel maintenant.

j'ai un tableau dans la première feuille et je voudrais copier les lignes dont les cases d'une colonne sont remplies mais seulement une partie de ligne

un petit exemple peut être?

Merci et bonne soirée
bpol

 

[Cousinhub]

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....

 

[bpol]

Re : copier certaine ligne suivant critère

bonsoir bhbh,

je souhaiterais une macro

Merci
bpol

 

[vbacrumble]

Re : copier certaine ligne suivant critère

Bonsoir


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

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

 

[Cousinhub]

Re : copier certaine ligne suivant critère

Re,

bonsoir, vbacrumble 🙂

par filtre élaboré :

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

 

[vbacrumble]

Re : copier certaine ligne suivant critère

Re


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

 

[bpol]

Re : copier certaine ligne suivant critère

Merci à tout les deux

bonne nuit

Bpol

 

[Cousinhub]

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.....

😉