Code transormer des CHIFFRES->LETTRES VBA

Bonjour,

Je cherche un code qui permettrait de transformer des chiffres ou un nombre en lettre comme par exemple :

27 en AA

3 en C

Je donne une variable Positionnombre au code il me retourne la positionlettres

Un code permettant de transformer n'importe quel nombre à l'infini

J'ai ecoulé pas mal de forum en quete de ce code sans succès

EN vous remerciant par avance

Bonjour

A la vue de votre exemple, ce sont les références colonnes que vous recherchez sur base du chiffre ??

Cordialement

Bonsoir BaguetteFrance, DAN,

Utiliser le code ci-dessous. Exemple avec 3

Sub Swap() 
Nb = 3 
Lettre = Replace(Cells(1,Nb).Address, "$1", "", 2)
End sub

Il existe aussi plus simple avec column absolute mais comme je réponds du smartphone. Je n'ai plus exactement la formule. Dès que je serais sur l'ordi je l'enverrais.

Bons tests, bonne continuation.

Merci pour vos réponses c’est super cool ça m’aide

Oui il s’agit de transformer un nombre ou chiffre en colonne je me suis mal exprimé 😊

Je vais tester le code cependant j’ai une petite question comment isoler une adresse d’une cellule ex : $A$34 en A34 avec une formule très courte ?

Toujours en vous remerciant

A nouveau,

Adr="$A$34"

AdOne = Range(Adr). Address(Row, Column)

Ressortira A34

AdTwo = Range(Adr). AddressLocal

Ou

AdTwo = Range(Adr). Address

Ressortira $A$34

Re,

Comme vous avez le code par X Cellus, voici par formule pour le cas où:

=GAUCHE(ADRESSE(1;A1;4);NBCAR(ADRESSE(1;A1;4))-1)

Mettez votre chiffre en cellule A1 et la formule dans la cellule de votre choix

Cordialement

Bonjour BaguetteFrance, Dan,

Faisant suite à la remarque de Dan, on peut utiliser des fonctions pour tes recherches.

Après copie des 2 codes ci-dessous.

Function Change(Nb)
Change = Replace(Cells(1, Nb).Address, "$1", "", 2)
End Function

Function Trans(Adr)
Trans = Range(Adr).Address(Row, Column)
End Function

Exemple 1: Inscris le nombre 27 en A1 puis tape = Change(A1) dans la cellule B1. Cela ressortira des lettres.

Exemple 2: Inscris $C$34 en A2 puis tape = Trans(A2) dans la cellule B2. Cela ressortira l'adresse sans $

Bonne continuation.

Merci à tous j'ai pu rajouter les fonctions ca m'a changé la vie vous m'avez fait gagner énormément de temps

Je clos le sujet et merci encore a tous (tout fonctionne et l'adresse et le sujet principal)

Ravi pour toi,

Il ne manque plus pour vraiment clore le sujet de cliquer sur le V vert en haut à droite d'un message. Merci.