Tableau

bonsoir

Une question toute bête , existe t il un type de tableau ou une fonction sous vba qui me permet d'avoir un tableau reprenant toutes les lettres de l'alphabet plutot que d’écrire T = array("A","B","C","D",........."Z")?

Merci pour vos réponses

Cordialement

j'ai trouvé c'est tout bete avec Chr(65+k) k compris entre 0 et 25

Bonjour

pas besoin d'un tableau, tu as la fonction chr(x+64) qui te renvoies A pour x=1 à Z pour x=26 et plus si tu souhaites.

edit : je vois que tu as trouvé tout seul.

Bonjour,

Un exemple.

Cdlt.

Public Sub XXX()
Dim T(26) As String, I As Byte
    For I = LBound(T) To UBound(T)
        T(I) = Chr(65 + I)
    Next
    'Restitution dans feuille de calcul
    'Cells(1).Resize(UBound(T)) = Application.Transpose(T)
End Sub

Merci pour vos réponses, le but de ma demande était en fait de décoder le mot  EXCEL  via une fonction de cryptage affine du type y=3x+2 mod 26.

J ai donc écrit le bout de code suivant :

Sub décodage 
Mot =EXCEL
 For i=1 to len(Mot)
  For j =0 to 25
    If  Chr(j+65)=mid(Mot, i, 1)
       z=z & Chr(65+(9*j-18)mod 26)
    End if 
 Next
Next
Msgbox z
End sub