[Excel] Macro : Remplacer des valeurs de cell
Blourte
-
Blourte -
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 :
Merci d'avance pour votre aide !
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 !
A voir également:
- Vba remplacer une valeur par une autre dans une colonne
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Convertir chiffre en lettre excel sans macro ✓ - Forum Excel
2 réponses
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
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