XL 2010 Copier/coller des vers une autre feuille, et revenir à la précédente

[erwanhavre]

Bonjour à tous
voir en pj, voila j'aimerai lancer une macro qui copie colle une sélection de données d'une feuille vers la feuille BDD ... jusque là ça va ..la macro est faite ...
Par contre à la fin de la macro je souhaiterai revenir sur la feuille ou les données ont été copiées ... et ce quelque soit la feuille ou la macro ai été lancé les noms de feuilles sont différentes
est ce possible ?
merciiii

 

[ninbihan]

Bonjour le forum, Erwanhavre

Ceci devrait faire l'affaire :

Sub Macro1()
'
' Macro1 Macro
'

'
    Dim ws As Worksheet
    Set ws = ActiveSheet
    Rows("6:16").Select
    Range("A16").Activate
    Selection.Copy
    Sheets("bdd").Select
    Rows("2:2").Select
    Selection.Insert Shift:=xlDown
    Range("A1").Select
    ws.Select 'ici comment retourner sur la feuille prescedement selectionn?e
    Application.CutCopyMode = False
End Sub

 

[erwanhavre]

genialllll merci beaucoup

 

[Lone-wolf]

Bonjour erwanhavre, ninbihan

@ninbihan : c'est quoi tous ces select?? . Apprends-lui à coder proprement.


@erwanhavre

Sub Macro1()
Dim x&
Application.ScreenUpdating = False
With Sheets("Feuil1")
x = .Range("a" & Rows.Count).End(xlup).Row
.Range("a6:i" & x).Copy
End With

Sheets("bdd").Rows("2:2").Insert Shift:=xlDown

Application.Goto Sheets("Feuil1").Range("a5")
Application.CutCopyMode = False
End Sub