rajouter des "*" avec une macro dans excel

Bonjour,
Je bataille depuis quelques semaines pour pouvoir à l'aide d'une macro mettre des "*" avant et après une liste de chiffre.ex: ab123456 donnerai *ab123456*.
J'ai bien réussi avec la fonction remplacer pour mettre un "*" avant mais pour le mettre aprés impossible.
Si une âme charitable pouvait m'aider. Merci

Bonjour,

Sans macro mais avec une formule, ça convient ?
En A1 j'ai ab123456.
En B1 :
="*"&A1&"*"
et on obtient *ab123456*.
Ensuite si besoin faire un copier/collage spécial de la valeur effacer la formule et ne garder que le résultat.

A+

bonjour
Essais ceci
Sub Macro1()
range("A:A").Select
For Each cell In Selection

ActiveCell.Value = "*" & ActiveCell.Value & "*"
ActiveCell.Offset(1, 0).Select
Next cell
End Sub
http://bvrve.club.fr/Astuces_Michel/excelvba.html
bonne journée

Merci pour le coup de mains les deux methodes fonctionnent bien. Merci qmike pour le lien où je vais pouvoir me perfectionner. Existe t-il une fonction qui ne ferait fonctionner cette macro que si il y a uniquement ab123456 et ignorerait les cases vides ou les cellules déja modifiées. Merci encore les gars...

Bonjour,

Essaye ceci :

-----------------
Sub Macro1()
Range("A:A").Select
For Each cell In Selection
If ActiveCell = "ab123456" Then ActiveCell = "*" & ActiveCell & "*"
ActiveCell.Offset(1, 0).Select
Next
End Sub
-----------------

Si la case est vide elle n'est pas égale à ab123456 donc elle ne sera pas modifiée, idem pour une cellule déjà modifiée. Si la cellule vaut ab123456 elle devient *ab123456* mais au deuxième passage la macro n'y touche pas car elle n'est plus égale à ab123456.

A+