XL 2010 [RESOLU] Saisie Note via TextBox

Créer une discussion
Répondre

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
cathodique

cathodique

XLDnaute Barbatruc
Bonjour,

Je suis confronté à un problème que je n'arrive pas à résoudre.
J'utilise le bout de code ci-dessous pour saisir même des chiffres décimaux (une seule virgule admise)
VB: 
Private Sub TxtNote_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'que numéric et 1 seule virgule
   If KeyAscii = 46 And Not TxtNote Like "*,*" Then KeyAscii = 44: Exit Sub
   If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub
Ce code fonctionne bien. Cependant, il ne répond exactement à mes attentes.
En effet, je dois alimenter une bd de notes scolaires sur 20.
Avec ce code, on peut aller au-delà de 20, ce qui ne doit pas être permis étant donné que la notation est sur 20.

Je voudrais un code qui permettent la saisie de chiffres décimaux ne dépassant pas 20.
le but est de permettre d'insérer une seule virgule si le chiffre ne dépasse pas 20.
et de ne pas permettre l'insertion de la virgule lorsque le chiffre saisie est 20.
une autre contrainte: permettre l'utilisation de la touche retour arrière.

En vous remerciant par avance.

Bon week-end.
 
Solution
patricktoulon
Bonjour @cathodique
a ce patricktoulon avec ses code de formatage de textbox on sais plus quoi faire
voila un exemple qui gère toute les situations
VB: 
Private Sub TxtNote_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    'que numéric et 1 seule virgule
    With TxtNote
        If Len(.Value) >= 5 Then KeyAscii = 0 ' 5 = pas plus de 2 décimales (4 pour une seule décimales )
        If Val(.Value) = 20 Then KeyAscii = 0 'si il y a 20 dans le textbox bye bye!!!
        If KeyAscii = 46 And Not .Value Like "*,*" Then KeyAscii = 44: Exit Sub 'remplace le "." par ","
        If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0 ' les touches autre que le pavé de 0 à 9  sont bloquées
        If CDbl(.Value & Chr(KeyAscii))...
Trier par date Trier par votes
Bonjour @cathodique
a ce patricktoulon avec ses code de formatage de textbox on sais plus quoi faire
voila un exemple qui gère toute les situations
VB: 
Private Sub TxtNote_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    'que numéric et 1 seule virgule
    With TxtNote
        If Len(.Value) >= 5 Then KeyAscii = 0 ' 5 = pas plus de 2 décimales (4 pour une seule décimales )
        If Val(.Value) = 20 Then KeyAscii = 0 'si il y a 20 dans le textbox bye bye!!!
        If KeyAscii = 46 And Not .Value Like "*,*" Then KeyAscii = 44: Exit Sub 'remplace le "." par ","
        If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0 ' les touches autre que le pavé de 0 à 9  sont bloquées
        If CDbl(.Value & Chr(KeyAscii)) > 20 Then KeyAscii = 0 'si la valeur + touche simulée >20 alors touche annulée
    End With
End Sub
patrick
 
Vote positif 0 Vote négatif
Solution
Bonjour,

Histoire de poster un truc, un code sur l'évènement _Exit() de la TextBox si c'est dans un UserForm et qu'il y a d'autres contrôles à suivre.
VB: 
Private Sub TxtNote_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dim FormatNote As String
   
    'Bloque la saisie sur la TextBox
    Cancel = True
   
    With TxtNote        
        .Value = Replace(.Value, " ", "")
        .Value = Replace(.Value, ".", ",")
       
        If Not IsNumeric(.Value) Then
            MsgBox "Note non numérique !"
            Exit Sub
        End If
       
        If CDbl(.Value) < 0 Or CDbl(.Value) > 20 Then
            MsgBox "Note hors limites [0-20] !"
            Exit Sub
        End If
       
        Select Case True
            Case InStr(.Value, ",") = 0
                FormatNote = "#0"
               
            Case Len(Mid(.Value, InStr(.Value, ",") + 1)) = 1
                FormatNote = "#0.0"
           
            Case Else
                FormatNote = "#0.00"
        End Select
       
        .Value = Format(.Value, FormatNote)
    End With
   
    'Débloque la saisie de la TextBox
    Cancel = False
End Sub
 
Vote positif 0 Vote négatif
patricktoulon à dit:
Bonjour @cathodique
a ce patricktoulon avec ses code de formatage de textbox on sais plus quoi faire
voila un exemple qui gère toute les situations
VB: 
Private Sub TxtNote_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    'que numéric et 1 seule virgule
    With TxtNote
        If Len(.Value) >= 5 Then KeyAscii = 0 ' 5 = pas plus de 2 décimales (4 pour une seule décimales )
        If Val(.Value) = 20 Then KeyAscii = 0 'si il y a 20 dans le textbox bye bye!!!
        If KeyAscii = 46 And Not .Value Like "*,*" Then KeyAscii = 44: Exit Sub 'remplace le "." par ","
        If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0 ' les touches autre que le pavé de 0 à 9  sont bloquées
        If CDbl(.Value & Chr(KeyAscii)) > 20 Then KeyAscii = 0 'si la valeur + touche simulée >20 alors touche annulée
    End With
End Sub
patrick
Cliquez pour agrandir...
Bonjour @patricktoulon 😉

👏 👏 👏 👏 👍 👍 Merci infiniment. Tu me sors de la mélasse encore une fois.

Tu es véritable champion. Tu me permets de poursuivre mon petit projet.

Encore merci. bon week-end.
 
Vote positif 0 Vote négatif
Bonjour @Dudu2
ça en fait un ramdamme pour une note de 0 à 20
microsoft nous a fait la grâce d'avoir des events avec des return integer pouvant être interceptés autrement dit des callback pour les textboxs
attendre le exit qui implique plusieurs events si on veux revenir pour corriger est absurde
autant utiliser ce qui est à notre disposition
d'autant plus que l'exit est declenché par la perte de focus soit par enter soi par selection d'un autre control pas très ergonomique tout ça
d'autant plus que la correction après exit autrement dit peut être un retour sur le textbox et un effacement ou modif declenche les events change et autre
tandis que l'annulation du keyascii ou keycode pour l'event keydown annule la touche donc pas taper donc pas de change etc....
aucun event déclenché a part le keyup qui a un keycode 0 puisque qu'il a été annulé au down
pour une fois que microsouuuuft fait quelque chose de bien on va pas s'en priver
 
Dernière édition:
Vote positif 0 Vote négatif
Dudu2 à dit:
Bonjour,

Histoire de poster un truc, un code sur l'évènement _Exit() de la TextBox si c'est dans un UserForm et qu'il y a d'autres contrôles à suivre.
VB: 
Private Sub TxtNote_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dim FormatNote As String
  
    'Bloque la saisie sur la TextBox
    Cancel = True
  
    With TxtNote       
        .Value = Replace(.Value, " ", "")
        .Value = Replace(.Value, ".", ",")
      
        If Not IsNumeric(.Value) Then
            MsgBox "Note non numérique !"
            Exit Sub
        End If
      
        If CDbl(.Value) < 0 Or CDbl(.Value) > 20 Then
            MsgBox "Note hors limites [0-20] !"
            Exit Sub
        End If
      
        Select Case True
            Case InStr(.Value, ",") = 0
                FormatNote = "#0"
              
            Case Len(Mid(.Value, InStr(.Value, ",") + 1)) = 1
                FormatNote = "#0.0"
          
            Case Else
                FormatNote = "#0.00"
        End Select
      
        .Value = Format(.Value, FormatNote)
    End With
  
    'Débloque la saisie de la TextBox
    Cancel = False
End Sub
Cliquez pour agrandir...
Bonjour,

en fait, c'est le dernier contrôle. Mais j'ajoute ton code à ma bibliothèque. On ne sait jamais.

Merci beaucoup.

Bon week-end
 
Vote positif 0 Vote négatif
patricktoulon à dit:
ben c'est 5 je le dit dans les commentaires
Cliquez pour agrandir...
Note.gif

Il y a bien 3 chiffres après la virgule. je veux éviter ce genre d'erreur lorsqu' on tapote le clavier.
 
Vote positif 0 Vote négatif
ha je crois comprendre ton problème
en effet
8.20 ca ne marche pas
08,20 ca marche
alors on ajoute un tout petit correctif qui fonctionnera avec les entier de 1 ou chiffres avec decimale
VB: 
Private Sub TxtNote_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    'que numéric et 1 seule virgule
    With TxtNote
        v = .Text
        If Len(v) >= IIf(Mid(v, 2, 1) = ",", 4, 5) Then KeyAscii = 0 ' 5 = pas plus de 2 décimales (4 pour une seule décimales )
        If Val(v) = 20 Then KeyAscii = 0 'si il y a 20 dans le textbox bye bye!!!
        If KeyAscii = 46 And Not .Value Like "*,*" Then KeyAscii = 44: Exit Sub 'remplace le "." par ","
        If InStr("012345K6789", Chr(KeyAscii)) = 0 Then KeyAscii = 0 ' les touches autre que le pavé de 0 à 9  sont bloquées
        If CDbl(v & Chr(KeyAscii)) > 20 Then KeyAscii = 0 'si la valeur + touche simulée >20 alors touche annulée
     End With
End Sub

autrement dit
tu va de 0,1 à 19,99 ou 20
patrick
 
Vote positif 0 Vote négatif
et on empêche même la possibilité de commencer par le separateur
VB: 
Private Sub TxtNote_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    'que numéric et 1 seule virgule
    With TxtNote
        v = .Text
        If v = "" Then If KeyAscii = 46 Then KeyAscii = 0: Exit Sub' on commence pas par le separateur
        If KeyAscii = 46 And Not .Value Like "*,*" Then KeyAscii = 44: Exit Sub 'remplace le "." par ","
        If Len(v) >= IIf(Mid(v, 2, 1) = ",", 4, 5) Then KeyAscii = 0 ' 5 = pas plus de 2 décimales switch 4/5 caractères  selon ou se trouve le séparateur
        If Val(v) = 20 Then KeyAscii = 0 'si il y a 20 dans le textbox bye bye!!!
        If InStr("012345K6789", Chr(KeyAscii)) = 0 Then KeyAscii = 0 ' les touches autre que le pavé de 0 à 9  sont bloquées
        If CDbl(v & Chr(KeyAscii)) > 20 Then KeyAscii = 0 'si la valeur + touche simulée >20 alors touche annulée
    End With
End Sub
voila aucun autre event declenché
cette fois ci on est bons on a tout
patrick
 
Vote positif 0 Vote négatif
2 formes d’écriture
VB: 
Private Sub TxtNote_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    'que numéric et 1 seule virgule
    Dim V$
    With TxtNote
        V = .Text
        If V = "" Then If KeyAscii = 46 Then KeyAscii = 0: Exit Sub
        If KeyAscii = 46 And Not .Value Like "*,*" Then KeyAscii = 44: Exit Sub 'remplace le "." par ","
        If Len(V) >= IIf(Mid(V, 2, 1) = ",", 4, 5) Then KeyAscii = 0 ' 5 = pas plus de 2 décimales (4 pour une seule décimales )
        If Val(V) = 20 Then KeyAscii = 0 'si il y a 20 dans le textbox bye bye!!!
        If InStr("012345K6789", Chr(KeyAscii)) = 0 Then KeyAscii = 0 ' les touches autre que le pavé de 0 à 9  sont bloquées
        If CDbl(V & Chr(KeyAscii)) > 20 Then KeyAscii = 0 'si la valeur + touche simulée >20 alors touche annulée
    End With
End Sub

avec un select case true
VB: 
Private Sub TxtNote_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    'que numéric et 1 seule virgule
   Dim V$
   With TxtNote
        V = .Text
        Select Case True
            Case V = "" And (KeyAscii = 46 Or KeyAscii = 44): KeyAscii = 0: Exit Sub
            Case KeyAscii = 46 And Not V Like "*,*": KeyAscii = 44: Exit Sub   'remplace le "." par ","
            Case Len(V) >= IIf(Mid(V, 2, 1) = ",", 4, 5): KeyAscii = 0   ' 5 = pas plus de 2 décimales (4 pour une seule décimales )
            Case Val(V) = 20: KeyAscii = 0  'si il y a 20 dans le textbox bye bye!!!
            Case InStr("012345K6789", Chr(KeyAscii)) = 0: KeyAscii = 0  ' les touches autre que le pavé de 0 à 9  sont bloquées
            Case CDbl(V & Chr(KeyAscii)) > 20: KeyAscii = 0  'si la valeur + touche simulée >20 alors touche annulée
        End Select
    End With
End Sub
 
Vote positif 0 Vote négatif
@patricktoulon,
J'aime assez utiliser l'Exit() plutôt que le Change() ou autre évènement car on a à ce moment là la valeur finalement saisie.
Il ne s'agit pas de "revenir" (de loin ?) sur la TextBox. On est dessus, on essaie de la quitter (ici bouton <Enregistrer>) et si c'est pas correct on peut afficher un message d'erreur exact reflétant le problème ce qui ne peut pas être fait au fil de l'eau en Change() ou KeyPress() ou KeyDown() qui n'adresse que des corrections ponctuelles sans visibilité globale.
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Eric C
  • 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
Eric C
T
  • Résolu(e)
XL 2019 Contrôle de saisie d'heures
Réponses
10
Affichages
501
ThierryP
T
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
181
KRUG WOO
K
cathodique
  • Résolu(e)
XL 2010 Masque de saisie textbox Téléphone Public
Réponses
8
Affichages
820
cathodique
cathodique
G
  • Question Question
XL 2016 Substituer virgule dans TextBox
Réponses
12
Affichages
814
Goose
G
E
  • Résolu(e)
Microsoft 365 Decimale dans Userform
2
Réponses
20
Affichages
2 K
eric72
E
herve62
  • Question Question
XL 2010 fonction vlookup réticente ? (vba) [RESOLU]
2 3
Réponses
34
Affichages
3 K
TooFatBoy
TooFatBoy
M
  • Résolu(e)
XL 2016 Saisie unique des chiffres dans le textbox
Réponses
9
Affichages
1 K
melltel
M
cathodique
  • Résolu(e)
XL 2010 Substituer touche point en touche virgule
Réponses
5
Affichages
1 K
cathodique
cathodique
donpopo
  • Résolu(e)
XL 2019 Imposer une virgule au lieu d'un point dans textbox; procédure ne fonctionne pas
2
Réponses
17
Affichages
2 K
patricktoulon
patricktoulon
F
  • Question Question
Microsoft 365 Concaténation et mise en forme de données
Réponses
3
Affichages
620
Fab117
F
A
  • Question Question
XL 2016 Combobox Saisie Date
Réponses
12
Affichages
845
aurelio.ewane
A
R
  • Résolu(e)
XL 2016 Tabulation automatique entre deux textbox dans une feuille de calcul
Réponses
10
Affichages
951
ReneDav14000
R
L
  • Question Question
XL 2016 format numérique textbox VBA
Réponses
5
Affichages
4 K
patricktoulon
patricktoulon
L
  • Question Question
Microsoft 365 Userform : Combobox triée/sans doublons avec saisie intuitive/recherche multimots
Réponses
8
Affichages
3 K
AtTheOne
AtTheOne
V
  • Question Question
XL 2016 [RESOLU] Traduction code VBA (code trouvé sur internet je ne comprend rien)
2
Réponses
17
Affichages
3 K
VBgalère
V
T
  • Résolu(e)
XL 2016 événement Keypress sur textBox userform
Réponses
3
Affichages
2 K
tontonexcel
T
L
  • Question Question
XL 2016 Format Date "##/##/####" dans TextBox
3 4 5
Réponses
60
Affichages
15 K
patricktoulon
patricktoulon
J
  • Résolu(e)
XL 2016 RESOLU Saisie intuitive TextBox vers ListBox
2
Réponses
25
Affichages
4 K
jorge1201
J
Magic_Doctor
  • Question Question
XL 2010 Comparer le nombre de décimales après la virgule d’une série de chiffres
2
Réponses
20
Affichages
3 K
Dranreb
Dranreb
Retour