Salut le forum, Victor et Robert
Oui, je confirme. Il faut passer par les fonction de recherche sur du texte
Du style :
Dim Txt
Dim Lng
Dim Esp
Dim Drt
Dim Gch
Dim Esp2
Dim i
Dim TxtEsp
Dim Res
Range("A1").Select
Txt = Selection
Lng = Len(Txt) 'Longueur totale
Esp = InStr(1, Txt, " ") 'Je recherche la position de l'espace entre les deux noms
Drt = Right(Txt, Lng - Esp) 'je cherche le nom à droite
Gch = Left(Txt, Esp - 1) 'je cherhe le nom à gauche
'En admettant que ma cellule doit être de 30 caractères max
Esp2 = 30 - (Lng - 1) 'nbre d'espaces entre les 2 noms
'Boucle générant la chaîne d'espace
'for i to Esp2
' je suis trés mauvais pour les boucles... Lol
TxtEsp = " " 'le résultat de la boucle
'Résultat
Res = Gch & TxtEsp & Drt
MsgBox Res
'YA+K remplacer la value de J14 par le Res
End Sub
Mais ça fait pas mal de variables à gérer...
Surtout que là je part du principe qu'en A1 il n'y a que 2 noms séparés par un espace...
Est-ce vraiment utile?
@+ peper-eliot