Aide pour un bug dans une macro

Version imprimable

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:

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

20/11/2014, 15h05
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:

Dim NomFeuille As String

et

Code:

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...
20/11/2014, 15h23
NEC14

Merci pour l'idée, mais j'ai tout essayé (String, Variant, Object, etc...) rien ne va
20/11/2014, 16h15
vinc_bilb

Bonjour,

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

Code:

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

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:

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:

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

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:

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é.

21/11/2014, 08h44
NEC14

Bonjour,

Merci Hervé pour ton aide. Est-ce que ce code remplace Change ou vient-il en complément ?
21/11/2014, 09h13
NEC14

J'ai trouvé la réponse. Je remplace Change et Initialize par ton code. Il fonctionne très bien.
Par contre, lorsque l'utilisateur tape un nom inexsistant, toutes les feuilles s'affichent et ça je dois l'empêcher.

Bonjour,

Citation:

Par contre, lorsque l'utilisateur tape un nom inexsistant, toutes les feuilles s'affichent et ça je dois l'empêcher.

=> C'est normal avec le code, puisque le test est fait après l'affichage de toutes les feuilles .... Voir proposition de rajout (non testé) ci-dessous

Code:

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
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 !"
' Quelquechose à rajouter ici, du style
        For Each Ws In ActiveWorkbook.Worksheets
 
            If Ws <> ActiveSheet Then Ws.Visible = False 'A revoir, il faut en laisser une
 
        Next Ws
 
 
            Exit Sub
 
        End If

Voici ce que j'ai fait en m'inspirant de la modificiation proposée par Vincent que je remercie.

Code:

1
2
3
4
5
6
7
8
9
10
 
For Each Ws In ActiveWorkbook.Worksheets
 
                If Ws.name <> NomFeuille Then Ws.Visible = xlSheetVeryHidden
                Sheets("Accueil").Visible = True
            Next Ws
 
            Exit Sub
 
        End If