Mettre un point dans la saisie du nombre, qu'il soit positif ou négatif

Question

Bonjour
Dans une TextBox je dois pouvoir saisir un nombre négatif ou positif. (coordonnées GPS)
Le nombre doit avoir un point (et non pas une virgule) comme décimale après le premier chiffre. ça, j'ai réussi.
Jusqu'à présent je ne saisissais que des nombres positifs, sans le " + " bien entendu.

Le but est de conserver le signe " - " quand il est saisi, mais du coup, tel que j'ai codé ma TextBox, le point se met après le signe négatif.
Je n'ai aucune idée comment :
1 : conserver le - et que le point se mette donc après le premier chiffre.
2 : augmenter de 1 caractère si il y a le - dans la TextBox pour conserver les 6 chiffres après le point décimal

Voici le code de ma TextBox

Private Sub TextBoxLongCor_Change()

                TextBoxLongCor.MaxLength = 8 'nb caractères maxi autorisé dans le textbox. 
                ValeurLongCor = Len(TextBoxLongCor)
                If ValeurLongCor = 1 Then TextBoxLongCor = TextBoxLongCor & "."
                TextBoxLongCor = Replace(TextBoxLongCor, ",", "")
                TextBoxLongCor = Replace(TextBoxLongCor, "..", ".")

End Sub

Merci de votre aide

LouReeD · Accepted Answer

Bon ben voilà le fichier avec une saisie "naturelle" mais "verrouillé" avec un test du survol et affichage d'un message : @ bientôt LouReeD...

LouReeD · Answer

Voyer ceci : Private Sub TextBox1_Change() If TextBox1 = "" Then Exit Sub TextBox1.MaxLength = IIf(Left(TextBox1, 1) = "-", 9, 8) valeurlongcor = Len(TextBox1) If valeurlongcor = 1 And TextBox1.MaxLength = 9 Then Exit Sub If (valeurlongcor = 2 And TextBox1.MaxLength = 9) Or (valeurlongcor = 1 And TextBox1.MaxLength = 8) Then TextBox1 = TextBox1 & "." TextBox1 = Replace(TextBox1, ",", "") TextBox1 = Replace(TextBox1, "..", ".") End Sub mais ce n'est pas beau... En plus on ne peut effacer la valeur avec le retour chariot... on reste coincé au point... Mais bon, si cela peut faire avancer le problème. @ bientôt LouReeD...

mafraise · Answer

Un autre code. On peut saisir comme premier caractère le signe plus ou le signe moins ou le point décimal ou la virgule décimale ou bien un chiffre . La saisie refuse tout autre caractère. La saisie refuse aussi les doublons pour le plus, le moins, la virgule et le point. nota : le signe plus ou moins doit être suivi d'un chiffre (le point et la virgule sont proscrits dans ce cas). Le code : Private Sub TextBox1_Change() Dim x$ x = Replace(TextBox1, " ", "") ' on ôte les espaces If x = "" Then TextBox1 = "": Exit Sub ' si x est vide, on quitte la procédure If Len(x) = 1 Then ' cas d'un seul caractère If x = "-" Or x = "+" Or x = "." Or x Like "#" Then Exit Sub 'si - ou + ou . alors on ne fait rien If x = "," Then TextBox1 = ".": Exit Sub ' si virgule, on la remplace par un point End If x = Replace(x, ".", ",") ' on remplace un éventuel point par une virgule ' si c'est numérique on remplace la virgule par un point sinon on ôte le dernier caractère If IsNumeric(x) Then TextBox1 = Replace(x, ",", ".") Else TextBox1 = Left(TextBox1, Len(TextBox1) - 1) End Sub Ce n'est pas sans doute pas parfait mais ça le fait à 99%, du moins me semble-t-il.....

saboh12617 · Answer

Vous n'avez pas "dupliqué" la ligne en question. Il faut bien comprendre la portée de vos variables. Étendue - Visual Basic | Microsoft Learn Vous créez dans le Sub TextBoxLongCor_BeforeUpdate une variable nommée ValeurLongCor, et dans le Sub extBoxLongCor_Change une AUTRE variable avec le meme nom. Elles n'ont, en elles-meme, rien en commun, ne se connaissent pas et ne se voient pas. D'où la nécessité de redéclarer , dans le deuxième sub votre variable. Alternativement il faut faire une variable globale. Déclaration de variables (VBA) | Microsoft Learn En dehors de cela, le code actuel me semble manquer d'une vérification assez cruciale puisqu'il autorise l'entrée de texte. Mafraise le checkait en partie mais n'a pas poussé (vu que non demandé) le code à indiquer une entrée incorrecte. Mais personnelement je ne comprends pas trop la motivation à "modifier" ainsi l'entrée utilisateur. Je trouverai ça assez perturbant si je l'utilisait. Pourquoi ne pas convertir les valeurs après ...

LouReeD · Answer

Dernière proposition en reprenant l'interrogation de saboh12617 : Option Explicit Public EnCours As Boolean Private Sub TextBox1_Change() If EnCours Then Exit Sub TextBox1.MaxLength = IIf(Left(TextBox1, 1) = "-", 9, 8) EnCours = True If Len(TextBox1) = TextBox1.MaxLength And InStr(TextBox1, ".") = 0 Then If Left(TextBox1, 1) = "-" Then TextBox1 = Left(TextBox1, 2) & "." & Mid(TextBox1, 3, 99) Else TextBox1 = Left(TextBox1, 1) & "." & Mid(TextBox1, 2, 99) End If Else TextBox1 = Replace(TextBox1, ".", "") End If EnCours = False End Sub Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If InStr("1234567890-", Chr(KeyAscii)) = 0 Or TextBox1.SelStart &gt; 0 And Chr(KeyAscii) = "-" Then KeyAscii = 0: Beep End If End Sub Le fichier : @ bientôt LouReeD...