Microsoft 365 Imposer la saisie du signe + ou - dans une textbox

[ivan27]

Bonsoir à tous,

Dans une textbox, numérique, je souhaiterais obliger l'utilisateur à saisir le signe + ou - devant le nombre qui suit

exemple : +30 ou -5

Si la saisie ne commence pas par le signe + ou - alors Msgbox d'erreur.

Merci d'avance pour votre aide

Bonne fin de soirée

Ivan

 

[fanch55]

Par contre, s'il saisi d'abord un nombre préfixé +/-; qu'il quitte la textbox; il peut y retourner et saisir un nombre sans préfixe +/-.
C'est pareil chez vous ?

Tout à fait, si l'utilisateur sélectionne tout le contenu de la textbox et saisit un chiffre, cela passe.
Je réfléchis à comment "trapper" ce phénomène

 

[patricktoulon]

Tout à fait, si l'utilisateur sélectionne tout le contenu de la textbox et saisit un chiffre, cela passe.
Je réfléchis à comment "trapper" ce phénomène

et oui c'est plus difficile et/ou plus long en terme de code si tu intercepte pas PENDANT LE KEYPRESS
Et pour intercepter il te faut le "post" et tu la pas dans keypress il faut donc concaténer
regarde ma ressource sur les textbox formatés datebox tu comprendra mieux

 

[patricktoulon]

tiens @fanch55
essaie de taper autre chose ou plus que ton pseudo
essaie d'oublier la majuscule

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
     With TextBox1
        V = .Value & Chr(KeyAscii)    'on concat le value + la touche dans la variable v
        If Len(V) Then If Mid("Fanch55", 1, Len(V)) <> V Then KeyAscii = 0
    End With
End Sub

ca a du bon l'interception non?
tu contrôle

1. l'orthographe maj/min
2. le maxlength
3. bloque les autre touches de la première touche tapée a la dernière
4. etc..etc..

en une seule ligne 😉
en espérant t'avoir convaincu 😉

 

[fanch55]

tiens @fanch55
essaie de taper autre chose ou plus que ton pseudo
essaie d'oublier la majuscule

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
     With TextBox1
        V = .Value & Chr(KeyAscii)    'on concat le value + la touche dans la variable v
        If Len(V) Then If Mid("Fanch55", 1, Len(V)) <> V Then KeyAscii = 0
    End With
End Sub

ca a du bon l'interception non?
tu contrôle

1. l'orthographe maj/min
2. le maxlength
3. bloque les autre touches de la première touche tapée a la dernière
4. etc..etc..

en une seule ligne 😉
en espérant t'avoir convaincu 😉

Pas mal, ça fonctionne bien ... 😛
Sauf qu'on est obligé de supprimer le contenu avant de pouvoir réécrire par dessus.
On peut saisir moins mais pas plus que le modèle ...
ça va être dur à caser ... 😎,
je ne sais pas trop comment le détourner pour l'appliquer à notre cas .

 

[patricktoulon]

je ne sais pas trop comment le détourner pour l'appliquer à notre cas .

c'est ce que je fait dans mon model
le principe
with textboxX
v=.value & chr(keyascii)
'...
'...
if not condition sur v then keyascii=0
end with

 

[fanch55]

@ivan27
Ci-joint la dernière version avec un module de classe pouvant résoudre votre demande.
A votre disposition si vous désirez des explications complémentaires que vous ne trouvez pas dans le code ... 😎

Edit du 1/9 : re-dépot du fichier

 

[ivan27]

Bonjour le forum, fanch55
Là on est bon. Par contre, cette résolution de problème en entraîne un autre que je n'avais pas prévu.
Les données saisies dans la TextBox sont transférées dans une cellule excel.
Dans la cellule, "+55" devient "55".
Donc la valeur n'est plus visible dans ma TextBox en mode consultation !
Si j'essaye d'ajouter le signe ''+'' via le formatage, ce n'est pas mieux!
Si je converti la cellule en texte, la valeur est à nouveau visible dans la TextBox mais je ne peux plus faire de calcul sur cette cellule....
Bien cordialement,
Ivan

 

[fanch55]

Waow, je ne comprend pas le problème.
Si la textbox doit être initalisée par une cellule, il suffit de faire
TextBox1 = Format([adresse de la cellule], "+0.00;-0.00") ou toute autre déclinaison

 

[ivan27]

Re bonsoir,
Maintenant c'est parfait.
Merci à tous pour le temps passé dans la résolution de ma demande.
Ivan