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

chris · 1 Mai 2021

Bonjour

=JOINDRE.TEXTE(" ";;STXT(MAJUSCULE(A1);LIGNE(INDIRECT(1&":"&NBCAR(A1)));1))

cathodique · 1 Mai 2021

chris à dit:
Bonjour

=JOINDRE.TEXTE(" ";;STXT(MAJUSCULE(A1);LIGNE(INDIRECT(1&":"&NBCAR(A1)));1))

Bonjour Chris,

Très gentille de ta part. Mais je cherchais du VBA.
Je garde ta formule, on ne sait jamais.

Bon week-end.

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

cathodique · 1 Mai 2021

patricktoulon à dit:
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

Bonjour PatrickToulon ,

Un fouineur comme toi découvre beaucoup de choses et en plus tu arrives à t'en souvenir.
Merci beaucoup pour ton partage de connaissances.

Bon week-end.

patricktoulon · 1 Mai 2021

re
j'ai pas eu besoins de fouiner
je l'ai découvert avec 2007 ou j'avais ce problème
j'avais toujours splitter mais jamais fait de replace jusqu'au jour ou j'en ai eu besoins
LOL
j'ai chercher sur le web mais n'ayant rien trouvé alors a défaut d'avoir trouver la raison j'en ai retenue cette résolution
a savoir le join du split par un espace ce qui est finalement très simple
des fois faut pas chercher plus loin

cathodique · 1 Mai 2021

patricktoulon à dit:
re
j'ai pas eu besoins de fouiner
je l'ai découvert avec 2007 ou j'avais ce problème
j'avais toujours splitter mais jamais fait de replace jusqu'au jour ou j'en ai eu besoins
LOL
j'ai chercher sur le web mais n'ayant rien trouvé alors a défaut d'avoir trouver la raison j'en ai retenue cette résolution
a savoir le join du split par un espace ce qui est finalement très simple
des fois faut pas chercher plus loin

re,
Moi, c'est ma mémoire qui me fait défaut. Et, du coup je cherche longtemps.
En tout cas merci pour ton partage. J'apprécie beaucoup

patricktoulon · 1 Mai 2021

fait toi un petit lexique des outils que tu utilise le plus souvent
quand tu cherche tu va d'abords dans ton lexique
c'est ce que je fait
d'ailleur ce truc je vais l'ajouter tiens

cathodique · 1 Mai 2021

patricktoulon à dit:
fait toi un petit lexique des outils que tu utilise le plus souvent
quand tu cherche tu va d'abords dans ton lexique
c'est ce que je fait
d'ailleur ce truc je vais l'ajouter tiens

J'ai bien essayé mais je n'arrive pas à trouver la bonne astuce pour faire un bon lexique.
Afin de retrouver facilement mes bouts de codes. J'ai essayé un fichier de Viard ( si mes souvenirs sont bons), mais je n'ai pas vraiment compris comment l'utiliser (surtout ajout de code).
Mémoire défaillante à laquelle s'ajoute mon grand défaut "brouillon", ça n'arrange pas les choses.

Merci.

juvaxe · 1 Mai 2021

Bonjour

Un petit exemple supplémentaire avec une ligne de VBA..

Cdt

cathodique · 1 Mai 2021

juvaxe à dit:
Bonjour

Un petit exemple supplémentaire avec une ligne de VBA..

Cdt

Merci beaucoup Juvaxe pour ton complément qui fonctionne bien mais ce n'est pas une fonction.

patricktoulon · 1 Mai 2021

@juvaxe
bien l'exercice de style à reculons mais néanmoins chronophage
et c'est 3 ligne de code

patricktoulon · 1 Mai 2021

@cathodique
la sub de juvaxe en fonction

VB:

Function insert_blk(txt$) As String
    For i = (Len(txt)) To 2 Step -1
        txt = Left(txt, i - 1) & " " & Right(txt, Len(txt) - i + 1)
    Next i
    insert_blk = txt
End Function

Sub test()
    MsgBox insert_blk([A1].Value)
End Sub

cathodique · 1 Mai 2021

patricktoulon à dit:

@cathodique
la sub de juvaxe en fonction

VB:

Function insert_blk(txt$) As String
    For i = (Len(txt)) To 2 Step -1
        txt = Left(txt, i - 1) & " " & Right(txt, Len(txt) - i + 1)
    Next i
    insert_blk = txt
End Function

Sub test()
    MsgBox insert_blk([A1].Value)
End Sub

Merci Patrick, fort gentil de ta part. Je n'attendais pas autant.

patricktoulon · 1 Mai 2021

re
ça m’entraîne à garder la forme de mes neuronnes des petit exercices comme ça
même si c'est un veau en 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 vois que juvaxe est un junior et je l'encourage a continuer a penser différemment même si aujourd'hui il ne gagne pas le point

XL 2010 Insérer espace via fonction

cathodique

XLDnaute Barbatruc

Pièces jointes

patricktoulon

chris

XLDnaute Barbatruc

cathodique

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

cathodique

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

cathodique

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

cathodique

XLDnaute Barbatruc

juvaxe

XLDnaute Occasionnel

Pièces jointes

cathodique

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

cathodique

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Discussions similaires