transformer des nombres par des lettres

[bobafric]

Bonjour à tous
sur une feuille excel j'ai des cellules remplies par des nombres de 1 à 20.
Je voudrai transformer les nombres par des lettres tel que 1=A, 2=B, ........20=T
existe-il une macro pour cette opération.
Merci d'avance.
Bob

 

[tototiti2008]

Re : transformer des nombres par des lettres

Bonjour bobafric,

peut-être, en formule

=CAR(64+A1)

 

[Pierrot93]

Re : transformer des nombres par des lettres

Bonjour,

pourquoi une macro ? une formule devrait suffire.... ton nombre en A1, la formule ci-dessous en B1 :

=CAR(B1+64)

bon après midi
@+

Edition : un peu en retard moi, bonsoir Toto🙂

 

[bobafric]

Re : transformer des nombres par des lettres

Merci Pierrot et tototiti pour la rapidité de votre réponse.
Je voudrai une macro pour faire l'opération de transformation sur toute la feuille en une seule fois par l'action d'un bouton.
Est-ce possible?
Cordialement
bob

 

[tototiti2008]

Re : transformer des nombres par des lettres

Bonjour Pierrot 🙂,
Re,

Oui, mais pour ça il faut que l'on sache où se trouvent tes nombres de 1 à 20
un bout de fichier exemple ?

 

[bobafric]

Re : transformer des nombres par des lettres

Sorry toto
mes nombres de 1 à 20 sont répartis sur une colonne A par exemple, mais je vais peut-être les répartir sur toute la feuille ou du moins une partie.
Actuellement sur ma colonne A j'ai A1........A1350
Voilà j'espère être assez clair.
Merci
bob

 

[Pierrot93]

Re : transformer des nombres par des lettres

Bonjour,

essaye peut être ceci, agit sur la feuille active :

Option Explicit
Sub test()
Dim c As Range
For Each c In Range("A1", Range("A65536").End(xlUp))
    If IsNumeric(c) And Not IsEmpty(c) Then c = Chr(c + 64)
Next c
End Sub

 

[Pierrot93]

Re : transformer des nombres par des lettres

Re,

on peut également tester que la valeur de la cellule ne dépasse pas un certain nombre :

Option Explicit
Sub test()
Dim c As Range
For Each c In Range("A1", Range("A65536").End(xlUp))
    If IsNumeric(c) And Not IsEmpty(c) And c < 21 Then c = Chr(c + 64)
Next c
End Sub

A noter, si Chr (code du caractère) supérieur à 255, renverra une erreur.....

 

[bobafric]

Re : transformer des nombres par des lettres

OK Pierrot
ça marche pour la colonne A, je vais me débrouiller maintenant pour les autres colonnes.
Merci à ttous les deux à bientôt
bob