[Excel-VBA] Retour à la feuille précédente
Résolu
Tuc
Messages postés
9
Statut
Membre
-
Tuc Messages postés 9 Statut Membre -
Tuc Messages postés 9 Statut Membre -
Bonjour,
J'ai une macro d'enregistrement de données qui peut être déclenchée à partir de différentes feuilles de mon classeur. J'aimerai après l'enregistrement sur la feuille des données revenir automatiquement à la feuille d'où à été déclenchée ma macro. Pour cela j'ai créé 2 macros :
Le problème c'est que je me prends une erreur "Erreur d'exécution '9' : L'indice n'appartient pas à la sélection" et
Une solution ?
Merci d'avance
Tuc
J'ai une macro d'enregistrement de données qui peut être déclenchée à partir de différentes feuilles de mon classeur. J'aimerai après l'enregistrement sur la feuille des données revenir automatiquement à la feuille d'où à été déclenchée ma macro. Pour cela j'ai créé 2 macros :
Sub Aller() 'ROLE : Enregister le nom de la feuille en cours en vu d'y retourner après l'execution d'une macro Dim FeuillePrecedente As String FeuillePrecedente = ActiveSheet.Name End Sub
Sub Retour() 'ROLE : Retourner à la feuille précédente Sheets(FeuillePrecedente).Select End Sub
Le problème c'est que je me prends une erreur "Erreur d'exécution '9' : L'indice n'appartient pas à la sélection" et
Sheets(FeuillePrecedente).Selectest surligné...
Une solution ?
Merci d'avance
Tuc
Configuration: Excel 2003
2 réponses
-
Salut,
Oui mais si tu es en feuil322 que tu veuilles retourner sous la feuille ou tu étais précédemment et que ... tu en as oublié le numéro!!
Ceci fonctionne :
Dim FeuillePrecedente As String 'définit ta variable pour ton classeur et pas pour ta sub
Sub Aller()
FeuillePrecedente = ActiveSheet.Name
End Sub
Sub Retour()
Sheets(FeuillePrecedente).Select
End Sub-
La solution était toute simple...
Il fallait juste définir la variable feuille précédente de cette façon :
Option Explicit Dim FeuillePrecedente As String Sub Aller() 'ROLE : Enregister le nom de la feuille en cours en vu d'y retourner après l'execution d'une macro FeuillePrecedente = ActiveSheet.Name End Sub Sub Retour() 'ROLE : Retourner à la feuille précédente Sheets(FeuillePrecedente).Select End Sub
Merci quand même !
Tuc
-
-
si tu mets par example un bouton "enregistrer" sur une feuille,pour revenir à la feuille qui l'a déclenché
tu peux par exemple écrire dans le code du bouton apres avoir enregistrer
feuil1.select
