AppleDance
XLDnaute Nouveau
Bonjour à tous.
J'ai récemment fait un macro copiant des données et les collants dans une autre feuille.
J'ai réussi à le faire.
mais je recherche une autre méthode qui ne m'obligerait pas de copier/coller une entière plage sélectionner mais uniquement les cellule contenant une donnée à partir de A2.
Voici la macro que j'ai. Comment l'améliorerez vous ?
En vous remerciant.
J'ai récemment fait un macro copiant des données et les collants dans une autre feuille.
J'ai réussi à le faire.
mais je recherche une autre méthode qui ne m'obligerait pas de copier/coller une entière plage sélectionner mais uniquement les cellule contenant une donnée à partir de A2.
Voici la macro que j'ai. Comment l'améliorerez vous ?
En vous remerciant.
VB:
Dim copySheet As Worksheet, pasteSheet As Worksheet
Set copySheet = Worksheets("Feuil1")
Set pasteSheet = Worksheets("Feuil2")
copySheet.Range("A2:Y1000").Copy Destination:=Sheets("Feuil2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Sheets("Feuil2").Range("A2:Y50000").Borders(xlEdgeBottom).LineStyle _
= xlContinuous
Sheets("Feuil2").Range("A2:Y50000").Borders(xlEdgeBottom).Weight _
= xlThin
Application.CutCopyMode = False
Range("A2:Y1000").Delete
If IsEmpty(Range("A2:Y1000")) = True Then
Exit Sub
End If
End Sub