XL 2013 Nommer Colonne avec le nom de la feuille suivi de la cellule qui est en ligne 1

[auverland]

Bonjour à tous

Je cherche à nommer chaque Colonne avec le nom de la feuille suivi de la cellule qui est en ligne 1

exemple :
Paris_Temps pour la colonne qui auras "Temps" sur la ligne 1 et "Paris" comme nom de feuille
Paris_Velo pour la colonne qui auras "Velo" sur la ligne 1 et "Paris" comme nom de feuille
Nice_Velo pour la colonne qui aurras "Velo" sur la ligne 1" et "Nice" comme nom de feuille
Ect...



J'ai trouvé cela mais j'arrive pas à l'adapter pour qu'il inscrive le nom de la feuille
Idéalement faudrait qu'il balaye toutes mes feuilles

Dim cptr As Byte
For cptr = 1 To 100
Columns(cptr).Name = "XXXX_" & Cells(1, cptr)
End Sub

 

[Lone-wolf]

Bonjour auverland, le Forum

Sub test()
Dim sh As Worksheet, col As Long

    For Each sh In ThisWorkbook.Worksheets
        sh.Activate
        For col = 1 To 26
            With ActiveSheet
                If .Cells(1, col) = "Temps" Or .Cells(1, col) = "Velo" Then
                    .Columns(col).Name = .Name & "_" & .Cells(1, col)
                End If
            End With
        Next col
    Next sh
End Sub