[Excel] Macro : Remplacer des valeurs de cell [Fermé]

Signaler
-
 Blourte -
Bonjour,

Je vous sollicite car j'ai un pb :

Dans une de mes macros, une partie a une fonction précise : Elle doit

- Selectionner un champ de cellules
- Rechercher une certaine valeur ( ie la valeur de la case A46 )
- Remplacer à chaque fois cette valeur par une autre ( ie la valeur de la case B46)

Le problème, c'est que je n'arrive pas à poser cette fonction avec des valeurs variables ( que sont les valeurs de cases A46 et B46 ) .

Voici mon code, qui ne fonctionne pas :

    Range("C9:H25").Select
    Selection.Replace What:="Cells(A46).Value", Replacement:="Cells(B46).Value", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False



Merci d'avance pour votre aide !

2 réponses

Messages postés
12235
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
6 janvier 2021
2 558
Salut,
Il te faut passer par des variables comme ceci :

Dim val1 As String, val2 As String
val1 = ActiveSheet.Range("A46").Value
val2 = ActiveSheet.Range("B46").Value
Range("C9:H25").Select
Selection.Replace What:=val1, Replacement:=val2, LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
4
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 63550 internautes nous ont dit merci ce mois-ci

Thanks a lot !

J'avais essayé qlq chose de ce genre, mais sans succès. Sans doute parce que j'avais mal déclaré mes variables x)