Etoiles de chaque cote de texte d'une cellule

gwendy46 · 31 Mai 2010

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 · 31 Mai 2010

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

Bonjour,

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

Code:

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

bonne journée
@+

Etoiles de chaque cote de texte d'une cellule

gwendy46

XLDnaute Nouveau

Pierrot93

XLDnaute Barbatruc

Discussions similaires