[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. 😎