En VBA dans Excel : Inverser des caractères dans une cellule

[h12enri]

Bonjour à tous,

Voilà, j'ai des cellules par centaines qui contiennent des données comme :
FR/23/5126
LO/11/4687
PL/32/4568
... etc.

Ce que je souhaite faire c'est de pouvoir placer les chiffres du milieu, au début (le tout dans la même cellule évidemment). De manière à me donner (suivant les exemples énoncés) :
23/FR/5126
11/LO/4687
32/PL/4568

J'ai bien commencé par utiliser la fonction MID pour m'extraire les caractères du milieu
=MID(A1,4,3)
ça, ça va
Mais j'éxecute cette fonction dans un autre cellule hélas.... et ça ne m'aide pas à replacer ces 3 caractères devant.

Je voudrais pouvoir automatiser cela par un(e?) macro.
Si vous aviez des pistes ou la solution... Merci beaucoup d'avance,

Henri

 

[drul]

Salut en admettant que le format que tu nous donnes est fixes ("2 char"/"2 Char"/"X Char)

Version sans macro;

=CONCATENATE(MID(A1;4;3);LEFT(A1;3);RIGHT(A1;LEN(A1)-6))

tu le fais dans une autre feuille/Classeur puis avec un copy--> paste specia tu écrase les donné sources avec les nouvelles valeures

Avec macro:

un boucle du genre

Cells(i, j).Value = Mid(Cells(i, j).Value, 4, 3) & Left(Cells(i, j).Value, 3) & Right(Cells(i, j).Value, Len(Cells(i, j).Value) - 6)

Je te laisse faire les boucles i=nombre de ligne a traiter et j = nombre de colonne à traiter

 

[h12enri]

Je suis aux anges

Merci Drul, super!