Compter les caractères dans un champ à messure qu'on tapeFermé

Question

Bonjour, 
Je voudrais compter le nombre des caractères dans un champ à mesure qu'on tape le texte pour ne pas dépasser un certain nombre sans en arriver à buter contre la limite spécifiée par les formats de la table.
Je bloque sur une impossibilité que je n'arrive pas à lever. En effet, je connais bien la fonction "Len(Screen.ActiveControl)"   mais le problème est qu'elle ne compte pas les caractères à mesure qu'on les tape, mais indique le Nbre des caractères au  moment où le pointeur a été entré sur le contrôle; ce qui fait que la fonction ne compte pas du tout les caractères tapés, mais ceux qu étaient déjà tapés quand le pointeur est entré dans le contrôle.
En espérant avoir été clair dans mes explications, je vous remercie de vos réponses.


Configuration: Windows / Firefox 99.0

yg_be · Answer

bonjour,
s'agit-il d'un contrôle dans un formulaire?
peux-tu montrer ton code?

Tessel75 · Answer

Bonjour et Merci pour ta réponse.
Mon code est très simple.

 Sub CITATION_KeyUp(KeyCode As Integer, Shift As Integer)        
        NbCr = 256 - Len(Screen.ActiveControl)
    If NbCr > 0 And NbCr < 5 Then
            MsgBox "Vous allez dépasser la limite des Notes courtes." _
                & Chr(13) & "Il vous reste " & NbCr & " caractères avant d'atteindre les 255."     'vbExclamation + vbOKOnly, ""
    End If
    
End Sub

Tessel75 · Answer

Désolé mais je sais pas marquer les balises; je n'ai appris le VBA qu'en autodidacte càd en convertissant les macros avec l'automatisme de Access, et après de proche en proche vers des enchainements plus compliqués.
Pour autant je teste ta solution avec "Change"   plutôt que "KeyUp(KeyCode As Integer, Shift As Integer) "

Compter les caractères dans un champ à messure qu'on tape

3 réponses

Discussions similaires

Newsletters