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

M1ck3y

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

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

Merci d'avance.
 

Pièces jointes

  • test.xlsm
    643.3 KB · Affichages: 7

M1ck3y

XLDnaute Nouveau
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 ?

VB:
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
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 917
Membres
101 839
dernier inscrit
laurentEstrées