macro pour ajouter un caractere

Bonsoir,
Quelque chose comme ça à mettre dans le code de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B5:B4123")) Is Nothing Then Exit Sub
If Target <> "" And Mid$(Target, 1, 1) <> "!" Then Target = "!" & Target
End Sub

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/

"gabriel blazquez" <spamrecycler@killspam.com> a écrit dans le message de
news: eMXJQ4kzEHA.748@TK2MSFTNGP14.phx.gbl...

Bonjour,
Pour formater une liste de valeur j'ai besoin d'ajouter
un point d'exclamation en debut de cellule par exemple transformer la
cellule qui contient ixam.net en !ixam.net

cpmment faire ca sur la plage :
B5:B4123 ??

Merci pour votre aide

bonjour gabriel,

sur une colonne avoisinante met la formule
="!"&B5
recopie vers le bas, fait un copier, collage Spécial, valeur, de ses résultats sur la plage B5:B4123

isabelle

Bonjour,
Pour formater une liste de valeur j'ai besoin d'ajouter
un point d'exclamation en debut de cellule par exemple transformer la
cellule qui contient ixam.net en !ixam.net

cpmment faire ca sur la plage :
B5:B4123 ??

Merci pour votre aide

Bonour,

en C5 tu écris ="!"&B5 puis tu copies la formule de C5 de C6 jusuq'à C4123

Bonjour,
Pour formater une liste de valeur j'ai besoin d'ajouter
un point d'exclamation en debut de cellule par exemple transformer la
cellule qui contient ixam.net en !ixam.net

cpmment faire ca sur la plage :
B5:B4123 ??

Merci pour votre aide

Bosoir Gabriel

Ou encore:

For Each c In Range("B5:B4123")
If Left(c.Value, 1) <> "!" And c.Value <> "" Then c.Value = "!" & c
Next

Salutations
JJ

"gabriel blazquez" <spamrecycler@killspam.com> a écrit dans le message de
news:eMXJQ4kzEHA.748@TK2MSFTNGP14.phx.gbl...

Bonjour,
Pour formater une liste de valeur j'ai besoin d'ajouter
un point d'exclamation en debut de cellule par exemple transformer la
cellule qui contient ixam.net en !ixam.net

cpmment faire ca sur la plage :
B5:B4123 ??

Merci pour votre aide

gabriel blazquez wrote:

Bonjour,
Pour formater une liste de valeur j'ai besoin d'ajouter
un point d'exclamation en debut de cellule par exemple transformer la
cellule qui contient ixam.net en !ixam.net

cpmment faire ca sur la plage :
B5:B4123 ??

Merci pour votre aide

Merci a vous les gourous excel ca marche tip top :-)

Court et rapide (sans boucle)

[B5:B4123] = ["!"&B5:B4123]

AV

PFFF
Je vais me coucher...
;o))
JJ

"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de
news:%23E8dM3lzEHA.1860@TK2MSFTNGP15.phx.gbl...

Court et rapide (sans boucle)

[B5:B4123] = ["!"&B5:B4123]

AV