Rajouter du Text dans une cellule

[Seb67210]

Bonjour à tous !

Je souhaiterais savoir comment rajouter un text dans une cellule.
Exemple:

Cellule B1 contient " Toto " et via une macro j'aimerais obtenir (* Toto *)
Tout ceci pour les cellules B20 à B5000...

B20 Toto -> apres macro -> (* Toto *)
B21 Tata -> apres macro -> (* Tata *)

etc....

Merci d'avance

 

[JHA]

Re : Rajouter du Text dans une cellule

Bonjour

sans macro en "B1" avec donnée en "A1",

="* "&A1&" *"
A recopier vers le bas

JHA

 

[Seb67210]

Re : Rajouter du Text dans une cellule

OK merci ! mais ce sont des macros qui remplissent ces lignes...
Une macro serait plus adaptée svp

 

[Pierrot93]

Re : Rajouter du Text dans une cellule

Bonjour Seb, JHA

regarde le code ci-dessous si il peut t'aider :

Range("B20").Value = "(* " & Range("B20").Value & " *)"

bon après midi
@+

 

[Seb67210]

Re : Rajouter du Text dans une cellule

OK je regarde !
Merci bcp

 

[Seb67210]

Re : Rajouter du Text dans une cellule

Est il possible d'adapter ce code afin d'obtenir la scrutation de B20 à B5000 svp ?

Range("B20").Value = "(* " & Range("B20").Value & " *)"
Range("B21").Value = "(* " & Range("B20").Value & " *)"

etc

Merci d'avance

 

[excalibur]

Re : Rajouter du Text dans une cellule

bonjour tous une macro

Sub test()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("b20:b5000")
If c <> "" Then c = "* " & c & " *"
Next
End Sub

 

[Seb67210]

Re : Rajouter du Text dans une cellule

Merci c'est parfait !

Merci à toi