Surligner TextBox pour remplacer valeur

[Pateros]

Bonjour,

J'ai le problème suivant:
J'ai deux TextBox avec la premier TextBox pour mettre un nombre entier et le deuxième TextBox pour mettre ses chiffres décimaux.

Je voudrais qu'à partir d'un chiffre entré dans la 1° TextBox que la valeur "00" se mette automatiquement dans la Zone de texte dédié aux décimales (par exemple , pour obtenir "5,00"). Ca y a pas de souci.

Cependant, je voudrai que les "00" mis automatiquement dans la partir décimale soit surlignés, ou remplacé directement par les valeurs que l'on va mettre pas dessus, afin d'éviter de perdre du temps à utilsier la touche retour pour effacer les deux zéros. (Dans tous les cas je dois tjs avoir 2 chiffres décimaux, à partir du premier chiffre entier tapé)

Si quelqu'un à déja rencontré ce problème !

Merci beaucoup d'avance

 

[Papou-net]

Re : Surligner TextBox pour remplacer valeur

Bonjour Pateros,

Un exemple valant mille explications, je te laisse analyser le fichier ci-joint.

Espérant avoir répondu à ton attente.

Cordialement.

 

[Pateros]

Re : Surligner TextBox pour remplacer valeur

Merci Papou-net pour ta réponse.

Cependant j'ai oublié de préciser que les TextBox sont ceux de la boite à outil controle, d'une feuille Excel. Du coup, les lignes "Private Sub TextBox1_Enter", et "TextBox2 .SelLength = Len(.Text) " ne sont asp reconnues.

Je m'excuse du manque de précision de tout à l'heure

 

[job75]

Re : Surligner TextBox pour remplacer valeur

Bonjour Pateros, salut Papou-net,

Alors copier les macros de l'UserForm et les coller dans le code de la feuille...

A+

 

[Pierrot93]

Re : Surligner TextBox pour remplacer valeur

Bonjour à tous,

petite précision au passage, les événement "enter" et "exit" n'éxistent pas pour un "textbox" placé sur une feuille de calcul, utiliser, lorsque le focus est donné au contrôle :

Private Sub TextBox1_GotFocus()

losqu'il le quitte :

Private Sub TextBox1_LostFocus()

bon après midi
@+

 

[Pateros]

Re : Surligner TextBox pour remplacer valeur

Salut,

J'ai essayé avec le code suivant:

Private Sub TextBox1_Change()
If TextBox1 <> "" Then
TextBox2 = "00"
Else
TextBox2 = ""
End If
End Sub

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
TextBox2.Activate
End If
End Sub

Private Sub TextBox1_GotFocus()
TextBox2.AutoWordSelect = True
End Sub

Mais ca ne fonctionne toujours pas

 

[job75]

Re : Surligner TextBox pour remplacer valeur

Salut Pierrot,

Et merci pour cette précision.

On peut utiliser ces 2 macros dans le code de Feuil1 :

Private Sub TextBox1_Change()
TextBox2 = ""
If IsNumeric(TextBox1) Then TextBox2 = "00"
End Sub

Private Sub TextBox2_GotFocus()
TextBox2.SelStart = 0
TextBox2.SelLength = 2
End Sub

Nota : à la place de la 2ème macro, il suffirait de faire un doublle-clic dans TextBox2...

A+

 

[job75]

Re : Surligner TextBox pour remplacer valeur

Re,

Avec la touche <Entrée> ça donne bien sûr ceci :

Private Sub TextBox1_Change()
TextBox2 = ""
If IsNumeric(TextBox1) Then TextBox2 = "00"
End Sub

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
TextBox2.Activate
End If
End Sub

Private Sub TextBox2_GotFocus()
TextBox2.SelStart = 0
TextBox2.SelLength = 2
End Sub

Mais vous avez dû déjà trouver !

A+

 

[Pateros]

Re : Surligner TextBox pour remplacer valeur

Merci beaucoup ca marche nikel chrome

J'avais pas compris ce qu'il fallait mettre dans le GotFocus.

En tout cas ça ma enlevé une épine du pied

Merci encore d'avoir consacré du temps à mon problème

Bonne continuation à tous