transformer des nombres par des lettres

tototiti2008

XLDnaute Barbatruc

• 9 Août 2012

• #2

Re : transformer des nombres par des lettres

Bonjour bobafric,

peut-être, en formule

Code:

=CAR(64+A1)

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 9 Août 2012

• #3

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 :

Code:

=CAR(B1+64)

bon après midi
@+

Edition : un peu en retard moi, bonsoir Toto🙂

 

Vote positif 0 Vote négatif

B

bobafric

XLDnaute Occasionnel

• 9 Août 2012

• #4

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

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 9 Août 2012

• #5

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 ?

 

Vote positif 0 Vote négatif

B

bobafric

XLDnaute Occasionnel

• 9 Août 2012

• #6

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 9 Août 2012

• #7

Re : transformer des nombres par des lettres

Bonjour,

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

Code:

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 9 Août 2012

• #8

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 :

Code:

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.....

 

Vote positif 0 Vote négatif

B

bobafric

XLDnaute Occasionnel

• 9 Août 2012

• #9

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

 

Vote positif 0 Vote négatif