XL 2010 recherche feuille en fonction d'une liste

[komarlehomard]

Bonjour
Je viens chercher vos lumières, j'ai un fichier sur la feuille index , en colonne C j'aimerais savoir si la feuille existe dans mon classeur, et en colonne D si elle existe avoir un lien hypertexte, en macro si c'est possible, j'ai essayé plein de trucs mais rien de bien fiable.
Merci du temps que vous allez m'accorder.

 

[chris]

Bonjour

En corrigeant ta formule

=SI(ESTREF(INDIRECT("'"&B11 & "'!A1"));"LA FEUILLE EXISTE";"LA FEUILLE N'EXISTE PAS")

ou en une unique formule

=SI(ESTREF(INDIRECT("'"&B11 & "'!A1"));LIEN_HYPERTEXTE("[aide sur recherche de feuilles.xlsm]'"&B11&"'!A1";B11);"")

 

[chris]

Bonjour
En corrigeant ta formule

=SI(ESTREF(INDIRECT("'"&B11 & "'!A1"));"LA FEUILLE EXISTE";"LA FEUILLE N'EXISTE PAS")

ou en une unique formule

=SI(ESTREF(INDIRECT("'"&B11 & "'!A1"));LIEN_HYPERTEXTE("[aide sur recherche de feuilles.xlsm]'"&B11&"'!A1";B11);"")

 

[sylvanu]

Bonjour komarlehomard,
Comme vous avez déjà du VBA, je vous propose en PJ une autre approche.
Quand on sélectionne la feuille Index, on construit automatiquement la liste des feuilles.
Il suffit de cliquer sur un nom pour accéder à la feuille, avec :

Sub Worksheet_Activate()
    On Error GoTo FinActive
    Application.EnableEvents = False
    [A2:A100].ClearContents: L = 2
    For Each F In Worksheets
        If F.Name <> "index" Then Cells(L, "A") = F.Name: L = L + 1
    Next F
    Columns.AutoFit
FinActive:
    Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [A1:A100]) Is Nothing And Target <> "" Then NomF = Target: Sheets(NomF).Select
Fin:
End Sub

 

[komarlehomard]

Bonjour Chris
Merci beaucoup, ce qui est fou c'est que quand j'ai vu ta réponse ça m'a sauté aux yeux alors que ça fait un jour que je tourne autour.
Encore merci, je te souhaite une bonne journée.

 

[komarlehomard]

Coucou Sylvanu merci d'avoir pris un peu de temps pour moi, ta solution est une bonne alternative.
Merci beaucoup, je te souhaite une bonne journée.