Remplacer mots dans une chaîne de caractère

Bonjour !

Dans ma colonne B, j'ai des phrases contenant le mot "arbre" par exemple :

Cet arbre est vert

Justine fait de la balançoire dans un arbre de son jardin

J'aimerai remplacer tout les mots qu'il y a avant "arbre" par un point pour obtenir:

.arbre est vert

.arbre de son jardin

Je sais qu'il faut la fonction remplace() mais je ne sais pas l'utiliser.

Merci pour votre aide

Salut,

je suis pas un pro des formules, donc il y a peut-être plus simple; moi, avec une version anglaise, je fais ça de la façon suivante :

="."&MID(A1;FIND("arbre";A1;1);LEN(A1)-FIND("arbre";A1;1)+1)
arbre

Bonjour Clem

en en français ...

="."&STXT(A1;CHERCHE("arbre";A1);NBCAR(A1)-CHERCHE("arbre";A1)+1)

la même chose que Game Over que je salue !

Salut à toi, grand chef :

bon, tu me rassures; je vois que je suis pas si naze que ça avec les formules, finalement.

(Mais je suis toujours pas foutu de faire un someproduit )

Merci à vous

Par contre, si on met la formule dans une macro, cela ne fonctionne pas ?

Tu peux faire ça comme ça, par exemple :

sélectionne la cellule de référence et lance ta macro

Sub test()
    MsgBox "." & Mid(ActiveCell, InStr(ActiveCell, "arbre"))
End Sub

le code est à adapter à tes besoins, bien sur.

Merci à vous

Par contre, si on met la formule dans une macro, cela ne fonctionne pas ?

ou alors

cel.formulalocal = "="".""&STXT(A1;CHERCHE(""arbre"";A1);NBCAR(A1)-CHERCHE(""arbre"";A1)+1)"

cel étant la cellule définie dans ta macro

(Mais je suis toujours pas foutu de faire un someproduit )

T'inquiète, je ne sais toujours pas faire de NB.SI.ENS !

A vrai dire, je suis récalcitrant ...

Tu peux faire ça comme ça, par exemple :

sélectionne la cellule de référence et lance ta macro

Sub test()
    MsgBox "." & Mid(ActiveCell, InStr(ActiveCell, "arbre"))
End Sub

le code est à adapter à tes besoins, bien sur.

J'ai voulu remplacer ActiveCell par A1 mais cela ne fonctionne pas :

Sub test()
    MsgBox "." & Mid("A1", InStr("A1", "arbre"))
End Sub

@Steelson

T'inquiète, je ne sais toujours pas faire de NB.SI.ENS !

A vrai dire, je suis récalcitrant ...

c'est quoi NB.SI.ENS ?

c'est pareil, je suis récalcitrant à mettre les mains de le cambouis, s'agissant des formules

@Clem7640

J'ai voulu remplacer ActiveCell par A1 mais cela ne fonctionne pas :

comment tu as fais ton remplacement ?

essaye ça :

Sub test()
    MsgBox "." & Mid([A1], InStr([A1], "arbre"))
End Sub
Rechercher des sujets similaires à "remplacer mots chaine caractere"