Bonjour je cherche une macro pour convertir des chiffres en lettre.
Par exemple si dans la case il y a 3684 je voudrais dans une seconde case obtenir un code alpha de 4 lettres et que ce code soit identique à chaque fois que j'ai une case où il y a 3684, ainsi de suite pour toute combinaison de chiffres.
En fait c'est pour convertir un lettrage comptable qui est en numérique vers de l'alpha.
Merci par avance.
Publicité
Posté le 08-11-2011 à 22:39:29
kiki29
Posté le 09-11-2011 à 00:37:21
Salut, de façon basique sous forme de fonction personnalisée, à adapter sans doute
Option Explicit
Function Conversion(iNum As Long) As String
Dim i As Long
Dim iNumber As String, sStr As String
iNumber = CStr(iNum)
For i = 1 To Len(iNumber)
sStr = sStr & Chr(Mid$(iNumber, i, 1) + 65)
Next i
Conversion = sStr
End Function