Comment mettre une condition pour avoir une valeur numérique ?

SergiO

XLDnaute Accro

• 31 Août 2008

• #2

Re : Comment mettre une condition pour avoir une valeur numérique ?

Bonjour ToniConti,

Essaie comme ceci:

Code:

If TextBox1.Value = "" Or Not IsNumeric(TextBox1.Value) Then

@+

 

Vote positif 0 Vote négatif

S

Skqgent

XLDnaute Junior

• 31 Août 2008

• #3

Re : Comment mettre une condition pour avoir une valeur numérique ?

En complement de Sergio

Avec un bouton "Valider" dans ton userform

Private Sub Valider_Click()
If TextBox1.Value = "" Or Not IsNumeric(TextBox1.Value) Then
MsgBox " Veuillez remplir les champs correctement !"
End If
End Sub

 

Vote positif 0 Vote négatif

T

ToniConti

XLDnaute Junior

• 31 Août 2008

• #4

Re : Comment mettre une condition pour avoir une valeur numérique ?

Ben c'est super, ca marche merci !

Et si maintenant je voudrais vérifier qu'il s'agit bien d'une valeur type texte ?

Merci

 

Vote positif 0 Vote négatif

S

Skqgent

XLDnaute Junior

• 31 Août 2008

• #5

Re : Comment mettre une condition pour avoir une valeur numérique ?

La meme chose
mais

If WorksheetFunction.IsText(TextBox1.Value)

Désolé doublon

 

Dernière édition: 31 Août 2008

Vote positif 0 Vote négatif

S

Skqgent

XLDnaute Junior

• 31 Août 2008

• #6

Re : Comment mettre une condition pour avoir une valeur numérique ?

La meme chose mais

Private Sub Valider_Click()
If WorksheetFunction.IsText(TextBox1.Value) then
MsgBox " Veuillez remplir les champs correctement !"
End If
End Sub

 

Vote positif 0 Vote négatif

T

ToniConti

XLDnaute Junior

• 31 Août 2008

• #7

Re : Comment mettre une condition pour avoir une valeur numérique ?

Quand tu mets : "Private Sub Valider_Click()"
On est bien d'accord que je peux le mettre dans n'importe quel bloc qui concerne la validation de mon formulaire ?

 

Vote positif 0 Vote négatif

S

Skqgent

XLDnaute Junior

• 31 Août 2008

• #8

Re : Comment mettre une condition pour avoir une valeur numérique ?

ToniConti à dit:

Quand tu mets : "Private Sub Valider_Click()"
On est bien d'accord que je peux le mettre dans n'importe quel bloc qui concerne la validation de mon formulaire ?

Cliquez pour agrandir...

Dans le bloc dans ton userform oui

 

Vote positif 0 Vote négatif

T

ToniConti

XLDnaute Junior

• 31 Août 2008

• #9

Re : Comment mettre une condition pour avoir une valeur numérique ?

ok. 🙂 (j'avais pas vu le message du dessus)

Et bien un grand merci j'ai eu tout ce dont j'avais besoin !

Passez une bonne journée 🙂

ps : ta oublié le "not" devant 😉

 

Dernière édition: 31 Août 2008

Vote positif 0 Vote négatif

S

Skqgent

XLDnaute Junior

• 31 Août 2008

• #10

Re : Comment mettre une condition pour avoir une valeur numérique ?

Oui oublié le not 🙄
mais remarque j'arrive pas à faire fonctionner ce code correctement chez moi

Si tu tape 00 dans la textbox1, tu as bien ton message d'erreur ?

 

Vote positif 0 Vote négatif

pickatshou

XLDnaute Nouveau

• 3 Novembre 2008

• #11

Re : Comment mettre une condition pour avoir une valeur numérique ?

salut
il reste un petit probleme Mr Sergio c'est que l'espace echape a votre instruction
si vous tapez "22 22 22" par example le message d'erreur ne declanche pas
merci

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 3 Novembre 2008

• #12

Re : Comment mettre une condition pour avoir une valeur numérique ?

Bonjour,

ToniConti à dit:

Et bien un grand merci j'ai eu tout ce dont j'avais besoin !

Cliquez pour agrandir...

Pas sûr d'avoir tout compris, mais il me semble que la solution juste était donnée par Sergio (que je salue) cependant il testait que la Textbox contenait une valeur numérique, or c'était l'inverse, faute de précision de ta part dans ton premier post

Code:

'...
If TextBox1 = "" Or IsNumeric(TextBox1) Then
MsgBox " Veuillez remplir les champs correctement !"
'...

Une saisie comportant chiffres et lettres est reconnue comme du texte
A+
kjin

 

Vote positif 0 Vote négatif

Brigitte

XLDnaute Barbatruc

• 3 Novembre 2008

• #13

Re : Comment mettre une condition pour avoir une valeur numérique ?

Bonjour tout le monde,

Le plus rigolo dans cette histoire c'est que les messages datent d'août 2008... donc je pense que depuis, l'eau a dû couler sous les ponts. Toniconti semblait content. Comme quoi les xldiens veillent !

Bonne journée.

 

Vote positif 0 Vote négatif

N

nextrevolution

XLDnaute Occasionnel

• 28 Avril 2009

• #14

Re : Comment mettre une condition pour avoir une valeur numérique ?

Bonjour à tous, j'ai réutilisé le code

Code:

Private Sub TextBox3_Change()
If Not IsNumeric(TextBox3.Value) Then
    MsgBox "Valeur numerique obligatoire"
    TextBox3.SelStart = 1
    TextBox3.SelLength = Len(TextBox3.Text)
    Exit Sub
    End If

End Sub

Mais le soucis c'est quand j'efface mon texte il me marque Valeur numerique obligatoire. J'aimerais qu'il apparaisse pas lorsque je vide ma Textbox.
J'ai essayé de faire

Code:

If Not IsNumeric(TextBox3.Value) or TextBox3.value= "" Then

Mais ça fonctionne pas

 

Vote positif 0 Vote négatif