Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Saisie unique des chiffres dans le textbox

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion melltel
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

melltel

XLDnaute Occasionnel
bonjour,
svp je cherche a bloquer la saisie des lettres et autres caractéres dans ma textbox.
tout en autorisant juste des chiffres et en signalant lorqu'on ne saisie pas les nombres, par un Msgbox ''valeur incorrete''.
mon code est:

Private Sub R08_VUE_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("0123456789:/", Chr(KeyAscii)) = 0 Then KeyAscii = 0
Else
MsgBox ("La valeur saisie n'est pas conforme")
End If
End Sub

merci!!!
 
Trier par date Trier par votes
J

JHA

XLDnaute Barbatruc
Bonjour à tous,

Il est possible de faire cela avec la validation des données.

Edit: Oups! pas vu qu'il s'agit d'une "textbox"

JHA
 

Pièces jointes

  • Classeur validation des données.xlsx
    8.9 KB · Affichages: 9
Vote positif 0 Vote négatif
J

JM27

XLDnaute Barbatruc
bonjour
pas testé m&ais cela devrait le faire
VB: 
Private Sub R08_VUE_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If InStr("0123456789:/", Chr(KeyAscii)) = 0 Then
        KeyAscii = 0
        MsgBox ("La valeur saisie n'est pas conforme")
    End If
End Sub
 
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Bonjour melltel,
VB: 
Private Sub R08_VUE_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("0123456789:/", Chr(KeyAscii)) = 0 Then MsgBox "La valeur saisie n'est pas conforme": KeyAscii = 0
End Sub
Edit : salut JHA, JM27, pas rafraîchi, XLD ne se met pas à jour assez souvent.

A+
 
Dernière édition:
Vote positif 0 Vote négatif
M

melltel

XLDnaute Occasionnel
ceci affiche juste le MsgBox sans respecter la condition. au click,c'est seulement le message d'erreur qui s'affiche.
enfet je desire avoir une condition...si c'est un chiffre ca passe et remplie mon tableau sinon affiche le MsgBox "la valeur saisie n'est pas conforme" ceci avec le keyPress.
merci!
 
Vote positif 0 Vote négatif
M

melltel

XLDnaute Occasionnel
merci.
voici la solution que m'a proposé Job75 et ca marche

Private Sub R08_VUE_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("0123456789:/", Chr(KeyAscii)) = 0 Then MsgBox "La valeur saisie n'est pas conforme": KeyAscii = 0
End Sub
 
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
La macro précédente ne permet pas de voir le caractère erroné qui a été entré.

Mais surtout elle ne va pas du tout si l'on entre un texte par copier-coller.

Utilisez plutôt cette macro :
Code: 
Private Sub R08_VUE_Change()
Dim t$, i%
t = R08_VUE
For i = Len(t) To 1 Step -1
    If InStr("0123456789:/", Mid(t, i, 1)) = 0 Then t = Left(t, i - 1) & Mid(t, i + 1)
Next
If t <> R08_VUE Then MsgBox "La valeur saisie n'est pas conforme": R08_VUE = t
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

T
  • Résolu(e)
XL 2019 Contrôle de saisie d'heures
Réponses
10
Affichages
384
ThierryP
T
  • Résolu(e)
XL 2010 Propriété MaxLength d'une TextBox pour saisie n° de téléphone
2
Réponses
23
Affichages
2 K
Eric C
B
  • Résolu(e)
Microsoft 365 affecter des valeurs dans un tableau de noms de variable
Réponses
4
Affichages
750
bérylion
B
O
  • Question Question
XL 2019 Je veux afficher mes données dans ma Listbox1 avec l'entete de ma Base donnée et fait la recherche sans que cela derange l'entete.
Réponses
6
Affichages
775
ChTi160
N
  • Résolu(e)
Microsoft 365 Code fonction pour création code aléatoire
2 3
Réponses
32
Affichages
655
NONO14
N
U
  • Question Question
Autres [RÉSOLU] Souligner texte VBA
Réponses
7
Affichages
1 K
TooFatBoy
P
  • Question Question
Microsoft 365 TextBox avec limitation de la saisie entre 2 valeurs
Réponses
8
Affichages
262
pat66
P
  • Résolu(e)
XL 2010 Masque de saisie textbox Téléphone Public
Réponses
8
Affichages
707
cathodique
U
  • Question Question
Autres Fermer userform avec Enter
Réponses
5
Affichages
555
Dranreb
N
  • Résolu(e)
Microsoft 365 Modification impossible d'une TextBox
2 3 4
Réponses
56
Affichages
1 K
NONO14
N
N
  • Question Question
Microsoft 365 Recherche dans un tableau structuré à partir d'une TextBox
Réponses
11
Affichages
329
NONO14
N
A
  • Question Question
XL 2010 Forcer le focus a rester dans un Textbox apres validation
Réponses
11
Affichages
666
aurelio.ewane
A
N
  • Résolu(e)
Microsoft 365 Rendre des bouton inactifs si des TextBox sont remplies ou pas.
Réponses
5
Affichages
139
NONO14
N
A
  • Question Question
insertion d'une ligne automatique dans un tableau excel.
Réponses
1
Affichages
303
sylvanu
N
  • Résolu(e)
Microsoft 365 Rechercher la dernière cellule saisie dans un TS et ajouter l'heure système
18 19 20
Réponses
294
Affichages
67 K
ChTi160
  • Résolu(e)
XL 2016 Gestion d'erreur dans code
Réponses
6
Affichages
526
piga25
P
  • Question Question
Microsoft 365 Transformer InputBox en UserForm avec TextBox et CommandButton
Réponses
4
Affichages
717
Piaf79
P
A
  • Résolu(e)
XL 2013 Calcule de produit dans un textbox
Réponses
6
Affichages
433
Appo1985
A
A
  • Résolu(e)
XL 2013 Calcule de produit dans un textbox
Réponses
3
Affichages
388
job75
  • Résolu(e)
Microsoft 365 Saisie des / en automatique dans textbox date
Réponses
14
Affichages
853
jcf6464
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…