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

Macro "retrour à l'onglet d'origine"

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 !

jeremie.ferre

XLDnaute Nouveau
Bonjour,

Existe t-il une une astuce qui permette à une macro de revenir a l'onglet de départ?

Pour expliciter un peu ce que je voudrais, voici la démarche de ma macro :
- je me place sur un onglet (différent à chaque utilisation)
- je prends des données de cet onglet, je le amene dans un autre onglet, des opération,...
- je retourne a l'onglet de départ. sachant que l'onglet de départ ne sera pas toujours le même, que je voudrais pouvoir insérer d'autres onglets,...


Est-possible??

ps : désolé pour la coquille dans le titre, mais je n'arrive pas à le modifier !
Merci
 
Dernière édition:
Re : Macro "retrour à l'onglet d'origine"

Bonjour,

Dans votre macro, vous insérez les lignes suivantes :

Code:
Dim ws As Worksheet
---------------------
Set ws = ActiveSheet [COLOR="Red"]'définit ws comme étant la feuille active actuelle[/COLOR]
---------------------
ws.Activate [COLOR="Red"]'revient à la feuille ws[/COLOR]

A+
 
Dernière édition:
Re : Macro "retrour à l'onglet d'origine"

Salut jeremie.ferre, job75 et les autres,

j'ai pas beaucoup mieux,

'--------------------------------------------------------------------------------------------
Sub code()
s = ActiveSheet.Name 'j'enregistre le nom de l'onglet actif
Application.ScreenUpdating = False 'je desactive la mise a jour de l'ecran
'------------
'ici le code
'------------
Sheets(s).Activate 'je retourne sur l'onglet qu ietait activer au debut
Application.ScreenUpdating = True 'je reactive la mise a jour de l'ecran
End Sub
'--------------------------------------------------------------------------------------------


pour moi j'active ce code ne quittant un onglet, mais un bouton ou autre fera l'affaire sans souci.

en espérant t'aider un peu.
 
- 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

Réponses
4
Affichages
165
Réponses
20
Affichages
896
  • Question Question
Microsoft 365 Macro VBA - Excel
Réponses
12
Affichages
635
Réponses
10
Affichages
656
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…