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

- - Dernière réponse :  Blourte - 11 août 2009 à 11:29
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 !
Afficher la suite 

2 réponses

Meilleure réponse
Messages postés
12247
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
19 juillet 2019
2126
3
Merci
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

Dire « Merci » 3

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

CCM 58666 internautes nous ont dit merci ce mois-ci

0
Merci
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)