Table des matières
La fonction standard Excel « Colonne » renvoie le nombre plutôt que la lettre de la colonne, par exemple :
Colonne (E4) - renvoie le chiffre 5 plutôt que la lettre E
La colonne (AD12) renvoie le nombre 30 plutôt que AD.
La fonction suivante renvoie la lettre plutôt que le numéro de la colonne. Ainsi, dans les deux exemples ci-dessus, nous avons respectivement les lettres E et AD. La routine retournera vide si plus d'une seule cellule est référencée :
Fonction Alpha_Column(Cell_Add As Range) As String Dim No_of_Rows As Integer Dim No_of_Cols As Integer Dim Num_Column As Integer No_of_Rows = Cell_Add.Rows.Count No_of_Cols = Cell_Add.Columns.Count) If ((No_Orof_NodeColn 1) "" Exit Function End If Num_Column = Cell_Add.Column If Num_Column < 26 Then Alpha_Column = Chr(64 + Num_Column) Sinon Alpha_Column = Chr(Int(Num_Column / 26) + 64) & Chr((Num_Column Mod 26) + 64) End Si fonction de fin
