Aller au contenu
Zebulon

  • Pas encore inscrit ?

    Pourquoi ne pas vous inscrire ? C'est simple, rapide et gratuit.
    Pour en savoir plus, lisez Les avantages de l'inscription... et la Charte de Zébulon.
    De plus, les messages que vous postez en tant qu'invité restent invisibles tant qu'un modérateur ne les a pas validés. Inscrivez-vous, ce sera un gain de temps pour tout le monde, vous, les helpeurs et les modérateurs ! :wink:

[VBA excel 2007] Saisie numérique textbox erreur

Invité pml

Par Invité pml
dans Programmation

 Partager

Messages recommandés

Basphet Full Patch Member

Basphet

Posté(e)
Posté(e)

Bonjour.

 

Oui c'est normal car ta variable virgule reste à true.

Il faudrait dans ce cas faire un test à chaque fois pour voir si une virgule est présente dans la saisie.

Un truc dans ce style :

 

Private Sub TextBox0_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If Not IsNumeric(Chr(KeyAscii)) And Chr(KeyAscii) <> "." Then

KeyAscii = 0

End If

If instr(textbox0.seltext,".")>0 then

if not Virgule then virgule=True else KeyAscii=0

else

virgule=false

End If

End Sub

Lien vers le commentaire
Partager sur d’autres sites

Rejoindre la conversation

Vous pouvez publier maintenant et vous inscrire plus tard. Si vous avez un compte, connectez-vous maintenant pour publier avec votre compte.
Remarque : votre message nécessitera l’approbation d’un modérateur avant de pouvoir être visible.

Invité
Répondre à ce sujet…

×   Collé en tant que texte enrichi.   Coller en tant que texte brut à la place

  Seulement 75 émoticônes maximum sont autorisées.

×   Votre lien a été automatiquement intégré.   Afficher plutôt comme un lien

×   Votre contenu précédent a été rétabli.   Vider l’éditeur

×   Vous ne pouvez pas directement coller des images. Envoyez-les depuis votre ordinateur ou insérez-les depuis une URL.

×
 Partager
Aller sur la liste des sujets

  • En ligne récemment   0 membre est en ligne

    • Aucun utilisateur enregistré regarde cette page.
×
×
  • Créer...