Microsoft 365 Supprimer dernier caractère dans un label

[Electron24]

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

 

[sylvanu]

Bonjour Electron,
Un petit fichier test eût été le bienvenu.
Un essai en PJ avec :

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

 

[Electron24]

Bonjour sylvanu

Super c'est exactement ce que je recherche un immense merci et bon week end

 

[sylvanu]

Re,
Pour les futurs lecteurs la solution est en post 2 et non 3. 🙂

 

[Electron24]

Oups mauvaise vue de ma part🥸

 

[Eric C]

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]

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.