Sub ajouterAlphabet1() Dim i As Integer For i = 65 To 90 ActiveCell.Value = Chr(i) ActiveCell.Offset(1, 0).Select Next i End Sub Sub ajouterAlphabet2() Dim i As Integer For i = 97 To 122 ActiveCell.Value = Chr(i) ActiveCell.Offset(1, 0).Select Next i End Sub
Tout comme les numéros de série, vous pouvez également insérer des alphabets dans votre feuille de calcul. Voici le code que vous pouvez utiliser.