Rajouter des - et enlever des
Bonjour à tous,
J ai des fichiers avec des immatriculations sous la forme (AB123CD) et je voudrais les transformer en AB-123-CD (donc sans les parenthèses mais avec des tirets) y a t il une fonotion ou plusieurs permettant d arriver à ce resultat?
Avec remplacer je remplace juste un éléments ....
Un grand merci par avance
Bonsoir,
Avec la fonction STXT, par exemple =STXT(TaCellule;2;,2) renvoie AB, il te suffit ensuite de faire des concaténations.
Bonsoir Lover,
Effectivement la solution proposée par Benead peut être utilisée comme ceci avec ta valeur en B2 par exemple et formule en C2
=STXT(B2;2;2)&"-"&STXT(B2;4;3)&"-"&STXT(B2;7;2)Cordialement
Hugues
Salut
Si toutes les cellules était de la même forme en termes de nombres et de chiffre ce code fait ce qu il faut
Sub Replacement()
Dim C As Range
Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).Replace What:="(", Replacement:=""
Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).Replace What:=")", Replacement:=""
For Each C In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
C = Mid(C, 1, 2) & "-" & Mid(C, 3, 3) & "-" & Mid(C, 6, 2)
Next
End Sub