VBA Conversion Chiffre colonne en Lettre Colonne > à 27

Bonsoir,

Peut-on adapter ce code pour gérer la conversion de colonne en chiffre vers colonne en lettre au delà de la colonne 27 soit la colonne Zet qui génère des zones nommées automatiquement colonne par colonne dans ?

merci de vos suggestions

sub test

Dim DernLigne As String

Dim cell_depart As String

Dim lig_fin As Range

Dim colonne As String

Dim feuill As Worksheet

For Each feuill In ActiveWorkbook.Worksheets

If feuill.Name Like "Data_Base_GRDE" Then

feuill.Select

For Each c In Range([A1], [IV1].End(xlToLeft))

'identification de la lettre de la colonne active

colonne = Chr(64 + c.Column())

DernLigne = Range(colonne & Rows.Count).End(xlUp).Address

'zone nommées crées depuis la ligne 2

cell_depart = c.Offset(1, 0).Address

If Not IsEmpty(c.Offset(1, 0)) Then

ActiveWorkbook.Names.Add Name:=feuill.Name & "_" & c, RefersTo:="= " & feuill.Name & "! " & cell_depart & ":" & DernLigne & ""

End If

Next

End If

Next feuill

end sub

Bonjour,

Utilise cette fonction dans ton code :

Option Explicit
Public Function LettreColonne(objRange As Range) As String
Dim Col As Integer
    Col = objRange.Column
    If Col > 1 Then
        LettreColonne = Left(objRange.Address(False, False) _
            , Int(Log(Col - 1) / Log(26)) + 1)
    Else
        LettreColonne = "A"
    End If
End Function

Bonjour à tous,

ou bien

colonne = Split(c.Address, "$")(1)

Mais tu n'as pas besoin de passer par là. Fait directement :

DernLigne = Cells(Rows.Count, c.Column).End(xlUp).Address

eric

Merci de vos réponses qui m'ont donné satisfaction.

Perdinch