Selection onglet

gildas lechat · 1 Octobre 2010

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 · 1 Octobre 2010

Re : Selection onglet

Bonjour Gildas

A tester

Code:

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

gildas lechat · 1 Octobre 2010

Re : Selection onglet

Merci pierre Jean,

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

Gildas

pierrejean · 1 Octobre 2010

Re : Selection onglet

Re

Voila

Code:

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

Selection onglet

gildas lechat

XLDnaute Occasionnel

Pièces jointes

pierrejean

XLDnaute Barbatruc

gildas lechat

XLDnaute Occasionnel

pierrejean

XLDnaute Barbatruc

Discussions similaires