Convertir un numéro de colonne excel en caractère (très rapide)

Commenter

Contenu du snippet

Le code qui suit est à placer dans une macro excel uniquement.

Il faut envoyer en paramètre un numéro de colonne (par exemple 4).

La fonction renvoit alors D

car D est le nom de la 4e colonne d'excel. C'est simple, non ? Cette fonction va jusqu'à ZZ (= 752)

Source / Exemple : 


Function convertir(i As Integer) As String

Dim c As Integer
Dim c1 As Integer

c = i Mod 26
c1 = Int(i / 26)

If c1 > 0 Then
    If c = 0 Then
        If c1 > 1 Then
            convertir = Chr(c1 + Asc("A") - 2) + "Z"
        Else
            convertir = "Z"
        End If
    Else
        convertir = Chr(c1 + Asc("A") - 1) + Chr(c + Asc("A") - 1)
    End If
Else
    convertir = Chr(c + Asc("A") - 1)
End If
End Function

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_thitoune)