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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour