Effacer le dernier caractere d'une cellule

Résolu
Messages postés
7
Date d'inscription
mardi 21 décembre 2004
Statut
Membre
Dernière intervention
22 juillet 2005
-
Messages postés
7
Date d'inscription
mardi 21 décembre 2004
Statut
Membre
Dernière intervention
22 juillet 2005
-
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

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
81
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
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
Bonsoir,



Dim Mavaleur

Mavaleur = Range("A1").Value

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

Range("A1") = Mavaleur

End Sub



jpleroisse
Messages postés
7
Date d'inscription
mardi 21 décembre 2004
Statut
Membre
Dernière intervention
22 juillet 2005

Merci beaucoup

DharTeX