Microsoft 365 Supprimer dernier caractère dans un label

Electron24

XLDnaute Occasionnel
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
 
Solution
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

sylvanu

XLDnaute Barbatruc
Supporter XLD
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
 

Pièces jointes

  • Classeur4.xlsm
    14.3 KB · Affichages: 4

Eric C

XLDnaute Accro
Bonsoir le forum
Bonsoir Electron, sylvanu

@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
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
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.
 

Discussions similaires

Statistiques des forums

Discussions
299 706
Messages
1 978 624
Membres
206 311
dernier inscrit
koumb