C’est bien si vous aimez utiliser des instructions comme Range (« A1 ») au lieu de cells (1,1).

Ainsi, par exemple ColLetter (1) = A, ColLetter (2) = b, …​, ColLetter (100)

CV, etc.

{vide} 3) ColLetter (numéro de colonne) ⇒ renvoie la colonne Lettre.

Fonction publique ColLetter (colNumber As Long) As String Si colNumber <27 Then If colNumber = 0 Then ColLetter = « Z »

Sinon ColLetter = Mid (« ABCDEFGHIJKLMNOPQRSTUVWXYZ », colNumber, 1)

End If Else If colNumber <26 ^ 2 + 27 Then ColLetter = Mid (« ABCDEFGHIJKLMNOPQRSTUVWXYZ », FLOOR (colNumber / 26), 1)

ColLetter = ColLetter & ColLetter (colNumber Mod 26)

Sinon ColLetter = Mid (« ABCDEFGHIJKLMNOPQRSTUVWXYZ », FLOOR ((colNumber – 26) / 676), 1)

ColLetter = ColLetter & ColLetter (colNumber – FLOOR ((colNumber – 26) / 676) * 676)

End If End If End Function