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

[Etoto]

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

 

[vgendron]

Salut

meme si je ne vois pas trop l'interet.. :-D
pour acceder à une cellule de ton tablo, il suffirait d'utiliser la fonction index avec du equiv...
mais bon. pour le fun

Sub Macro1()
'
' Macro1 Macro
'

For i = 2 To 6
    For j = 2 To 13
        ActiveWorkbook.Names.Add Name:=Cells(1, j) & "_" & Cells(i, 1), RefersToR1C1:="=Feuil1!R" & i & "C" & j
    Next j
Next i
    
End Sub

 

[Etoto]

Re,

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

Pour être sérieux moi non plus mais on m'a posé cette question aujourd'hui et en tant que curieux, je voulais savoir si y'avait des possibilités. Merci beaucoup @vgendron.

 

[job75]

Bonjour Etoto, vgendron,

Il est plus simple d'écrire :

For i = 2 To 6
    For j = 2 To 13
        Cells(i, j).Name = Cells(1, j) & "_" & Cells(i, 1)
Next j, i

A+

 

[vgendron]

salut job75
effectivement, plus simple.. l'enregistreur de macro aime bien nous donner des solutions compliquées

 

[Jacky67]

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

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

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

 

[Etoto]

Ha oui bien pensé, la colonne MAI existe c'est vrai.

 

[Jacky67]

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

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

**Oupss! pas vu qu'il y avait déjà la réponse
***Salutation à tous