[Résolu par Job75] Copier tableau filtré à la suite et sans mise en forme

[Lone-wolf]

Bonjour le Forum,

voici la macro que j'aimerais modifier.

For Each ws In Worksheets
If ws.Name = Me.ComboBox1.Value Then

'ws.Range("a65536").End(xlUp).Row(2)

Sheets(1).UsedRange.SpecialCells(xlCellTypeVisible).Copy

ws.Visible = True
ws.Activate
On Error GoTo fin
    ws.Range("A1").Select
    With Selection
    .PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
End With
ws.Range("A1").Select
End If
fin:
Next

Malgré que j'ai repris la fin de la macro enregistrée j'ai une erreur sur ws.Range("A1").Select,
ws je l'ai rajouté après avec On error goto.

Ma question est: Comment copier à la suite avec (ex.:ws.Range("a65536").End(xlUp).Row(2))
et sans mise en forme de destination. Merci de m'éclairer.


A+

 

[job75]

Re : Copier tableau filtré à la suite et sans mise en forme

Bonjour Lone-wolf,

L'instruction ws.Visible = True vide le presse-papiers, il faut copier après :

For Each ws In Worksheets
  If ws.Name = ComboBox1 Then
    ws.Visible = True
    Sheets(1).UsedRange.Offset(1).SpecialCells(xlCellTypeVisible).Copy
    ws.Cells(Rows.Count, 1).End(xlUp)(2).PasteSpecial xlPasteValues
    Application.CutCopyMode = 0
    Application.Goto ws.[A1]
    Exit For
  End If
Next

J'ai ajouté .Offset(1) pour ne pas copier la ligne de titres.

A+

 

[Lone-wolf]

Re : Copier tableau filtré à la suite et sans mise en forme

Bonsoir Job,

très heureux de te relire. Superbe travail comme d'habitude. Merci infiniment.


A bientôt et très bon weekend

 

[job75]

Re : Copier tableau filtré à la suite et sans mise en forme

Bonjour Lone-wolf, le forum,

L'instruction ws.Visible = True vide le presse-papiers, il faut copier après

Bah ce n'est pas vrai, chez moi (Excel 2013) on peut démasquer la feuille après .Copy.

Ton code du post #1 peut fonctionner sans contrôle d'erreur.

Bonne journée.

 

[Lone-wolf]

Re : [Résolu par Job75] Copier tableau filtré à la suite et sans mise en forme

Bonjour Job,

Pas de soucis.

Je viens de voir quelque chose qui m'intéresse en faisant une recherche, au cas où, j'aurais besoin de tes conseils.


A bientôt.