TextBox avec valeurs numeriques uniquement.

[Drefzone]

Bonjour à toutes et à tous.

Voici ma petite question :

Est-il possible de n'authoriser que des valeurs numeriques dans un TextBox ?

Actuellement j'affiche un message d'erreur si le TextBox est vide :
If TextBox.Value = "" Then
MsgBox "Saisir une valeur"

Je voudrais pouvoir faire le même chose si la valeur entrée n'est pas une valeur numerique.

Est-ce possible ?
Car hélas je n'y arrive pas (

Merci d'avance.

Drefzone !!!

 

[G'Claire]

Salut le forum, et Drefzone

J'ai récuperer ce code :

If Not IsNumeric(Nom de TextBox) Then
Cancel = True
MsgBox "Seules les valeurs numériques sont acceptables.", _
vbInformation + vbOKOnly, "Attention"
Me.'Nom du TextBox.SelStart = 0
Me.'Nom du textBox.SelLength = Len(Nom du textbox)
End If

Attention, cela ne place pas de valeur dans les celules

Voila, j'espère que cela t'aider, sinon d'autres plus experts viendrons t'aider

Salut, G'Claire

 

[Drefzone]

Bonjour G'Claire et
MERCI !!!

Ton code fonctionne à merveille )

Merci beaucoup pour ton aide.

Longue vie à ce super Forum )

Bonne journée.

Drefzone

 

[@+Thierry]

Bonjour G'Claire, Drefzone le Forum


En plus de la solution proposée par G'Claire et comme c'est une question qui revient assez souvent, j'ai fait une démo pour montrer comment on peut s'y prendre pour à la fois pour avoir une valeur numérique calculable en temps réél dans les TextBox ayant un format personnalisé dans l'affichage des nombres et tout ceci en permettant la saisie au pavé numérique en ayant un séparateur de décimal qui fonctionne, que ce soit sous paramètre régionaux FR [ "," ] ou Anglais/US [ ". "]...


=> Fichier Démo : Lien supprimé

=> Fil de Discussion : Lien supprimé


Bon Appétit
@+Thierry

 

[Drefzone]

Bonjour @+Thierry

Ouah, sacrée demo.
Rien de tel pour continuer à apprendre quelques petits trucs avec Excel VBA.

De plus, je viens tout juste de trouver les packs demos dans la zone téléchargement. Tu as surement dû y placer cette demo.
Donc, la prochaine fois j'essayerai de voir si la reponse à ma question n'est pas deja dans une demo.

En attendant, passe une bonne journée et bon appétit.

Merci !
Drefzone.