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
Partager