Bonjour,

J'ai mis en place ce code qui doit me permettre de sélectionner une feuille de calcul une fois son nom inscrit dans un Textbox, mais malheureusement cela ne fonctionne pas.
Le message suivant apparaît "L'indice n'apparaît pas dans la sélection"
Pouvez-vous m'apporter votre aide s'il vous plait ?
Merci par avance

Voici le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub TxtLigne_Change()
Dim NomFeuille As String, Ws As Object
Dim NomFeuil As String

    Application.ScreenUpdating = False
    
'Je rends toutes les feuilles visibles

    For Each Ws In ActiveWorkbook.Worksheets
    Ws.Visible = True
Next Ws

'Je sélectionne la feuille du Textbox
    NomFeuille = (Me.TxtLigne.Value) problème ici
    NomFeuil = ("F" & Me.TxtLigne.Value)
    ActiveWorkbook.Sheets(NomFeuille).Activate
    ActiveWorkbook.Sheets(NomFeuil).Activate
'Je masque les autres feuilles
    For Each Ws In ActiveWorkbook.Worksheets
        If Ws.name <> NomFeuille Then Ws.Visible = xlSheetVeryHidden
        Sheets("Accueil").Visible = True
        Sheets("F" & Me.TxtLigne).Visible = True
        Next Ws

'Je ferme l'userform
Unload Me
End Sub