Création de nom via une table

Bonjour à tous,

Je suis devant un dilemme sur lequel je n'arrive pas à trouver la bonne syntaxe et écriture.

"Novice" en code VBA je tente de manipuler du code par enregistrement et via mes recherches internet mais rien ne fonctionne.

Le problème :

J'ai un fichier excel dans lequel j'ai besoin de créer 1 millier de nom répartis sur plusieurs feuilles. Je cherche donc à automatiser la création des noms via une table en donnant en entrée le nom de la valeur et la cellule qui doit être renommée.

Partant du principe que j'ai un fichier excel avec 3 feuilles : Feuil1 & Feuil2, et Feuil3 dans laquelle est ma table suivante :

Grâce à ma table je sais que la Cellule K78 de la feuil2 doit s'appeler Val_0020.

Derrière je tente de faire une boucle afin de lire la table et créer les noms avec les bouts de code suivant :

Sub AjoutNom()
Dim i As Integer
Dim j As Integer
i = xx
j = yy
For x = i To j

    ActiveWorkbook.Names.Add _
        Name:="Val_0001 à Val_0020", _  '
        RefersToR1C1:=Feuil3!D2 à Feuil3!D21
Next x

End Sub

Le code est une démonstration de l'idée de la fonction et je suis conscient qu'il n'est absolument pas fonctionnel

Merci d'avance à tous ceux qui pourront m'aider :) !!

N.B. 1 : Le bonus pour moi serait la possibilité une fois les noms ajoutés à mon fichier d'avoir une macro capable de me ré-écrire un tableau en renvoyant pour chaque nom la cellule fait référence à

bonjour,

une proposition , les données sont dans la feuille "table" en colonne A à D

Sub aargh()
    With Sheets("table")
        dl = .Cells(Rows.Count, 1).End(xlUp).Row
        For i = 2 To dl
            ActiveWorkbook.Names.Add Name:=.Cells(i, 1).Value, RefersTo:=.Cells(i, 4).Value
        Next
    End With
End Sub

Merci pour la proposition elle fonctionne à 99% !

Le hic c'est que avec l'extraction de la value dans le gestionnaire de noms -> Nom : Val_0001 fait référence à ="Feuil1!K9" et non =Feuil1!K9 (j'imagine qu'il prend un string et non une adresse

RefersTo:=.Cells(i, 4).Value

re-bonjour,

correction

Sub aargh()
    With Sheets("table")
        dl = .Cells(Rows.Count, 1).End(xlUp).Row
        For i = 2 To dl
            ActiveWorkbook.Names.Add Name:=.Cells(i, 1).Value, RefersTo:=Range(.Cells(i, 4).Value)
        Next
    End With
End Sub

Bonjour tout le monde,

Pour ce qui est d'afficher la table des noms, on peut faire ainsi :

Merci à tous les deux !

J'avais oublié cette possibilité d'extraire manuellement les noms enregistrés !

Vraiment un grand merci parce que l'utilisation du range pour le cells().value ne m'était même pas venu à l'esprit !

Bonne journée à tous !