Bonjour le Forum,
Voici le souci qui me gêne depuis quelques temps.
Dans un formulaire, j'ai une zone de texte (Label) nommée Txt_Montant .
Je souhaiterai via un bouton nommé "Correction", pouvoir supprimer le dernier caractère. Comme le fait la touche "Retour Arrière" d'un clavier.
Merci d'avance de votre aide.
Cordialement
Bonjour Electron,
Un petit fichier test eût été le bienvenu.
Un essai en PJ avec :
VB:
Private Sub CommandButton1_Click()
Txt_Montant = Left(Txt_Montant, Len(Txt_Montant) - 1)
' Suppression espace si présent à la fin
If Right(Txt_Montant, 1) = " " Then Txt_Montant = Left(Txt_Montant, Len(Txt_Montant) - 1)
End Sub
Bonjour Electron,
Un petit fichier test eût été le bienvenu.
Un essai en PJ avec :
VB:
Private Sub CommandButton1_Click()
Txt_Montant = Left(Txt_Montant, Len(Txt_Montant) - 1)
' Suppression espace si présent à la fin
If Right(Txt_Montant, 1) = " " Then Txt_Montant = Left(Txt_Montant, Len(Txt_Montant) - 1)
End Sub
@Sylvain : Par curiosité : on peut se passer de la dernière ligne de code ? La première ligne retire un caractère (dont les apostrophes). Pourquoi sa présence (il doit forcément y avoir une raison mais qui m'échappe). Merci à toi
Bonne fin de soirée à toutes & à tous
@+ Eric c
Bonsoir Eric,
Juste par expérience, sans cette ligne le dernier caractère peut être un espace donc un caractère.
Il faut donc un appui supplémentaire pour supprimer cet espace, j'ai trouvé plus convivial de supprimer l'espace final, chaque appui supprimer dans un caractère "visible".
Mais effectivement sans cette ligne ça marche tout autant.