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 :
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
Merci beaucoup,
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 SubMais 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 SubMerci beaucoup,
Dernière édition: