0
Merci

Quelques mots de remerciements seront grandement appréciés.

VBA - Fonction retournant l'alphabet




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
0
Merci

Quelques mots de remerciements seront grandement appréciés.

Cet article est régulièrement mis à jour par des experts sous la
direction de Jean-François Pillou, fondateur de CommentCaMarche
et directeur délégué au développement numérique du groupe Figaro.

Publié par . Dernière mise à jour le par pijaku.

Ce document intitulé «  VBA - Fonction retournant l'alphabet  » issu de CommentCaMarche (https://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.

0 Commentaire