Discussion :

[NEC14]

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

[bboy-eazy]

bonjour,

Je ne suis pas sur du tout de ma réponse mais peut être il y a un problème de concordance avec:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim NomFeuille As String

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NomFeuille = (Me.TxtLigne.Value)

n'étant pas professionnel en la matière je pense que le .value ne convient pas au format string mais peut être que je dis une grosse connerie...

[NEC14]

Merci pour l'idée, mais j'ai tout essayé (String, Variant, Object, etc...) rien ne va

[vinc_bilb]

Bonjour,

je suis un peu à court d'idée, sauf 2, peut-être pas très pertinentes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NomFeuille = Cstr((Me.TxtLigne.Value))

+ quel est le type de variable associée à Me.TxtLigne.Value? (par la fonction VarType par exemple)

Bonne journée

[NEC14]

En fait j'ai fait autrement, je suis passé par une Combo, mais je rencontre un autre problème. L'utilisateur est obligé de faire sa sélection à partir de la Combo, il ne peut pas taper directement dans la Combo.

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 CmbLigne_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 combo
    NomFeuille = Me.CmbLigne.Value
    NomFeuil = ("F" & Me.CmbLigne.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.CmbLigne).Visible = True
        Next Ws
 
'Je ferme l'userform
Unload Me
End Sub

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
 
Private Sub UserForm_Initialize()
Dim mesOnglets() As MyOnglet
Dim i As Long
ReDim mesOnglets(0)
Dim l
For i = 1 To ActiveWorkbook.Worksheets.Count
 
          If Left(Sheets(i).name, 1) = "L" Then 'test de  la premier lettre du nom de la feuille
            ReDim Preserve mesOnglets(UBound(mesOnglets) + 1)
            mesOnglets(UBound(mesOnglets)).couleur = ActiveWorkbook.Sheets(i).Tab.Color
            mesOnglets(UBound(mesOnglets)).name = UCase(ActiveWorkbook.Sheets(i).name)
            mesOnglets(UBound(mesOnglets)).l = CLng(Right(ActiveWorkbook.Sheets(i).name, Len(ActiveWorkbook.Sheets(i).name) - 1))
          End If
    Next i
    TrieOnglet mesOnglets
For i = 1 To UBound(mesOnglets)
     Me.CmbLigne.AddItem (mesOnglets(i).name)
Next
End Sub

[Theze]

Bonjour,

Il te faut effectuer un contrôle avant de sélectionner une feuille car tu ne peux pas être sûr que le nom sera bien orthographié !
Utilise l'évènement "KeyDown" pour déclencher la proc par l'appui sur la touche "Entrée" :

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
 
Private Sub TxtLigne_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
 
    Dim NomFeuille As String
    Dim Ws As Worksheet
    Dim NomFeuil As String
    Dim Existe As Boolean
 
    If KeyCode = 13 Then
 
        Application.ScreenUpdating = False
 
        'Je rends toutes les feuilles visibles
        For Each Ws In ActiveWorkbook.Worksheets
 
            Ws.Visible = True
 
        Next Ws
 
        NomFeuille = (Me.TxtLigne.Value)
 
        'contrôle de l'existance du nom de la feuille
        For Each Ws In Worksheets
 
            If Ws.Name = NomFeuille Then
 
                Existe = True
                Exit For
 
            End If
 
        Next Ws
 
        If Existe = False Then
 
            MsgBox "Le nom '" & NomFeuille & "' est inexistant dans la collection de feuilles de ce classeur !"
            Exit Sub
 
        End If
 
        NomFeuil = ("F" & Me.TxtLigne.Value)
 
        '---ça sert à quoi ces activations de feuille ???
        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 If
 
End Sub

Hervé.