Discussion :

[Pompaero]

Bonjour le forum

j'aimerai savoir si il est possible d'avoir une macro qui servirai sur plusieurs feuilles pour revenir sur la même feuille à chaque fois ?

C'est à dire j'ai une feuille ("accueil") avec des bouton pour me diriger sur la feuille de mon choix (une dizaine) et sur ces dizaine de feuille il y a un bouton retour afin de revenir à l'accueil.
j'aimerai une seul macro pour cette fonction retour.
j'ai bien construit ce code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub Retour() 
  Sheets("Accueil").Visible = True
  Sheets("Feuil2").Visible = False
  Sheets("Accueil").Range("K4").Select
End Sub

je pensais avec active.sheets peut être !!!

Merci d'avance de l'aide

Cdlt

[Docmarti]

Bonjour.

Mets la procédure suivante dans un module standard (Insertion/Module) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub RetourVersAccueil()
  On Error Resume Next
  ActiveSheet.Visible = False
  Set f = ThisWorkbook.Worksheets("Accueil")
  f.Visible = True
  f.Range("K4").Select
End Sub

que tu appelleras à partir de tous les boutons retour.

[Pompaero]

Bonjour Docmarti

J'en étais pas si loin que ça avec ma macro !! .

Je viens de tester ta macro et message d'erreur m'indiquant >Variable non définie< donc j'ai ajouté >Dim f< Faut il ajouter quelque chose à la suite de Dim f ???
sinon comme ça à l'air de fonctionner.


ps : que veut dire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

On Error Resume Next

et à quoi sert il ??
Merci

Cdlt

[Docmarti]

On Error Resume Next indique à VBA de ne pas signaler les erreurs qui pourraient se produire et de continuer l'exécution du code comme si de rien n'était.
Il faut éviter de l'utiliser le plus possible et surtout quand on est en train d'écrire le code.
Il est préférable de ne pas l'utiliser dans ta routine RetourVersAccueil afin qu'une erreur soit signalée si la feuille Accueil n'existe pas ou ne s'appelle plus Accueil.

Ceci serait mieux.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub RetourVersAccueil()
 
  Dim f As Worksheet
 
  If ActiveSheet.Name <> "Accueil" Then
   ActiveSheet.Visible = False
  End If
 
  Set f = ThisWorkbook.Worksheets("Accueil")
  f.Visible = True
  f.Select
  f.Range("K4").Select
 
End Sub

[Pompaero]

Re

Merci pour les conseils au moins j'aurai appris quelque chose encore aujourd'hui.

j'ai modifié la macro comme ta dernière proposition, c'est nickel.

Grand merci à toi

à bientôt

Cdlt