Acceder a un onglet depuis la bdd

Bonjour le forum,

ci-joint le fichier dans lequel il me manque un élément :

depuis la feuille BDD, en double cliquant sur une cellule de la première colonne, on est redirigé vers le nom de l'onglet correspondant.

Pour le moment, le code fonctionne si le nom de l'onglet est composé de lettres.

Pouvez-vous m'aider pour que ça marche si le nom de l'onglet est numérique?

merci d'avance

Bonjour,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim Onglet$
    If Target.Column = 1 And Target.Row > 1 Then
        Onglet = CStr(Target)
        If Onglet <> "" Then
            On Error GoTo nofeuil
            Worksheets(Onglet).Activate
            Cancel = True
        End If
    End If
    Exit Sub
nofeuil:
    MsgBox "Feuille non trouvée"
End Sub

NB- Indente un peu mieux ton code ! Toutes tes instructions conditionnelles sont désalignées !

Rechercher des sujets similaires à "acceder onglet bdd"