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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

erwanhavre

XLDnaute Occasionnel
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
 

Pièces jointes

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
 
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
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour