supprimer 3 dernier caratere d'une cellule

[Guigui]

hello tous le monde,

j'ai dans plusieur cellule, une liste de nom avec defois -AC à la fin :
toto
tata-ac
titi-ac
tutu
lilo-ac

je voudrais une recherche. stop sur un nom qui a '-ac' et le remplacer par le nom mais sans '-ac' !!!....

dim n as integer

for n = 1 to 20
if right(activecell.offset(n,1),3) then
msgbox('-ac trouvé')
end if
next n

ca c'est fait ! mais pour supprimer le '-ac'... je trouve pas ...

merci d'avance pour votre aide.
A+
Guillaume

 

[AV]

aVE?

Sélection > Edition > Remplacer ''-AC'' par rien

AV [aaa]

 

[ballmaster]

Tu peux taper la formule suivante
Tes données sont dans la colonne A

=SI(DROITE(A1;3)='-AC';GAUCHE(A1;NBCAR(A1)-3);A1)

Ca marche chez moi

A+

 

[Tibo]

Salut,

Dans le même ordre d'idée, mais sans test et plus court :

=SUBSTITUE(A1;'-AC';'')

la fonction SUBSTITUE ne renvoie pas de message d'erreur si elle ne trouve pas la chaîne à remplacer.

Bonne soirée

@+

Edition :

Pour affiner la formule proposée :

Dans le cas où les caractères -AC se trouveraient également en début de chaîne :

=SUBSTITUE(A1&'µ';'-ACµ';'')

Voilou

Re bonne soirée

Message édité par: tibo, à: 08/06/2006 19:02


Re édition :

Merci André,

Je n'avais pas suffisament testé. Mea culpa

Tiens, pour le peine, je vais m'en jeter une derrière la cravate en pensant à toi.

Bonne soirée

Message édité par: tibo, à: 08/06/2006 19:30

 

[andré]

Salut Tibo,

Ton astuce du µ est bonne, mais s'il n'y a pas de -AC en fin de chaîne, elle renvoie la chaîne avec un µ.

Pour affiner encore un peu plus, au cas où il y aurait un 'malencontreux' espace à la fin de la chaîne :

=SUBSTITUE(SUBSTITUE(SUPPRESPACE(A1)&'µ';'-ACµ';'');'µ';'')

Â+

Message édité par: andré, à: 08/06/2006 19:21

 

[guigui]

hello a tous,

Merci beaucoup à tous....

je le voulais en VBA ...mais grace à vos exemple, j'ai pu trouver la bonne syntaxe
>> REPLACE('-ac','')

Merci encore
A+
Guillaume