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

  • Initiateur de la discussion Initiateur de la discussion auverland
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

auverland

XLDnaute Occasionnel
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
 
Bonjour auverland, le Forum 🙂

VB:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour