XL 2016 Nommer automatiquement des cellules grâce aux en-têtes

vgendron à dit:

meme si je ne vois pas trop l'interet.. :-D

Cliquez pour agrandir...

Etoto à dit:

Bonjour,

Dans le fichier ci-joint, j'aimerai renommer automatiquement chaque cellule de la plage B2:M6 en lien avec les en-têtes.

Exemple :

B2 ---> Janvier2016
C4 ---> Février2018
L3 ---> Novembre2017
etc...


Existe t'il des possibilités ?


Cordialement et merci d'avance

Cliquez pour agrandir...

Sub NOM()
    Dim i&, j&
    For i = 2 To 6
        For j = 2 To 13
            ActiveWorkbook.Names.Add Name:=Cells(1, j) & "_" & Cells(i, 1), RefersTo:="=" & Cells(i, j)
        Next
    Next
End Sub

Jacky67 à dit:

Bonjour,
Une possibilité avec un tiret bas( "_")
Parce que par exemple, "mai2015" fait référence à une cellule

VB:

Sub NOM()
    Dim i&, j&
    For i = 2 To 6
        For j = 2 To 13
            ActiveWorkbook.Names.Add Name:=Cells(1, j) & "_" & Cells(i, 1), RefersTo:="=" & Cells(i, j)
        Next
    Next
End Sub

Récupération dans une cellule
Par exemple==> =Décembre_2020

Cliquez pour agrandir...