Extraire certaines lignes..

[Guido]

Bonjour

Je cherche une macro qui selectionnent que les ligne avec un chiffre dans la colonne A

Et qui les copie dans la feuille 2


La selection dans la colonne A se fait avec une formule

Merci

Guido

 

[DoubleZero]

Re : Extraire certaines lignes..

Bonjour, Guido, le Forum,

Comme ceci ?

Option Explicit
Sub Extraire()
    Sheets("Feuil2").[a:j].Clear
    Sheets("Feuil1").Activate
    [a1].AutoFilter
    ActiveSheet.Range("a:j").AutoFilter Field:=1, Criteria1:="<>"
    [b1].CurrentRegion.Copy Destination:=Sheets("Feuil2").[a1]
    [a1].AutoFilter
End Sub

A bientôt 🙂

 

[Guido]

Re : Extraire certaines lignes..

Bonjour

Re

DoubleZero

Merci ,tout Ok

Amitiés

Guido