Insérer des espaces entre les caractères ou espacement

Bonjour,

Je recherche une formule qui me permette d'insérer automatiquement un espace entre chaque caractère alphabétique d'une liste de 1000 noms et prénoms ou l'équivalent de l'espacement des caractères sur word.

Exemple : Coconut = C o c o n u t

Est-ce possible ? Car j'ai lu des dizaines de forums et autres articles sans trouver

Merci d'avance.

Bonjour et bienvenue sur le forum

Avec une fonction personnalisée :

Bye !

Bonjour le forum,

Formule qui insère jusqu'à 14 espaces.

=GAUCHE(A1;1)&" "&STXT(A1;2;1)&" "&STXT(A1;3;1)&" "&STXT(A1;4;1)&" "&STXT(A1;5;1)&" "&STXT(A1;6;1)&" "&STXT(A1;7;1)&" "&STXT(A1;8;1)&" "&STXT(A1;9;1)&" "&STXT(A1;10;1)&" "&STXT(A1;11;1)&" "&STXT(A1;12;1)&" "&STXT(A1;13;1)&" "&STXT(A1;14;1)&" "&STXT(A1;15;1)&" "

Bonjour et merci de ton accueil et pour ta prompt réponse gmb,

Malheureusement, la fonction ne semble pas exister sur ma version.

En effet, je vois bien le résultat souhaité à l'ouverture de ton fichier, mais en activant la modification du fichier ou en ressaisissant ta formule dans mon fichier j'obtiens, #NOM? .

Je ne trouve que "SUPPESPACE"... sur ma version d'excel 2016. J'aimerai bien l'inverse

Merci encore.

bonjour

si c'est possible ; mais il faut ruser

cordialement

Bonjour et Merci beaucoup Mbbp,

Ça marche !!!!, je suis ravie

J'espère avoir bien répondu à chacun, c'est mon 1er forum...

Excellente journée à vous 2.

A bientôt !

Bjr et Bravo Tulipe_4 !

C'est effectivement le mode renard ta proposition.

Merci à tous.

Bonjour à tous,

Une autre proposition ... de fonction personnalisée ...

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

Jnah972 a écrit :

la fonction ne semble pas exister sur ma version.

Si tu veux la récupérer dans un autre fichier, tu dois :

• Ouvrir le fichier que je t’ai envoyé

• Taper simultanément sur les touches Alt et F11 ; une fenêtre VBA apparait avec des lignes de code

• Sélectionner et copier toute les lignes de code

• Refermer le fichier

• Ouvrir le fichier où tu veux utiliser la formule

• Retaper simultanément sur Alt et F11

• Dans le menu de la feuille VBA, cliquer sur ‘’Insertion – Module’’

• Coller ce que tu as copier

• Fermer (facultatif) la feuille VBA

Tu peux maintenant utiliser la formule dans toutes les feuilles de ton fichier.

Si tu veux conserver cette fonction, il te faudra faire un ‘Enregistrer sous’’ en sélectionnant le Type ‘’Classeur Excel prenant en compte les macros (*.xlsm)

OK ?

Bye !

Bonjour,

Le sujet est clôt mais je me permet de mettre tout de même ma petite fonction perso :

Function AjoutEspace(Cel As Range) As String

    AjoutEspace = Format(Cel.Value, Application.Rept(" @", Len(Cel.Value)))

End Function

qui est à utiliser de la façon suivante dans Excel :

=AjoutEspace(A1)

Re,

Juste une petite précision, la chaîne est limitée à 57 caractères ce qui donne comme résultat une chaîne d'un maximum de 114 caractères !

Salut Theze ...

Le sujet est clos ... mais je trouve ton UDF très sympa ...!!!

Chacun a ses limites : je touche du doigt les miennes !

Bravos à vous !