Bonjour la communauté,
J'ai ce code qui fonctionne très bien :
Private Sub cmdnob_Click()
Unload UserFormBegin
End Sub
Private Sub cmdyesb_Click()
Unload UserFormBegin
UserFormYesBegin.Show
End Sub
Private Sub UserForm_Activate()
SerialNumberBegin.Text = Sheets("Main Menu").Range("N9")
SerialNumberBegin.Font.Size = 11
SerialNumberBegin.Font.Underline = False
End Sub
Je voudrais maintenant l'améliorer un peu. J'aimerais savoir comment rendre le texte qui s'affiche dans la textBox "SerialNumberBegin" non modifiable.
La valeur est prise en dans un champs de la page mais je voudrais être certain qu'une erreur sur le clavier ne puisse pas modifier le contenu de la textbox avant de continuer
Merci d'avance !!