• Initiateur de la discussion Initiateur de la discussion Yldie
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
665
Réponses
5
Affichages
661
Retour