Remplacer un caractère par une valeur en macro

[klorane]

Bonsoir le forum,

quelqu un saurait il comment avec l'aide d 'une macro remplacé un caractère dans une cellule par une valeur contenue dans une autre cellule.

J'ai par exemple: (en Feuil4)

- une cellule A2 qui contient : "Bonjour @ ceci est un test"
- Une cellule B2 qui contient : "Laurent"
-> et C2 serait le résultat de la transformation

Quand je clique sur un bouton macro il faudrait que "@" se transforme par : Laurent

Se qui donnerait en C2 après passage macro "Bonjour Laurent ceci est un test"

Merci

Klorane.

 

[R@chid]

Re : Remplacer un caractère par une valeur en macro

Bonsoir,
Une formule fera bien l'affaire,

=SUBSTITUE(A2;"@";B2)

@ + +

 

[Dranreb]

Re : Remplacer un caractère par une valeur en macro

Bonsoir.
En VBA ça peut donner :

Feuil4.[A2].Value = Replace(Feuil4.[A2].Value, "@", Feuil4.[B2].Value

 

[klorane]

Re : Remplacer un caractère par une valeur en macro

Merci Rachid,

mais je suis plus macro. Car quand je veux modifier les valeurs de place , ajouter des choses derriere c'est beaucoup plus facile de le faire.

Par exemple demain je peux ajouter un remplacement supplémentaire # \ /* ~ ....

Je suis pas un fan de la formule car quand les cellules sont vides ont ne sait plus trop ou elles sont. Il m arrive d avoir des tableaux que je n utilisent pas pendant 2 à 3 mois.
Une macro tu là lis et tu retrouve le fonctionnement de ta feuille.
Avec les formules il faut commencer à les retrouver dans les feuilles. Si en plus des feuilles sont liées les unes aux autres ça devient vite un sac de noeuds.

Mais merci de ton passage.

En gros la même formule en macro ça donne quoi ^^

Klorane

 

[klorane]

Re : Remplacer un caractère par une valeur en macro

Bonsoir Dranred,

j'ai testé la macro et j'ai un retour d erreur.

J'ai trouvé l'erreur :

J'ai rajouté une parenthèse à la fin.

et il fallait mettre Sheets("Feuil4")......

Merci pour l'aide apportée.


Klorane

 

[Dranreb]

Re : Remplacer un caractère par une valeur en macro

Remplacer Feuil4 par le nom de l'objet Worksheet correspondant à la feuille dont le nom est pour Excel "Feuil4"