Ouverture onglet macro excel

[hannibal11]

Bonsoir à tous et à toutes!

Je vous expose mon problème: j'utilise un fichier excel (version 2007) qui comporte un onglet principal et des onglets "secondaires", dans mon onglet principal, j'ai une liste organisée de la manière suivante: dans la colonne A j'inscris des numéros et dans la colonne B, j'inscris des noms. Lorsque ma liste est terminée, je lance ma macro pour créer mes onglets qui correspondent chacun à un numéro, les onglets sont renommés en fonction du numéro et chaque onglet reprend le numéro et le nom.

Je voudrais maintenant accéder à l'onglet que je veux de manière simple et rapide, par exemple, lorsque je double cliquerais sur une cellule non vide de la colonne A, l'onglet ayant pour nom la valeur de la cellule s'ouvrirai.

Merci par avance.


PS: Voici en pièce jointe un exemple simplifié de ce que j'utilise en capture d'écran.
-----

[cherbe]

par exemple, lorsque je double cliquerais sur une cellule non vide de la colonne A, l'onglet ayant pour nom la valeur de la cellule s'ouvrirai.

Autrement dit, pourquoi faire simple quand on peut faire compliqué ?
Depuis le bandeau Insertion, clique sur l'icône "Lien hypertexte", coche "Emplacement dans le document".

Sinon, c'est possible par procédure événementielle à adapter :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Address = "$A$1" Then
        Sheets(ActiveCell.Value).Select
  End If
  Cancel = True
End Sub

[hannibal11]

Merci pour ta réponse!

Je viens de rentrer le code et ça fonctionne à la perfection, j'ai eu juste à élargir la plage de données

Depuis le temps que je cherchais.

[Regueiro]

Bonsoir le Forum
Une autre solution
Copier ce code dans le code de la feuille :
Click droit sur la Feuille concernée ( Sommaire ) ou autre
Visualiser le code et copier le code ci-dessous

Private Sub Worksheet_Activate()
  [C5:C100].ClearContents
  For i = 2 To Sheets.Count
    nf = Sheets(i).Name
    ActiveSheet.Hyperlinks.Add Anchor:=Cells(i + 6, 3), Address:="", SubAddress:="'" & _
      nf & "'" & "!A1", TextToDisplay:=nf
   Next i
   [C5:C100].Sort Key1:=Range("C5"), Order1:=xlAscending, Header:=xlGuess
End Sub

Vous obtiendrez ainsi une mise à jour du sommaire automatique si une feuille est ajoutée ,supprimée ou renommée.
A+

[A voir en vidéo sur Futura]