Yldie
XLDnaute Junior
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
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