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

 

[chris]

Bonjour

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

 

[cathodique]

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]

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

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]

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

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]

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]

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]

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]

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]

Bonjour

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

Cdt

 

[cathodique]

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]

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

 

[patricktoulon]

@cathodique
la sub de juvaxe en fonction

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]

@cathodique
la sub de juvaxe en fonction

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]

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