Discussion :

[yahi.jye]

Bonjour, je cherche a transformer un numéro de colonne par sa lettre ou ses lettres.

J'ai essaié avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
While (ColumRange0 > 0)
     Colonne0 = Chr((ColumRange0 Mod 26) + 64) + Colonne0
     ColumRange0 = (ColumRange0 / 26)-1
Wend

Mais quand ColumRange = 26, colonne0 me renvoie @ au lieu de la bonne lettre.
Si je modifie qqchose, j'ai toujours un erreur pour d'autre valeurs de ColumRange.

Help !

[kiki29]

Salut, entre autres
Les limites : 1 à 2147483647 soit A à FXSHRXW
A insérer dans un module standard pour utilisation comme fonction personnalisée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Function NumCol2Lettre(ByVal NumCol As Long) As String
Dim i As Long, x As Long, s As String
    For i = 6 To 0 Step -1
        x = (26 ^ (i + 1) - 1) / 25 - 1
        If NumCol > x Then
            s = s & Chr(((NumCol - x - 1) \ 26 ^ i) Mod 26 + 65)
        End If
    Next i
    NumCol2Lettre = s
End Function

[yahi.jye]

Bon, encore une fois, je me précipite sur le forum avant d'avoir épuisé toutes les recherches.
ici il y a plusieurs solutions.

Je vais utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Function LetCol(NoCol)
LetCol = Split(Cells(1, NoCol).Address, "$")(1)
End Function

ainsi mon code a cette tete :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
sub Test()
ColumRange0  = 26
     Colonne1 = LetCol(yRange)
MsgBox Colonne1
End Sub
Function LetCol(NoCol)
     LetCol = Split(Cells(1, NoCol).Address, "$")(1)
End Function

Je controle demain que ca marche tout le temps pour mon besoin.
Si ca marche pas j'utiliserai ton code.
Merci kiki de me donner une autre solution.

yahi

[kiki29]

Re, il y en a une myriade , et comme qui peut le plus peut le moins