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

erwanhavre · 14 Août 2018

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 · 14 Août 2018

Bonjour le forum, Erwanhavre

Ceci devrait faire l'affaire :

Code:

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 · 14 Août 2018

genialllll merci beaucoup

Lone-wolf · 14 Août 2018

Bonjour erwanhavre, ninbihan

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

@erwanhavre

VB:

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

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

erwanhavre

XLDnaute Occasionnel

Pièces jointes

ninbihan

XLDnaute Impliqué

erwanhavre

XLDnaute Occasionnel

Lone-wolf

XLDnaute Barbatruc

Discussions similaires