Selection onglet

[gildas lechat]

Bonjour le forum,

Je cherche une aide sur la création d'une macro permettant d'afficher l'onglet préalablement selectionné dans une liste.
Vous trouverez ci joint un ficher explicatif

Merci d'avance
Gildas

 

[pierrejean]

Re : Selection onglet

Bonjour Gildas

A tester

Private Sub CommandButton1_Click()
Sheets(Range("AN11").Value).Select
End Sub

 

[gildas lechat]

Re : Selection onglet

Merci pierre Jean,

Une amélioration possible serai d'ajouter un message si l'onglet n'existe pas.

Gildas

 

[pierrejean]

Re : Selection onglet

Re

Voila

On Error Resume Next
Sheets(Range("AN11").Value).Select
 If Err.Number <> 0 Then
   MsgBox ("Cette feuille n'existe pas")
 End If
On Error GoTo 0