Fonction Alphabet

[demichoux]

Bonjour tout le monde,

J'aimerais savoir s'il existe une fonction qui permet d'écrire l'alphabet
SVP

Merci d'avance

 

[BOISGONTIER]

Re : Fonction Alphabet

Bonjour,

Sélectionner 26 cellules verticales

=CAR(LIGNE($1:$26)+64)
Valider avec maj+ctrl+entrée

JB

 

[James007]

Re : Fonction Alphabet

Bonjour,

Voilà une petite macro :

Sub Alphabet()
Dim Cell, CellChars, i
    For i = 65 To 90
        CellChars = Chr(i)
        Cells(i - 64, 1).Value = CellChars
    Next i
End Sub

A +
🙂

 

[Staple1600]

Re : Fonction Alphabet

Bonjour


Un autre macro (histoire de varier le menu)

Sub alpha()
Const a As String = "A B C D E F G H I J K L M N O P Q R S T U V W X Y Z"
Dim t: t = Split(a): [A1].Resize(UBound(t) + 1) = Application.Transpose(t)
End Sub

Mais la solution de JB est la plus simple et la plus évidente (à mon sens)

 

[hoerwind]

Re : Fonction Alphabet

Bonjour, salut les autres,

A l'identique de la proposition de JB, mais non matricielle :

Sélectionner 26 cellules verticales
=CAR(LIGNES($1:1)+64)
à valider par Ctrl+Entrée

Idem à l'horizontale :
=CAR(COLONNES($A:A)+64)