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

bluesky12000

XLDnaute Junior
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 :

VB:
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 😅

VB:
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,
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 910
Membres
101 837
dernier inscrit
Ugo