Erreur De Code

[Yldie]

BONSOIR A TOUS ET A TOUTES,

Voici mon code UserForm2....malheureusement ça bug :
Option Explicit

Private Sub CommandButton1_Click()
If Me.TextBox1 = "password" Then
For Each sh In Array("Feuil4", "Feuil1", "Feuil15", "Feuil24", _
"Feuil22", "Feuil25", "Feuil29", _
"Feuil30", "Feuil31", "Feuil32", "Feuil33", _
"Feuil34", "Feuil35", "Feuil36", "Feuil39", "Feuil6")
Sheets(sh).Visible = xlVeryHidden
Next sh
Sheets("INTRO").Activate
Else
For Each sh In Array("Feuil4", "Feuil1", "Feuil15", "Feuil24", _
"Feuil22", "Feuil25", "Feuil29", _
"Feuil30", "Feuil31", "Feuil32", "Feuil33", _
"Feuil34", "Feuil35", "Feuil36", "Feuil39", "Feuil6")
Sheets(sh).Visible = True
Next sh
End If
Unload Me
End If
End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub UserForm_Click()

End Sub

Merci de m'aider à y voir un peu plus clair, à +

YLDIE

 

[Guest]

Re : Erreur De Code

Ben tiens, j'en profite pour saluer Jc!

doit pas être bien loin çuici

Excuses-nous Yldie on squate ton fil. Mais on a plus grand chose à se mettre sous la dent.

A+

 

[JCGL]

Re : Erreur De Code

Bonsoir à tous,

Comme il y a quelques Saluts qui n'ont pas lieu d'être sur ce fil :

Salut à Marcel, Hasco, l'Agrafe et BH²... pour tous,

J'en profite l'épistolaire n'est pas encore intervenu... arf arf

Je n'interviens pas mais je lis toutes vos interventions et c'est pour moi un bonheur de lire vos bêtises... euh vos réponses...

A++ mes amis
A+ à tous