Discussion :

[l.flipper]

Bonjour,
Je fais un filtre, je veux coller les lignes visibles du filtre (hors entête).
Ca fonctionne lorsque je les colle une première fois, puis j'ai erreur 400.

Code :

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

1
2
3
4
5
6
7
 
    Sheets("V").Range("A1").AutoFilter Field:=1, Criteria1:="G"
    Sheets("V").Range("A2:P1048576").SpecialCells(xlVisible).Copy Destination:=Sheets("G").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
'suppression
    Sheets("V").Select
    Sheets("V").Range("$A2:$Z1048576").SpecialCells(xlCellTypeVisible).Delete
    Sheets("V").Cells.AutoFilter

Comment régler ce problème ? Merci

[EricDgn]

Bonjour,

Le problème vient de ce que la sélection de départ (jusqu'à P1048576) est trop grande: la partie de la feuille où il n'y a aucune donnée fait partie de la plage considérée "visible" par Excel! La première fois c'est collable, la seconde fois c'est trop grand! Ceci pour le voir:

Code :

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

1
2
3
4
5
Sub VoirRange()
    Sheets("V").Range("A1").AutoFilter Field:=1, Criteria1:="G"
    Sheets("V").Range("A2:P1048576").SpecialCells(xlVisible).Select
    Debug.Print "Sélection: " & Selection.Address
End Sub

Solution: réduire la plage à coller au minimum nécessaire.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Sub CopyVisible()
    Dim LastRow As Long
    With Sheets("V")
        LastRow = .Range("A" & Rows.Count).End(xlUp).Row
        .Range("A1").AutoFilter Field:=1, Criteria1:="G"
        .Range("A2:P" & LastRow).SpecialCells(xlVisible).Copy Destination:=Sheets("G").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
        'suppression
        .Range("$A2:$Z" & LastRow).SpecialCells(xlCellTypeVisible).Delete
        .Cells.AutoFilter
    End With
End Sub

Cordialement.

[l.flipper]

Bonjour,

L'erreur se produit encore sur la ligne. Dans mon cas LastRow = 140

Code :

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

1
2
3
4
 
 
        'suppression
        .Range("$A2:$Z" & LastRow).SpecialCells(xlCellTypeVisible).Delete

[EricDgn]

Bonjour,

Je n'ai pas cette erreur, aussi pas possible pour moi de vous en dire plus ... mais peut-être si vous donnez un exemple de feuille qui donne cette erreur.

Cordialement.

[l.flipper]

Bonjour, Voici un fichier test
Version Test.xlsm

[l.flipper]

J'ai trouvé mon erreur, j'avais mal défini le range
Merci, c'est donc résolu