[Excel] Inverser l'ordre des mots dans une cellule

Inverser l'ordre des mots dans une cellule [Excel] - VB/VBA/VBS - Programmation

Marsh Posté le 06-08-2009 à 18:46:11    

Hello,

 

Je chercher un moyen d'inverser l'ordre des mots au sein d'une cellule.

 

Exemple:

 

J'ai "bonjour toto" dans une cellule.

 

J'aimerais obtenir "toto bonjour" dans une autre cellule.

 

Grâce à ASAP Utilities, j'ai trouvé une fonction qui me permet de faire ça mais avec les lettres.

 

Donc si j'ai "abc def" dans une cellule, il me sort "fed cba"

 

Mais moi j'aimerais ça au niveau du mot, pas des caractères :)

 

Avec une macro, une fonction ?

 

Merci d'avance.


Message édité par ViMx le 06-08-2009 à 18:47:05
Reply

Marsh Posté le 06-08-2009 à 18:46:11   

Reply

Marsh Posté le 07-08-2009 à 06:43:08    

Bonjour,
regarde split et join dns vbe
Cordialement

Reply

Marsh Posté le 07-08-2009 à 09:09:15    

Bonjour,
Tu peux aussi regarder du coté du InstrRev qui recherche des caractères en partant de la fin de la chaine de caractère, en l'occurence " ", et mettre le tout dans une boucle qui, à l'aide des left, right, etc... te permettra de recomposer ta cellule avec les mots inversés...
Cordialement.


Message édité par Moonschild le 07-08-2009 à 09:11:53

---------------
Si Le Travail C'est La Santé, Donnez Le Mien A Quelqu'un De Malade
Reply

Marsh Posté le 07-08-2009 à 09:43:22    

A mon avis c'est beaucoup plus simple avec un split puis parcourir le tableau à l'envers.

Reply

Marsh Posté le 07-08-2009 à 11:42:43    

Bonjour
 
Je plussois pour le split
 

Code :
  1. Sub ViMx()
  2.    Dim MonTab() As String
  3.    Dim x As Integer
  4.    Dim Sch As String
  5.  
  6.    MonTab = Split("bonjour toto", " " )
  7.    
  8.    For x = UBound(MonTab) To 0 Step -1
  9.        Sch = Trim(Sch & " " & MonTab(x))
  10.    Next x
  11. End Sub


Message édité par SuppotDeSaTante le 07-08-2009 à 11:43:45

---------------
Soyez malin, louez entre voisins !
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed