XL 2019 Copie de données avec filtre sur une autre feuille.

[M1ck3y]

Bonjour à tous,

J'ai cherché sur le forum, les différents sujets a propos du tri et de copie de données, mais je n'ai pas de trouver de réponses à mon problème.
Je souhaiterais copier plusieurs colonnes (B,C,D,AT) de mon tableau Analyse, en ne prenants que des lignes qui ont des données sur la Colonne AT, vers une Feuille qui s'appelle commande.

J'arrive à faire une macro pour filtrer, mais je ne trouve pas comment gérer la copie des colonnes.

    Range("AT8:AT1999").Select
    Selection.AutoFilter
    ActiveSheet.Range("$AT$8:$AT$1998").AutoFilter Field:=1, Criteria1:="<>"

Merci d'avance.

 

[M1ck3y]

Bonsoir,

J'ai finalement changer mon analyse, en essayant de me concentrer sur les cellules de la colonne AT n'étant pas vide et enfin de copier les cellules sur autres feuilles

mais je n'arrive pas du tout a copier les bonnes données et je ne comprends pas pourquoi, si vous pouviez m'aider ?

Sub Commande2()
'

Dim WsDepart As Worksheet
Dim WsDestination As Worksheet
Dim i As Integer
Dim j As Integer
    
    Set WsDestination = Sheets("Commande")
    Set WsDepart = Sheets("Analyse")
 
Worksheets("Commande").Range("A2:D1999").ClearContents
 
i = 8
j = 2
With WsDepart
For Each C In .Range("AT8:AT1999")
If Not IsEmpty(C) And IsNumeric(C) Then
With WsDepart.Range("B" & i & ":D" & i).Copy
WsDestination.Range("A" & j & ":D" & j).PasteSpecial xlPasteValues
WsDepart.Range("AT" & i).Copy
WsDestination.Range("D" & j).PasteSpecial xlPasteValues
End With
i = i + 1
j = j + 1
End If
Next
End With
End Sub

 

[Lolote83]

Salut M1CK3Y,
Voir ton fichier en retour.
Un nouvel onglet Commande2 a été créé pour ne pas effacer tes données de Commande
@+ Lolote83

 

[M1ck3y]

Super, c 'est parfait Merci beaucoup

Michael

 

[M1ck3y]

Comment pourrais t on faire dans la macro, pour que le <> ne soit plus sur la feuille, mais directement dans la macro ?