Etoiles de chaque cote de texte d'une cellule

[gwendy46]

Bonjour à tous

Je cherche un moyen de mettre des etoiles de chaques côtés d'un texte d'une cellule d'une autre feuille de classeur.

J'ai essayé ceci :
Sheets("Feuil2").Cells(ligne, 2) = Sheets("Feuil1").["*"] & Cells(ligne, 1) & "*"

Cela marche si je reste sur la même feuille de classeur mais pas si j'affecte les résultats d'une cellule de classeur sur une autre avec les etoiles.

Je vous remercie d'avance

Excel 2003
windows XP SP3

 

[Pierrot93]

Re : Etoiles de chaque cote de texte d'une cellule

Bonjour,

pas sur d'avoir tout compris, essaye peut être ainsi :

With Sheets("Feuil2").Cells(ligne, 2)
    .Value = "*" & .Value & "*"
End With

bonne journée
@+