Private Sub essai()
Dim Nom_serie, Titre, nb_val
nb_val = 2999
definir_nom2 "zzzz0", "R1C13", nb_val
definir_nom3 "zzzz1", "$M$1", nb_val
End Sub
Public Sub definir_nom2(Nom, reference_cellule, nombre)
Dim res As String
res = "=creation_liste(" + reference_cellule + "," + CStr(nombre) + ")"
ActiveWorkbook.Names.Add Name:=Nom, RefersToR1C1:=res
End Sub
Public Sub definir_nom3(Nom, reference_cellule, nombre)
Dim tp As String, res
tp = "=creation_liste(" + reference_cellule + "," + CStr(nombre) + ")"
res = ActiveWorkbook.Names.Add(Nom, , , , , , , tp)
End Sub