Effacer le dernier caractere d'une cellule [Résolu]

Signaler
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
73
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
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 195 internautes nous ont dit merci ce mois-ci

Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
25
Bonsoir,



Dim Mavaleur

Mavaleur = Range("A1").Value

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

Range("A1") = Mavaleur

End Sub



jpleroisse
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 195 internautes nous ont dit merci ce mois-ci

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

Merci beaucoup

DharTeX