Discussion :

[Zeltron59]

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

[Philippe Tulliez]

Bonjour,
Une solution parmi d'autres en utilisant la fonction Len imbriquée dans Left

Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub t()
  Dim Text As String
  Text = "Coucou"
  Text = Left(Text, Len(Text) - 1)
  MsgBox Text
End Sub

[Zeltron59]

Bonjour Philippe et merci
Effectivement en continuant de chercher, j'ai trouvé la solution
bon Week end