Salut pifiorlo,
As tu trouvé ?
sinon voici une petite macro qui va t'aider :
Code :
- Private Sub CommandButton1_Click()
- Dim i As String, o, a
- i = InputBox("Veuillez saisir le nom de la feuille" )
- a = 1
- For o = 1 To Worksheets.Count
- If Sheets(o).Name = i Then
- Sheets(o).Activate
- a = ""
- Else
- End If
- Next o
- If a = 1 Then MsgBox ("nom de feuille invalide" ): Resume
- End Sub
|
Elle est à placer dans le code du commande button ert a l'avantage de verifier si la feuille existe pour eviter les bugs à l'utilisation. Elle fonctione sur les noms de feuilles et pas sur les index (ce qui est souvent plus représentatif).
Bon courage
---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)