Bonsoir,
Une petite fonction (à placer dans module 1) qui fera ça parfaitement :
Function galopin$(texte$)
Dim a, i
a = Split("1 2 3 4 5 6, 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26")
For i = 0 To 25
texte = Replace(texte, Chr(i + 65), a(i))
Next
galopin = texte
End Function
Il faut comprendre que les chiffres compris dans ("1 2 3 4 5 6, 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26")
correspondent aux valeurs respectives de A B C D...
si A = 19, B = 14 et C = 56 la suite serait (19 14 56 ...)
La fonction accepte comme argument un string (chaîne de caractères alphanumériques) ou une référence à une cellule contenant un string...
A+