Vba excel : Forcer écriture dans textbox [Résolu/Fermé]

Signaler
-
Messages postés
25
Date d'inscription
mardi 12 mai 2015
Statut
Membre
Dernière intervention
6 juillet 2015
-
Bonjour,

débutante en vba je cherche à forcer l'écriture dans une de mes textbox.

Je souhaiterais imposer en premier la lettre "H" puis ensuite forcer une saisie uniquement numérique !

Merci d'avance pour votre aide !

MT

2 réponses

Messages postés
12185
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
21 septembre 2020
2 495
Bonjour,
Essayez voir ceci :
Private Sub TextBox1_GotFocus() 
If Len(TextBox1) = 0 Then TextBox1 = "H" 
End Sub 

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 
If InStr("1234567890", Chr(KeyAscii)) = 0 Then KeyAscii = 0 
End Sub

Cordialement,
Franck P
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60511 internautes nous ont dit merci ce mois-ci

Ca fonctionne très bien !!!

Un grand merci !
bonne fin de journée !
Messages postés
37
Date d'inscription
mercredi 12 mars 2014
Statut
Membre
Dernière intervention
26 février 2015

Bonjour,
Je tente ma chance, 2 ans et demi après : ne sait-on jamais !
Je veux faire la même chose sauf que je souhaiterais que le H par exemple, ne puisse pas être effacé. Parce que là en fait on force le H lorsque le userform s'ouvre, mais l'utilisateur peut toujours supprimer le H et écrire autre chose à la place.

Est-ce possible ?

Merci d'avance !

Ecrelinf
Messages postés
1941
Date d'inscription
lundi 3 mai 2010
Statut
Membre
Dernière intervention
23 août 2020
138
Bonjour Ecrelinf,

Normalement, on ne doit pas réveiller les morts...
Private Sub TextBox1_Change()
    If Left(TextBox1.Value, 1) <> "H" Then TextBox1.Value = "H" & TextBox1.Value
End Sub


A+
Messages postés
37
Date d'inscription
mercredi 12 mars 2014
Statut
Membre
Dernière intervention
26 février 2015

Ahah merci Zoul !
je veut un code source qui empêcher d'écrire dans un textbox une fois le textbox est désactivé
Messages postés
25
Date d'inscription
mardi 12 mai 2015
Statut
Membre
Dernière intervention
6 juillet 2015

Bonjour,

Ce sujet tombe parfaitement !
Mais je voudrai ajouter une petite condition, alors je tente ma chance aussi.
Serait-il possible que le H apparaisse dans la TextBox à l'ouverture du formulaire ( en plus de la condition qu'il ne s'efface pas et que nous devons écrire uniquement des chiffres après ) ...

Merci !
Messages postés
12185
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
21 septembre 2020
2 495
Bonjour,

A l'ouverture du formulaire.
Donc, lors de l'événement Initialize de l'Userform...
Donc :
Private Sub UserForm_Initialize()
    TextBox1.Value = "H"
End Sub
Messages postés
25
Date d'inscription
mardi 12 mai 2015
Statut
Membre
Dernière intervention
6 juillet 2015
>
Messages postés
12185
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
21 septembre 2020

Top ! =) Merci !