XL 2010 Insérer espace via fonction

[cathodique]

Bonjour,

Ayant des prénoms en colonne A, je voudrai en colonne B, via une fonction insérer un espace entre chaque lettre.
ex: Albert ------> A l b e r t

Avec mes remerciements.

Bon week-end.

edit: Merci j'ai trouvé ce qu'il me faut

Function ajoutespace(txt As String) As String
 ajoutespace = Trim(Replace(StrConv(txt, vbUnicode), ChrW(0), " "))
End Function

 

[mapomme]

Bonsoir à tous,

Allez une autre pour la route :

Function Espacer$(a$)
Dim x, i&
   x = Left(a, 1): For i = 2 To Len(a):  x = x & " " & Mid(a, i, 1): Next: Espacer = x
End Function

 

[cathodique]

re
ça m’entraîne à garder la forme de mes neuronnes des petit exercices comme ça
même si c'est un veauen terme de rapidité, la solution de @juvaxe est intéressante avec le jeu du len a reculons
ça mérité un j'aime quand même

Je suis impardonnable. J'avoue que depuis un moment je réponds à mails. Et dès que j'ai une notification, je fais un test rapide rapide et vous réponds par politesse et reconnaissance.
Mes excuses.

Bonne soirée.

 

[patricktoulon]

et allez voila maintenant mapomme
voila maintenant que l'on compile avec mid
le pauvre cathodique il va plus savoir quoi faire

 

[patricktoulon]

tu vois cathodique solution il y a à foison
ouvre un nouveau dossier
avec des sous dossiers nommme le fonction texte par exemple
enregistre des raccourcis vers ces pages nomme tes raccourcis intelligemment
et tu aura ta BDD en ligne
c'est moins de travail que faire des fichiers exemple
quand tu aura besoins tu ouvre la page

 

[cathodique]

Bonjour,

@mapomme : Merci beaucoup.
@patricktoulon : Merci pour ton astuce.

Encore merci à vous tous.

Bon dimanche.