Remplir automatiquement une série de lettre

Bonjour

Autant je connais le remplissage auto avec des chiffres mais avec des lettres est ce possible ?

Pouvez-vous à m'aider à trouver une solution pour ce problème avec des lettres (une liste est jointe), svp ?

Cdlt

Bonjour,

Tu peux essayer ce code

Sub Test()
Dim i As Integer, j As Integer, k As Integer
Dim Ligne As Long
    Ligne = 1
    For i = 65 To 70
        For j = 65 To 90
            Cells(Ligne, 1) = Chr(i) & Chr(j)
            Ligne = Ligne + 1
        Next j
        For k = 48 To 57
            Cells(Ligne, 1) = Chr(i) & Chr(k)
            Ligne = Ligne + 1
        Next k
    Next i
End Sub

A+

Bonjour Fanzy

Peux tu complèter cette liste jusqu'à la lettre Z

Merci

Bonjour jog81,

La première lettre est obtenue avec la boucle

For i = 65 To 70

Next i

On utilise la fonction Chr qui renvoie le caractère associé au code indiqué dans la table ASCII.

Chr(65) correspond au caractère A,

Chr(70) correspond au caractère F,

et Chr(90) correspond au caractère Z.

A+

bonjour

Merci pour ton aide

Cdlt