Macro remplaçant un mot d'une formule

[seb28seb28]

Bonjour,

J'aurai besoin d'un coup de main (n'y connaissant quasiment rien en VB) pour changer la formule suivante en remplaçant la valeur "feuil1" dans la formule par une valeur à saisir :
=SI(D9>0;INDEX('feuil1'!$C$1:$C$311;EQUIV(D9;'feuil1'!$A$1:$A$404;0);1);"")

comment faire ?

J'ai bien trouver le code ci-dessous mais qui ne s'appllique qu'aux valeurs de cellules et non aux formules, est-ce adaptable ?

par avance merci

option Explicit
' Vériland Novembre 2003
Sub Cherche_et_Remplace()
Dim WS As Worksheet
Dim Plage As Range
Dim Recherche As String, Adresse As String, Remplace As String
Dim Ligne As Variant
Dim C As Object
Recherche = InputBox("Chercher ?", "Entrez un mot ou une lettre")
If Recherche = "" Then Exit Sub
Remplace = InputBox("Remplacer par", "Entrez un mot ou une lettre")
If Remplace = "" Then Exit Sub
For Each WS In Worksheets
Ligne = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
'plage à définir
Set Plage = Worksheets(WS.Name).Range("" & "A" & "1:" & "E" & Ligne)
With Plage
Set C = .Find(Recherche)
If Not C Is Nothing Then
Adresse = C.Address
Do
Remplacement C, Recherche, Remplace
Loop While Not C Is Nothing And C.Address <> Adresse
End If
End With

Next WS
End Sub

Sub Remplacement(TteCellule As Range, Chercher As String, Remplace As String)
Dim Cell As Range
For Each Cell In TteCellule.Cells
Cell.Value = Replace(Cell.Value, Chercher, Remplace)
Next
End Sub

 

[Creepy]

Re : Macro remplaçant un mot d'une formule

Hello le Forum, Seb28Seb28,

Plus simple, rapide, éfficace : CTRL+H, qui affiche la fenêtre remplacer et tu mets :
REMPLACER : 'feuil1' PAR : 'feuil2' par exemple, appliquer et voila.

Tu ganges du temps et tu te prends pas la tête avec une macro

@+

Creepy