Macro pour convertir chiffre en lettre

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Macro pour convertir chiffre en lettre

typicalcece

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é

kiki29

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

typicalcece

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

kiki29

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

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Macro pour convertir chiffre en lettre

Sujets relatifs
[RESOLU]Macro excel modification hypertexte	Convertir la date et l'heure courante en chaîne de caractères.
Optimiser une macro de comparaison de feuilles Excel	Macro pour défusionner un document obtenu par publipostage
Macro multi-critères	Gestion de document Word via macro VBA excel
Toute petite macro VBA pour enregistrement	Macro sous excel
Convertir un .sh en .bat	Conseil pour une macro
Plus de sujets relatifs à : Macro pour convertir chiffre en lettre

Page générée en 0.033 secondes