Figer le text dans un textbox
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 SubJe 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 !!
Bonjour,
Dans ce cas ne vaudrait-il pas mieux mettre cette information dans un label plutôt qu'une textbox?
Sinon cliquez sur la textBox et il y a un attribut "locked" que l'on peux mettre à true.
Cordialement,
Merci de la réponse !
Je suis d'accord pour le label mais je n'ai pas réussit....
Mais le paramètre lock fonctionne très bien donc merci !
Bonjour,
La première ligne de ton Activate est justifiée... les deux suivantes non ! Ces valeurs de propriétés sont à mettre par défaut dans la fenêtre de propriété (code inutile).
De même, tu mets la propriété Locked à True et l'utilisateur ne pourra pas toucher à la valeur de la TextBox.
Tu pouvais aussi mettre une étiquette (formatée comme une TextBox ordinaire le cas échéant) pour le même résultat.
Cordialement.
Bonjour.
Tu peux désactiver son utilisation :
SerialNumberBegin.Enabled = FalseExact ! mais cela modifie l'apparence du texte... Locked non...
Effectivement.
Mais il n'a pas été demandé de ne pas le faire
Merci MFERRAND, Merci TheBenoit59 !
Pour avoir testé la modifation du text me plait !
Comment remettre la couleur en noir SVP par compte ?
Forecolor...
Salut !
Impeccable MERCI !
A bientôt !