Rester sur l'onglet après exécution d'une Macro

Bonjour,

Je rencontre un soucis après l’exécution de la Macro ci-jointe.

En effet, je souhaite rester sur la feuille d'où j’exécute macro or, je me retrouve sur l'avant dernier feuille au finish. (je précise que 5 feuilles différentes comportent le même BP Macro donc un "Sheets(*).Select" à la fin du programme ne fonctionne pas dans mon cas)

Pouvez-vous m'aider à résoudre cela?

Sub Afficher_feuilles_saisie()

'

' Afficher Feuilles saisie

'

Application.ScreenUpdating = False

Application.Calculation = xlCalculationManual

With ActiveSheet

Sheets("Synthèse PPG S1").Visible = True

Sheets("Synthèse PPG S2").Visible = True

Sheets("Synthèse PPG S3").Visible = True

Sheets("Synthèse PPG S4").Visible = True

Sheets("Synthèse PPG S5").Visible = True

Sheets("Compteur CSAT").Visible = True

Sheets("Synthèse Annuelle").Visible = True

Sheets("Synthèse Mensuelle").Visible = True

Sheets("Rév").Visible = True

Sheets("MACROS").Visible = True

Sheets("PAGE DE GARDE").Visible = True

Sheets("SOMMAIRE").Visible = True

Sheets("1. SECURITE").Visible = True

Sheets("2. SUIVI DES ATTACHEMENTS").Visible = True

Sheets("3. SUIVI DES HEURES").Visible = True

Sheets("4. SUIVI DES HEURES D'ATTENTE").Visible = True

Sheets("5. PERMIS_INTERVENTIONS").Visible = True

Sheets("5.1 HEURES_INTERVENTIONS").Visible = True

Sheets("6. HEURES D'INTER_SECTEUR").Visible = True

Sheets("8. FACTURATION NON RECUE").Visible = True

Sheets("9. AMELIORATION PRESTATION").Visible = True

Sheets("10. REDUCTION COUTS").Visible = True

Sheets("11. SYNTHESE ANN HRS_METIER").Visible = True

End With

Application.Calculation = xlCalculationAutomatic

Application.ScreenUpdating = True

End Sub

Bonsoir,

Mettre dans une variable String le nom de la feuille active en début de code : LaFeuille =ActiveSheet.Name

Puis en fin de code : Sheets(LaFeuille). Activate

@ bientôt

LouReeD

Et si les feuilles à masquer sont en "continu" dans le classeur vous pouvez utiliser une boucle pour les rendre visibles.

@ bientôt

LouReeD

Bonjour LouReed,

Merci pour ton intérêt. Non les feuilles à masquer ne sont pas en continu.

Ok je regarde pour la variable String.

Entre temps, en cherchant un peu j'ai trouvé cela:

Private Sub CommandButton2_Click()

Set Feuille = ActiveSheet

' Mon code

Feuille.Select

End Sub

qui paraît être similaire à ta proposition.

Je vais essayer on verra le résultat.

Cordialement,

Bonsoir,

en effet c'est "la même" chose, à la différence du type de variable où avec Set Feuille = Activesheet, la variable est un objet de type Sheet, que dans mon cas c'est une variable de type String, du coup pour l'utiliser ce n'est pas pareil, mais le résultat est "au rendez-vous" !

@ bientôt

LouReeD