XL 2019 Remplacer la valeur d'une cellule par une formule si la cellule est égale à une autre

[bluesky12000]

Bonjour à tous,

Comme le titre l'indique je souhaite remplacer la valeur de toutes les cellules dans une colonne par exemple E15:E200 qui ont une valeur identique à E11 par la formule =$E$11

L'enregistreur de macro me donne ce code :

Sub Macro()
    Range("E15:E200").Select
    Selection.Replace What:="50", Replacement:="=E$11", LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
End Sub

Mais si je remplace "50" par $E$11 (qui à la valeur 50) cela ne fonctionne pas.

Edit : j'ai trouvé en recherchant sur le forum

Sub Regrouper()
  'Regrouper les opérations
  Dim MaCell As Range
  For Each MaCell In [E15:E200]
    If MaCell = [E11] Then MaCell = "=$E$11"
  Next MaCell
End Sub

Merci beaucoup,

 

[tbft]

Bonsoir

cela serait plus facile avec un fichier.
Mais bon, je propose une poste.
Pour affecter une formule, il ne faut pas agir sur la propriété value mais sur formulalocal ou formula...

 

[tbft]

Bonjour

Pouvez-vous me dire si vous avez pu avancer, svp ?