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
VB:
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
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
VB:
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
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.
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
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