Bonjour, je sollicite une fois de plus votre aide, je souhaiterais pouvoir avoir une formule pour supprimer les trois premiers caractère(SA-) et inverser les 4 derniers caractères : SA-55JP pour au final avoir JP55, qqn peut-il m'aider ?
Function InversionLettres(ByVal Chaine As String) As String
Dim I As Integer
Dim ChaineAInverser As String
InversionLettres = ""
ChaineAInverser = Split(Chaine, "-")(1)
For I = Len(ChaineAInverser) To 1 Step -1
InversionLettres = InversionLettres & Mid(ChaineAInverser, I, 1)
Next I
End Function
Il s'agit d'une fonction, elle s'utilise comme n'importe quelle fonction d'Excel. Il suffit de la mettre dans un module standard comme dans mon fichier. Bien entendu, votre fichier doit accepter les macros (.xlsm, .xls).