Macro pour convertir chiffre en lettre

Marsh Posté le 08-11-2011 à 22:39:29

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.

Marsh Posté le 08-11-2011 à 22:39:29

Marsh 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

Message édité par kiki29 le 09-11-2011 à 00:50:30

---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html

Marsh Posté le 09-11-2011 à 01:08:59

Comme je ne m'y connais pas du tout, pouvez-vous me donner un fichier xla que j'installe directement dans excel?

Marsh Posté le 09-11-2011 à 04:58:30

Salut, tu colles ce code dans un module standard sous VBE [ Alt+F11 ]
Ensuite sous Excel
si valeur en A1 taper par exemple en A2 =Conversion(A1)

Sinon via Menu Insertion/Fonction Catégories Personnalisées
Sélectionner Conversion etc

---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html

Sujets relatifs:

Leave a Replay

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

Name *

Email *

URL

Message *