XL 2010 Insérer espace via fonction

cathodique · 1 Mai 2021

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

VB:

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

patricktoulon · 1 Mai 2021

Bonjour @cathodique
en effet le replace chr(0) ne fonctionne pas sur toute les versions excel ( ne me demande pas pourquoi)
en revenche le split oui
alors solution simple joindre le split par un espace

VB:

Sub test3()
MsgBox ajoutespace("totolafritte")
End Sub
Function ajoutespace(txt As String) As String
ajoutespace = Join(Split(StrConv(txt, vbUnicode), ChrW(0)), " ")
End Function

mapomme · 1 Mai 2021

Bonsoir à tous,

Allez une autre pour la route :

VB:

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 · 1 Mai 2021

patricktoulon à dit:
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 · 1 Mai 2021

et allez voila maintenant mapomme

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

patricktoulon · 1 Mai 2021

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 · 2 Mai 2021

Bonjour,

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

Encore merci à vous tous.

Bon dimanche.

XL 2010 Insérer espace via fonction

cathodique

XLDnaute Barbatruc

Pièces jointes

patricktoulon

mapomme

XLDnaute Barbatruc

cathodique

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

cathodique

XLDnaute Barbatruc

Discussions similaires