Surligner TextBox pour remplacer valeur

Pateros

XLDnaute Nouveau
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

XLDnaute Barbatruc
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.
 

Pièces jointes

  • Pateros.xls
    23 KB · Affichages: 60

Pateros

XLDnaute Nouveau
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
 

Pierrot93

XLDnaute Barbatruc
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 :
Code:
Private Sub TextBox1_GotFocus()

losqu'il le quitte :
Code:
Private Sub TextBox1_LostFocus()

bon après midi
@+
 

Pateros

XLDnaute Nouveau
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

XLDnaute Barbatruc
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 :

Code:
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+
 

Pièces jointes

  • Pateros(1).xls
    38 KB · Affichages: 54

job75

XLDnaute Barbatruc
Re : Surligner TextBox pour remplacer valeur

Re,

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

Code:
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+
 

Pièces jointes

  • Pateros(2).xls
    39 KB · Affichages: 43

Pateros

XLDnaute Nouveau
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 :)
 

Statistiques des forums

Discussions
299 703
Messages
1 978 596
Membres
206 300
dernier inscrit
gauthier75011