Discussion :

[marinef]

Bonjour à mon ouverture de fichier j'ai un userform, et lorsque l'on clique sur OK j'ai ce 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
29
30
31
32
33
34
35
36
Private Sub CommandButton1_Click()
 
'Afficher les onglets propres au service Devis
 
If TextBox1.Text = "Areva" Then
 
   Unload MotDePasseDevis
 
   Worksheets("Doc.").Visible = False
   Worksheets("Sommaire").Visible = False
   Worksheets("Révisions").Visible = False
   Worksheets("Emb.Tr.Stock.").Visible = False
   Worksheets("Limites Fournitures").Visible = False
   Worksheets("Disj.&Sect.&Malt").Visible = False
   Worksheets("Qualité").Visible = False
   Worksheets("TA&BaC&TR").Visible = False
   Worksheets("Générales").Visible = False
   Worksheets("Paraf.&TC&TT").Visible = False
   Worksheets("Saisie").Visible = False
 
   Worksheets("Main Data").Visible = True
   Worksheets("Annexes").Visible = True
   Worksheets("Aide").Visible = True
 
   Worksheets("Main Data").Select
 
End If
 
 
If TextBox1.Text <> "Areva" Then
 
    MsgBox ("Mot de passe incorrect...")
 
End If
 
End Sub

J'ai ensuite le message suivant:


"Erreur: La méthode Select de la classe worksheet a échoué"

Et ça me déverrouille mon onglet "Main Data"...

Que se passe t il?

[DeaD78]

Salut,

Ton histoire est quand même louche. Essaie de remplacer le Select par Activate.

Dis-moi ce que cela donne.

[marinef]

Ca me donne tjs le même message d'erreur...

[laetitia]

bonjour le fil le forum tu es sur d' avoir bien ecrit le nom des feuilles. de plus il vaut l' ecrire dans ce style

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
 If TextBox1 = "Areva" Then
   Sheets("Feuil3").Visible = True
   Sheets("1").Visible = False
   Sheets("2").Visible = False
    Unload Me
     Else
   TextBox1 = "": TextBox1.SetFocus
   MsgBox ("Mot de passe incorrect...")
 End If
 End Sub

[DeaD78]

Petites questions :

- Vérifie que le nom de ta feuille est bien "Main Data" et non "Main Data " avec un espace ou quelque chose du genre. Cela peut venir de là.

- Ta feuille est-elle protégée ? Si oui, en quoi est-elle protégée ? En sélection ?

[marinef]

Même lorsque j'ote toutes les protection j'ai tjs le même message d'erreur.

Le message arrive juste avant le 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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Private Sub CommandButton1_Click()
 
'Afficher les onglets propres au service Devis
 
If TextBox1.Text = "Areva" Then
 
   Unload MotDePasseDevis
 
   Worksheets("Doc.").Visible = False
   Worksheets("Sommaire").Visible = False
   Worksheets("Révisions").Visible = False
   Worksheets("Emb.Tr.Stock.").Visible = False
   Worksheets("Limites Fournitures").Visible = False
   Worksheets("Disj.&Sect.&Malt").Visible = False
   Worksheets("Qualité").Visible = False
   Worksheets("TA&BaC&TR").Visible = False
   Worksheets("Générales").Visible = False
   Worksheets("Paraf.&TC&TT").Visible = False
   Worksheets("Saisie").Visible = False
 
   Worksheets("Main Data").Visible = True
   Worksheets("Annexes").Visible = True
   Worksheets("Aide").Visible = True
 
   Worksheets("Main Data").Select
 
End If
 
 
If TextBox1.Text <> "Areva" Then
 
    MsgBox ("Mot de passe incorrect...")
 
End If
 
End Sub

[fgiambelluco]

Bonjour
Le fait de passer dans le premier test ferme la Userform, et lorsque l'on arrive sur le deuxième test on fait référence une zone de texte d'une Userform qui n'est plus chargée. Est ce que cela ne viendrait pas de là.
Il vaudrait mieux mettre un Exit Sub avant la fin du premier test, du genre :

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
Private Sub CommandButton1_Click()
 
'Afficher les onglets propres au service Devis
 
If TextBox1.Text = "Areva" Then
 
   Unload MotDePasseDevis
 
   Worksheets("Doc.").Visible = False
   Worksheets("Sommaire").Visible = False
   Worksheets("Révisions").Visible = False
   Worksheets("Emb.Tr.Stock.").Visible = False
   Worksheets("Limites Fournitures").Visible = False
   Worksheets("Disj.&Sect.&Malt").Visible = False
   Worksheets("Qualité").Visible = False
   Worksheets("TA&BaC&TR").Visible = False
   Worksheets("Générales").Visible = False
   Worksheets("Paraf.&TC&TT").Visible = False
   Worksheets("Saisie").Visible = False
 
   Worksheets("Main Data").Visible = True
   Worksheets("Annexes").Visible = True
   Worksheets("Aide").Visible = True
 
   Worksheets("Main Data").Select
   Exit Sub
End If
 
 
If TextBox1.Text <> "Areva" Then
 
    MsgBox ("Mot de passe incorrect...")
 
End If
 
End Sub

[marinef]

Non ça ne marche tjs pas.. je comprends vraiment pas ce qu'il se passe car j'ai exactement le même code dans un autre userform et ça marche...

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
Private Sub CommandButton1_Click()
 
'Afficher les onglets propres aux PM
 
If TextBox1.Text = "Areva" Then
 
   Unload MotDePassePM
 
   Sheets("Doc.").Visible = True
   Sheets("Main Data").Visible = True
   Sheets("Sommaire").Visible = True
   Sheets("Saisie").Visible = True
   Sheets("Révisions").Visible = True
   Sheets("Emb.Tr.Stock.").Visible = True
   Sheets("Limites Fournitures").Visible = True
   Sheets("Aide").Visible = True
   Sheets("Disj.&Sect.&Malt").Visible = True
   Sheets("Qualité").Visible = True
   Sheets("TA&BaC&TR").Visible = True
   Sheets("Générales").Visible = True
   Sheets("Annexes").Visible = True
   Sheets("Paraf.&TC&TT").Visible = True
 
   Sheets("Main Data").Select
 
End If
 
 
If TextBox1.Text <> "Areva" Then
 
    MsgBox ("Mot de passe incorrect...")
 
End If
 
End Sub

Même lorsque j'enlève la ligne "worksheets("Main Data").select ça me met le meme message!

[marinef]

OK c'est résolu!!! Dans un autre userform je faisais appelle à un onglet que je ne fesais pas apparaitre...

Merci à tous!