TheProdigy
XLDnaute Impliqué
Bonjour,
Comment vous faites pour afficher les trucs sur boutons? Je pense aux boutons avec petites icônes du type un v vert pour OK et une croix rouge pour annuler.Est une ligne code? ou un image à insérer?
Voici mon code du bouton Valider si c'est le premier cas.
Private Sub CommandButton1_Click()
If Me.TextBox1 = "123" Then
Dim n As Integer
For n = 2 To Sheets.Count
Sheets(n).Visible = True
Next n
MsgBox "Correct"
Unload Me
Else
MsgBox "Mot de passe incorrect. Réessayez!"
Me.TextBox1 = ""
End If
End Sub
Comment vous faites pour afficher les trucs sur boutons? Je pense aux boutons avec petites icônes du type un v vert pour OK et une croix rouge pour annuler.Est une ligne code? ou un image à insérer?
Voici mon code du bouton Valider si c'est le premier cas.
Private Sub CommandButton1_Click()
If Me.TextBox1 = "123" Then
Dim n As Integer
For n = 2 To Sheets.Count
Sheets(n).Visible = True
Next n
MsgBox "Correct"
Unload Me
Else
MsgBox "Mot de passe incorrect. Réessayez!"
Me.TextBox1 = ""
End If
End Sub