Effacer le dernier caractere d'une cellule

Résolu
dhartex Messages postés 7 Date d'inscription mardi 21 décembre 2004 Statut Membre Dernière intervention 22 juillet 2005 - 21 juil. 2005 à 17:08
dhartex Messages postés 7 Date d'inscription mardi 21 décembre 2004 Statut Membre Dernière intervention 22 juillet 2005 - 22 juil. 2005 à 09:35
Bonjour,
j'aimerai automatiser la suppression des trois derniers caracteres d'une cellule.
Malheureusement, je ne connais pas de commande qui me permette de garder le reste de la cellule.
Voili voilou

Merci d'avance

DharTeX

3 réponses

cs_Jack Messages postés 14007 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 78
21 juil. 2005 à 17:36
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
3
jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 27
22 juil. 2005 à 01:24
Bonsoir,



Dim Mavaleur

Mavaleur = Range("A1").Value

Mavaleur = Left(Mavaleur, Len(Mavaleur) - 3)

Range("A1") = Mavaleur

End Sub



jpleroisse
3
dhartex Messages postés 7 Date d'inscription mardi 21 décembre 2004 Statut Membre Dernière intervention 22 juillet 2005
22 juil. 2005 à 09:35
Merci beaucoup

DharTeX
0
Rejoignez-nous