Remplacer par un "="

Bonjour à tous,

Débutant en macro excel, je ne comprends pas pourquoi je ne parviens pas à remplacer le début d'une cellule par un "=".

Exemple :
J'ai une cellule A1 = "recherchev(...)".
Je souhaite passer par une macro pour ajouter un "=" devant le recherchev et transformer la cellule en une fonction qui va bien.
Le code suivant ne donne rien :
Range("A1").Replace "recherchev", "=recherchev"

Est-ce impossible de transformer cette cellule en une formule via cette macro?

Merci par avance pour votre aide.

Code:

---

Range("B1").FormulaLocal = "=" & Range("B1").Value

---

Merci mercatog, ça fonctionne très bien !

En fait, ça marche très bien pour une seule cellule.
Comment faire si j'ai plusieurs cellules avec "recherchev(...)" que je voudrais transformer en "=recherchev(...)" via une macro ?
Merci par avance.

Code:

---

1 2 3 4 5

dim c as range   for each c in range("B2:B100") c.formulalocal="="&c.value next c

---

Citation:

---

Envoyé par mercatog

Code:

---

1 2 3 4 5

dim c as range   for each c in range("B2:B100") c.formulalocal="="&c.value next c

---

---

Merci Mercatog pour ta réactivité.

Maleureusement, cette macro me retourne une erreur d'exécution '1004' : Erreur définie par l'application ou par l'objet.
:roll:

Je m'y prends (encore) mal?

J'allais te le dire dès le début, mais te laissant l'affront avec cette erreur.

Quand la cellule contient le texte d'une formule non valable, tu as un problème

Exemple si tu as le texte suivant dans une cellule: machin, automatiquement tu auras l'erreur apparue dans ton message. car excel nom va pas comprendre la formule =machin

Tu travailles avec le feu et je ne sais le but de cet exercice

Bonjour à tous.
mercatog, en fait j'ai pas mal de cellules qui contiennent volontairement des =RechercheV(") écrits "pppppRechercheV".
(Cela me permet de copier coller ces formules un peu de partout en changeant seulement le nom du fichier source).

Bref, toutes ces RechercheV pointent bien vers des sources qui existent. Si je fais un Ctrl+H "ppppp" par "=", toutes mes cellules ont des données.

Donc, mon besoin était, à l'aide une macro, de remplacer les "ppppp" par "=" afin que mes cellules soient mises à jour avec mes sources.

Je parviens facilement à virer les "ppppp" mais pas à les remplacer par des "=".
Par exemple, une macro comme ceci ne donne rien :

Code:

---

1 2 3 4

Range("P7:FO520").Select Selection.Replace What:="ppppp", Replacement:="=", LookAt:= _ xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False

---

Voilà, voilà, j'espère avoir été assez clair.

Bonjour
Mets ton code suite à la proposition #5

Sur ta plage, est ce que tu as des cellules vides ou contenant autre chose que le texte de tes formules?

A toi d'adapter ce qu'il faut en conséquence

Bonjour,

Mobilyeah006 je ne comprends pas ce que tu veux faire je te propose donc de poster ton code. En revanche je peux te dire que l'histoire des "pppp" ça fait "grosse bidouille"...

Bonjour,

Finalement, je fais la vieille technique du CTRL+H plutôt que de passer par une macro.
Ça me prend 5 secondes. Le reste de la macro fonctionne et ça me suffit amplement.
Merci pour votre temps passé à m'aider.
Bonne journée.