Enlever les quatres derniers caracteres

[Celeda]

Bonjour tout le monde,

Je dois enlever systematiquement les quatre derniers caracteres (toujours les memes), d'une liste d'articles extraite d'un fichier :
exemple : Toto.xxxx, Titinexxxx, Bonbonsxxxx, ect....

J'ai essayé avec ''substitute'', cela ne marche pas avec les derniers mais avec les premiers caracteres (à moins que je m'y prenne mal)
=SUBSTITUTE(F2,"xxxx","")
Je ne peux me servir de Left parce que je n'ai jamais le même nombre de caracteres dans l'article.
Quelle est, SVP, la fonction qui enleve ce genre de choses.
Je m'excuse si ma question est puerile mais je seche dessus cette manip.

Merci.

 

[David]

Bonjour,

Je ne sais pas si il y a mieux, mais comme cela ça marche :

=GAUCHE(A1;NBCAR(A1)-4)

A+

David

 

[Fred]

Slt, c'est avec une formule ou en VBA que tu desire faire ca ?

si c'est en VBA voici une ebauche:

Sub test()
Dim AnyString, MyStr, LoStr
AnyString = ActiveCell
LoStr = Len(AnyString)
MyStr = Left(AnyString, LoStr - 4)
ActiveCell = MyStr
End Sub

par formule tu peux utiliser celle de David qui fonctionne très bien aussi

 

[Celeda]

Super, David et Fred ! Les deux fonctionnent.
Merci beaucoup