Un n° chiffre en lettre comme un code

[bibichmaroc]

😉Slt a tous,Je suis très heureux de revenir à votre Forum, 😱 Je vous demande de m'aider en présence d'une solution à ce processus ; Je veux convertir un nombre; par exemple 1 en M et 2 N.... , Je veux faire un code chiffre en lettre:Comment puis-je faire ???; et merci

EXP:
1 M 123 MNC
2 N
3 C

 

[Dranreb]

Re : BibichMaroc

Bonsoir.
Cette fonction personnalisée:

Function CodeLettres(ByVal N As Long) As String
CodeLettres = ""
Do While N > 0
   CodeLettres = Mid$("1MNCLKJTVD", N Mod 10 + 1, 1) & CodeLettres
   N = N \ 10
   Loop
End Function

Formule:

=CodeLettres($D$15)

Cordialement.

Bonsoir R@chid.

 

[R@chid]

Re : Un n° chiffre en lettre comme un code

Bonsoir,
une solution par formule en attendant les interventions des experts en VBA...
Amicalement

Edit : Tres en Retard, Bns Dranreb 😱

 

[bibichmaroc]

Re : Un n° chiffre en lettre comme un code

J'ai utilisé cette méthode il a réussi, MERCI BIEN RACHID🙂

 

[bibichmaroc]

Re : BibichMaroc

MERCI BIEN;; il a réussi

 

[bibichmaroc]

Re : BibichMaroc

MERCI MR Dranreb ;J'ai utilisé votre fonction il a réussi . merci bien😀

 

[bibichmaroc]

Re : BibichMaroc

Bjr Mr Dranreb , votre méthode et ça marche bien, mais je veux faire un autre chose sur cette fonction;
par exp :
si un seul 0 --- 1
00--- 2
000---3 par exemple 3400 -- CL2 1000--- M3

ET Merci

 

[Dranreb]

Re : Un n° chiffre en lettre comme un code

Bonjour.

Function CodeLettres(ByVal N As Long) As String
Dim N1 As Long, NZ As Long
Do While N > 0
   N1 = N Mod 10
   If N1 = 0 Then
      NZ = NZ + 1
   Else
      CodeLettres = Mid$("MNCLKJTVD", N1, 1) & IIf(NZ > 0, NZ, "") & CodeLettres
      NZ = 0
      End If
   N = N \ 10
   Loop
End Function

Cordialement.

 

[Modeste geedee]

Re : Un n° chiffre en lettre comme un code

Bonsour®

😉Slt a tous,Je suis très heureux de revenir à votre Forum, 😱 Je vous demande de m'aider en présence d'une solution à ce processus ; Je veux convertir un nombre; par exemple 1 en M et 2 N.... , Je veux faire un code chiffre en lettre:Comment puis-je faire ???; et merci

EXP:
1 M 123 MNC
2 N
3 C

bien tard aprés les piliers de XLD 🙄
alors pour le fun...

et sous réserve que la saisie soit toujours =4 chiffres ?(sinon auquel cas il faudrait ajouter des concatenations complémentaires)
une autre solution sans plage intermédiaire, ni VBA, ni matricielle...

 

[bibichmaroc]

Re : Un n° chiffre en lettre comme un code

Vous venez trop tard MR Modeste geedee; Voir la méthode exécuté par Mr Dranreb il est tres facile Il a compris ce que je veux dire et mis en œuvre .. Mais je remercie chacun d'entre vous... bonne journée😱

 

[Modeste geedee]

Re : Un n° chiffre en lettre comme un code

Bonsour®le forum

Vous venez trop tard MR Modeste geedee; Voir la méthode exécuté par Mr Dranreb il est tres facile Il a compris ce que je veux dire et mis en œuvre .. Mais je remercie chacun d'entre vous... bonne journée😱

😎
l'important est de participer, n'est-il pas ???
et puis abondance de solutions ne nuit pas ...
chacun y trouve matière à reflexions entre VBA, matricielles et formules "chirogourdistes"

d'aventure toutefois : éviter les questions à tiroir , préferer un nouveau sujet
nb: merci du retour , même si ma proposition n'est pas adéquate, au moins tu l'a consultée 😱

 

[R@chid]

Re : Un n° chiffre en lettre comme un code

Bonjour @ tous,
Salut Modeste geedee,
Mais tu as fait la concaténation des formules, alors je trouve que c'est plus simple de faire comme je l'ai fait sur mon 1er post,
Par contre, du fait que je suis juste formuliste et je ne connais rien en VBA, je vous propose cette formule qui nécessite l'installation de MoreFunc,
sur le fichier de Modeste geedee, en G15,

=MCONCAT(SI(TRANSPOSE(STXT(E15;LIGNE(INDIRECT("1:"&NBCAR(E15)));1)*1)=B$3:B$12;C$3:C$12;""))

@ valider par Ctrl+Maj+Entree
@ tirer vers le bas
@ micalement


Edit : Oupssss, elle renvoie des codes erronés, "Masd9atch 😛"

 

[Modeste geedee]

Re : Un n° chiffre en lettre comme un code

Bonsour®

Bonjour @ tous,

Par contre, du fait que je suis juste formuliste et je ne connais rien en VBA, je vous propose cette formule qui nécessite l'installation de MoreFunc,

🙄
alors là tu fais fort en "simplicité" :
Fonction externe(XLA/VBA) + Matricielle
😕 je ne comprend pas par ailleurs les inversions de codage sur colonnes F / G sur ta capture...

et puis de toute façon, ton compatriote a ajouté une spécification difficile à intégrer dans une formule 🙁

ceci-dit : Bravo !
je raffole de cette émulation ou chacun apporte un éclairage différent...

 

[R@chid]

Re : Un n° chiffre en lettre comme un code

Bonjour @ tous,

😕 je ne comprend pas par ailleurs les inversions de codage sur colonnes F / G sur ta capture...

Oui j'ai vu et j'ai édité le post pour dire quelle n'est pas correcte, je vais essayer de l'adapter...
Amicalement

 

[gauguin]

Re : Un n° chiffre en lettre comme un code

Bonjour,

Voici une autre solution, plutôt courte.
Il suffit de sélectionner le nombre de caractères prévus/voulus puis d'entrer la formule.
Si on ne connaît pas le nombre de caractères à l'avance, on peut en sélectionner plus, et les cellules inutiles renverront #N/A