Copie les lignes filtrées sur une autre feuille et les supprimer

[Denis]

Bonjour à tous,

Dans la pièce jointe un bout de fichier , il et trops gros 1000 lignes.
Avec le bouton Date en A1 je filtres ma feuille, mais je souhaite copier les lignes filtrées sur la feuille récap et les supprimer. c'est pour alleger mon application,

en plus si avant de supprimer les lignes il les imprime alors là... c'est le pied

par avance merci
@+ denis

 

[Dugenou]

Sans VBA : Tu sélectionnes les lignes filtrées puis tu cliques sur édition/atteindre/cellules/cellules visibles seulement ensuite tu copies et tu colles. Tu recommence la première partie pour supprimer.

je n'ai pas essayé mais tu peux peut être utiliser la meme technique pour définir la zone d'impression mais elle risque d'être trop complexe.

Cordialement

 

[Denis]

Bonsoir à tous,

Merci Dugenou,

Mais c'est en VBA que je cherche, Dans la pièce jointe j'ai progressé, mais le coller en dernière ligne ne marche pas.

si quelqu'un a un idée?? merci d'avance

@+ denis

 

[Denis]

Bonjour à tous

Dans la procedure suivant ça cloche,

Private Sub CommandButton1_Click()
Dim PlageVisible As Range
Dim Ligne As Integer

Selection.CurrentRegion.Select

Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select

Set PlageVisible = Selection.SpecialCells(xlVisible)
PlageVisible.Copy
'
'je cherche la dérnière ligne dans la feuille recap

Ligne = Sheets("recap").Range("A65536").End(xlUp).Row + 1

' et la ça coince, bug ??????

Set PlageVisible = Selection.SpecialCells(xlVisible)
PlageVisible.Paste



'Sheets("Liste").Select
'Selection.EntireRow.Delete ' je supprime la selection
'Range("A1").Select

Unload UserForm1



End Sub

Si quelqu'un a une idée, merci

@+ denis