Discussion :

[jbulysse]

Bonjour à tous,

J'ai un problème de décalage lorsque je copie des données filtrées d'un onglet vers un autre onglet "Feuil1", mes données sont copiées vers la Cellule B32 de mon onglet A1 alors que je souhaiterais qu'elles soient copiées vers la cellule A1 et les suivantes.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
CritèreFiltre = InputBox("Rayon")
Range("A1").AutoFilter
Range("A1").AutoFilter Field:=6, Criteria1:="=" & CritèreFiltre
Range("A1").CurrentRegion.Copy
ThisWorkbook.Sheets("Feuil1").Paste

Auriez-vous des idées ?

En vous remerciant d'avance,
jbulysse

[Vadorblanc]

Bonjour
Il n'est pas possible d'utiliser un filtre pour ensuite copier le résultat et le coller dans une autre feuille car le résultat est toujours avec toutes les données de la feuille copiée, personellement j'utilise toujours une autre façon de faire du tri, par formules éventuellement puis par copiage collage valeurs le tout par macro mais j'évite de passer par le menu Edition Filtre pour ce cas de figure. D'ailleurs tu peux voir qu'avec ta méthode les lignes sont uniquement cachées et ne se voient pas sur de l'impression mais ne sont pas supprimées.
Cordialement

[mercatog]

Ci joint proposition de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim CritereFiltre As String
Dim LastLig As Long
 
Application.ScreenUpdating = False
CritereFiltre = InputBox("Rayon")
If CritereFiltre <> "" Then
    ActiveSheet.AutoFilterMode = False
    LastLig = Cells(Rows.Count, 1).End(xlUp).Row
    Range("A1").AutoFilter Field:=6, Criteria1:=CritereFiltre
    If Range("A1:A" & LastLig).SpecialCells(xlCellTypeVisible).Count > 1 Then Range("A2:L" & LastLig).SpecialCells(xlCellTypeVisible).Copy Sheets("Feuil1").Range("A1")
    ActiveSheet.AutoFilterMode = False
End If