Rajouter du Text dans une cellule

J

JHA

XLDnaute Barbatruc

• 4 Juin 2010

• #2

Re : Rajouter du Text dans une cellule

Bonjour

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

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

JHA

 

Vote positif 0 Vote négatif

S

Seb67210

Guest

• 4 Juin 2010

• #3

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 4 Juin 2010

• #4

Re : Rajouter du Text dans une cellule

Bonjour Seb, JHA

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

Code:

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

bon après midi
@+

 

Vote positif 0 Vote négatif

S

Seb67210

Guest

• 4 Juin 2010

• #5

Re : Rajouter du Text dans une cellule

OK je regarde !
Merci bcp

 

Vote positif 0 Vote négatif

S

Seb67210

Guest

• 4 Juin 2010

• #6

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

 

Vote positif 0 Vote négatif

excalibur

XLDnaute Impliqué

• 4 Juin 2010

• #7

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

 

Vote positif 0 Vote négatif

S

Seb67210

Guest

• 4 Juin 2010

• #8

Re : Rajouter du Text dans une cellule

Merci c'est parfait !

Merci à toi

 

Vote positif 0 Vote négatif