Formater une cellule texte

bonjour Jacques,

par exemple pour modifier le format des cellule A1:A10

Sub Format_Espace()
For i = 1 To 10
For ii = 1 To Len(Range("A" & i))
X = X & Mid(Range("A" & i), ii, 1) & " "
Next
Range("A" & i) = Left(X, Len(X) - 1)
X = ""
Next
End Sub

isabelle

Bonjour,

Comment insérer une espace entre chaque lettre d'un mot dans une cellule. ?

ABCD --> A B C D

Merci de vos réponses


Jacques

Le Québec te remercie Isabelle :-)

Jacques


"isabelle" <i@v> a écrit dans le message de
news:OqaBomSiIHA.4536@TK2MSFTNGP06.phx.gbl...

bonjour Jacques,

par exemple pour modifier le format des cellule A1:A10

Sub Format_Espace()
For i = 1 To 10
For ii = 1 To Len(Range("A" & i))
X = X & Mid(Range("A" & i), ii, 1) & " "
Next
Range("A" & i) = Left(X, Len(X) - 1)
X = ""
Next
End Sub

isabelle

Bonjour,

Comment insérer une espace entre chaque lettre d'un mot dans une
cellule. ?

ABCD --> A B C D

Merci de vos réponses


Jacques

Bonsoir,
Puisque je l'ai faite :

Sub ajespace()
zz = ActiveCell.Value
For i = Len(zz) To 1 Step -1
If Left(zz, i) <> Chr(32) Then _
zz = Replace(zz, Left(zz, i), _
Left(zz, i) & Chr(32))
Next i
ActiveCell.Value = zz
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Jacques" <jac_be@hotmail.com> a écrit dans le message de
news:uiVQKISiIHA.4344@TK2MSFTNGP03.phx.gbl...

Bonjour,

Comment insérer une espace entre chaque lettre d'un mot dans une cellule.
?

ABCD --> A B C D

Merci de vos réponses


Jacques

Bonsour® Jacques avec ferveur ;o))) vous nous disiez :

comme j'arrive encore à la fumée des cierges ;o)))

une petite macro supplementaires qui reprend les avantages de chacune des
solutions proposées
et qui s'applique quelque soit la selection effectuée (simple ou multiple)
et tient compte d'éventuelles cellules vides

Sub Ajout_Espace()
Dim Z As Integer
Dim X As String
For Each cellule In Selection
If cellule > " " Then
For Z = 1 To Len(cellule)
X = X & Mid(cellule, Z, 1) & " "
Next
cellule.Value = Left(X, Len(X) - 1)
X = ""
End If
Next
End Sub



--
--
@+
;o)))

Bonjour,

Et aussi :

Sub Insérer_Espaces()
For Each m In Selection
For i = 1 To Len(m)
nm = nm & Mid(m, i, 1) & " "
Next i
m.Value = RTrim(nm)
nm = ""
Next m
End Sub

Je vous le jure, je n'avais pas vu la macro de Modeste ;-)

Serge


"Modeste" <nomail@nomail.net> a écrit dans le message de news: eHQGCbTiIHA.4076@TK2MSFTNGP05.phx.gbl...

Bonsour® Jacques avec ferveur ;o))) vous nous disiez :

comme j'arrive encore à la fumée des cierges ;o)))

une petite macro supplementaires qui reprend les avantages de chacune des solutions proposées
et qui s'applique quelque soit la selection effectuée (simple ou multiple)
et tient compte d'éventuelles cellules vides

Sub Ajout_Espace()
Dim Z As Integer
Dim X As String
For Each cellule In Selection
If cellule > " " Then
For Z = 1 To Len(cellule)
X = X & Mid(cellule, Z, 1) & " "
Next
cellule.Value = Left(X, Len(X) - 1)
X = ""
End If
Next
End Sub



--
--
@+
;o)))

Bonsour® Tatanka avec ferveur ;o))) vous nous disiez :

Je vous le jure, je n'avais pas vu la macro de Modeste ;-)

Même pas vrai !!!!
moi j'avais déja bricolé de façon trés Abile Monseigneur, celle d'Isa Bellocchi
;o)))


--
--
@+
;o)))

Mmh ?
Je reviens de matines pour qu'on bricole, en me citant !?!
Modeste, vous allumerez 3 cierges !
--
News://news.microsoft.com/microsoft.public.fr.excel
Allez en paix
T.Abile
"Modeste" <nomail@nomail.net> a écrit dans le message de
news:%23enbnpUiIHA.5780@TK2MSFTNGP06.phx.gbl...

Bonsour® Tatanka avec ferveur ;o))) vous nous disiez :

Je vous le jure, je n'avais pas vu la macro de Modeste ;-)

Même pas vrai !!!!
moi j'avais déja bricolé de façon trés Abile Monseigneur, celle d'Isa
Bellocchi ;o)))


--
--
@+
;o)))