Incrémentation Alphabet

Bonjour à tous,

J'ai besoin de trouver un code qui me permettrai d'incrémenter l'alphabet. Donc dans une premier temps j'ai fait ça :

Sub inc()
Dim i As Integer

For i = 0 To 25

MsgBox Chr$(Asc("A") + i)
Next

End Sub

Sauf qu'après "Z" il faudrait que je reparte à "A1, B1, C1...Z1" puis ensuite "A2,B2,C2...Z2" etc...

Et là je bloque !

Bonjour

faire une double boucle

a tester

Sub inc()
Dim I, L As Long
L = 1
    For C = 0 To 2
        For I = 0 To 25
            If C = 0 Then
                Range("D" & L).Value = Chr$(Asc("A") + I)
             Else
                Range("D" & L).Value = Chr$(Asc("A") + I) & C
            End If
        'MsgBox Chr$(Asc("A") + i)
            L = L + 1
        Next
    Next
End Sub

A+

Maurice

Merci Maurice !

Je vais essayer d'adapter ça à mon cas !