insertion auto d'un caractère dans une text box en vba [résolu]

[clichy]

bonjour à tous,

je progresse et gagne en expérience, notamment grace à ce forum.
aujourd'hui, je bloque sur un pb:
j'ai créé un userform qui contient des textbox dont un pour insérer une date.
j'ai deja fait en sorte que la saisie ne soit que numérique mais j'aimerai aller plus loin

je voudrais que lorsque l'utilisateur ecrit les 2 premiers chiffres, un tiret s'insère automatiquement et apres les 2 chiffres suivant de même pour arriver au réslutat suivant:
la date sera ecrite comme ceci > 22-12-2013
bref, il faudrait que le tiret s'insère automatiquement pendant l'ecriture

comment feriez vous cela?
mes différentes recherches ne donnent rien...

je vous remercie d'avance

 

[Isab]

Re : insertion auto d'un caractère dans une text box en vba

Bonjour

peut-être comme ceci:

Dans le code de l'USERFORM ( à tester et adapter)

Private Sub TextBox1_Change()
    Dim Valeur As Byte
    TextBox1.MaxLength = 10
    Valeur = Len(TextBox1)
    If Valeur = 2 Or Valeur = 5 Then TextBox1 = TextBox1 & "-"
End Sub

Isab / à bientôt

 

[Staple1600]

Re : insertion auto d'un caractère dans une text box en vba

Bonjour à tous

mes différentes recherches ne donnent rien...

je vous remercie d'avance

Pourtant la loupe du forum est trés puissante (en haut à droite de ton écran)

La solution (la même qu'Isab) t'attendait sagement depuis 2008
https://www.excel-downloads.com/threads/masque-de-saisie-vba.96537/

 

[clichy]

Re : insertion auto d'un caractère dans une text box en vba



Ben tu vois, cette intervention ne m'a pas été présenté dasn les resultats de recherche que j'ai fait sur google

merci à vous 2

 

[clichy]

Re : insertion auto d'un caractère dans une text box en vba

en adaptant le code j'ai une erreur de compilation

"instruction incorrecte à l'exterieur de la procédure"

TextBox1.MaxLength = 10
et le chiffre 10 est souligné

sauriez vous pourquoi?

merci encore

 

[Staple1600]

Re : insertion auto d'un caractère dans une text box en vba

Re


je ne parlais de G..gle mais du moteur de recherche interne du forum
familièrement appelée la loupe (voir ci-dessous)


Sinon pour ton bug: Ta textbox se nomme bien TextBox1 dans ton Userform ?

 

[Staple1600]

Re : insertion auto d'un caractère dans une text box en vba

Re


Il manque le mot Sub dans l'exemple d'Isab
Mais pas dans le lien vers la discussion de 2008 que je cite

Private Sub TextBox1_Change()
'ici le code VBA
End Sub

 

[Pierrot93]

Re : insertion auto d'un caractère dans une text box en vba

Bonjour à tous,

peut être placer cette instruction dans l'événement "initialize" de l'userform...

bon après midi
@+

 

[Staple1600]

Re : insertion auto d'un caractère dans une text box en vba

Bonjour Pierrot93


Je viens de tester le code fonctionne.
(avec le mot Sub en moins ça fonctionne moins bien -> voir précédent message)

 

[Pierrot93]

Re : insertion auto d'un caractère dans une text box en vba

Re,

perso comme la propriété n'a pas vocation à changer, je la défini qu'une seule fois.... enfin c'est juste un avis....

 

[clichy]

Re : insertion auto d'un caractère dans une text box en vba

merci beaucoup tt le monde
je suis trop nul, j'avais meme pas vuu qu'il manquait sub dans le code............


Ca marche nickel chrome


staple1600, je vais prendre le reflex de chercher aussi directement dans l'aide de ce forum

 

[Isab]

Re : insertion auto d'un caractère dans une text box en vba

bonjour ..merci à toi aussi

..désolée en effet il manquait le mot sub.. je le rajouterai
JM ... l'avait remarqué et cela t'a aidé à éviter de tourner en rond ( sourire)..

bonne continuation