VBA - Fonction retournant l'alphabet

Novembre 2017



Cette fonction fait simplement appel à Chr().


Code d'appel :
Option Explicit

Sub CreationAlphabet()
Dim Alpha() As String

    Alpha = Alphabet(97, 122)      'minuscules
    Debug.Print Join(Alpha, ", ")
    Alpha = Alphabet(65, 90)        'Majuscules
    Debug.Print Join(Alpha, ", ")
End Sub


Fonction :
Function Alphabet(FirstAscii As Byte, LastAscii As Byte) As String()
Dim Temp() As String, i&

    ReDim Temp(0 To LastAscii - FirstAscii)
    For i = FirstAscii To LastAscii
        Temp(i - FirstAscii) = Chr(i)
    Next
    Alphabet = Temp
    Erase Temp
End Function

A voir également


Publié par pijaku.
Ce document intitulé «  VBA - Fonction retournant l'alphabet  » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.