Effacer le dernier caractere d'une cellule

Réponse acceptée !
Salut
Je ne sais plus comment lire/écrire dans une cellule, mais si xxx est le texte de ta cellule :
xxx = Left(xxx, Len(xxx) - 3)
Tu ne garderas que les caractères de gauche.
Attention aux cellules qui comporteraient moins de 3 caractères ...

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)
(je

Réponse acceptée !
Bonsoir,

Dim Mavaleur
Mavaleur = Range("A1").Value
Mavaleur = Left(Mavaleur, Len(Mavaleur) - 3)
Range("A1") = Mavaleur
End Sub

jpleroisse