Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Retour sur la feuille active

  • Initiateur de la discussion Initiateur de la discussion arckeo72
  • Date de début Date de début

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 !

A

arckeo72

Guest
Bonjour à tous,

j'ai créé la macro suivante :

Sub Macro1()
Macro1 Macro

Range("M2:M4").Select
Selection.Copy
Sheets("OR GRAIS TR").Select
Range("M3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
End Sub


Je souhaiterai à la fin de l’exécution retourner a ma feuille du début.

Pour info cette macro est associée à un bouton présent sur environ 200 feuilles.

D'avance merci.
 
Re : Retour sur la feuille active

Bonjour arckeo

A tester
Code:
Sub Macro1()
Macro1 Macro

set active=activesheet

Range("M2:M4").Select
Selection.Copy
Sheets("OR GRAIS TR").Select
Range("M3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _[/COLOR]
:=False, Transpose:=False
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"

active.select

End Sub
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
10
Affichages
791
Réponses
18
Affichages
597
Réponses
2
Affichages
399
Réponses
17
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…