Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

ActiveWorkbook.Names.Add avec Nom dynamique et Reference dynamique

  • Initiateur de la discussion Initiateur de la discussion 7ider5
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

7

7ider5

Guest
Bonjour,

J'essaie de créer un formulaire contenant des listes dont les données - qui sont sur une autre feuille - sont amené à être mis a jour fréquemment.
Pour automatiser un peut l'affaire, j'ai fais une macro qui lit les données et donne un nom aux listes pour qu'elles puissent être attachés aux cellules du formulaire.

Pour nommer les listes j'utilise le code donné par l'enregistreur excel :
Code:
    ActiveWorkbook.Names.Add Name:="Format", RefersToR1C1:= _
        "=BaseDonnees!R4C3:R4C4"

Ici l'exemple marche bien pour une liste, que je nomme "Format"
-> Comment mette une variable à la place, de type string par exemple

L'emplacement de référence étant aussi dynamique je dois m'affranchir des lettres en utilisant Range() par exemple mais cette écriture ne marche pas :

Code:
Dim NomListe As String
      ActiveWorkbook.Names.Add Name:=[COLOR="Red"]NomListe[/COLOR], RefersToR1C1:= _
            "=BaseDonnees![COLOR="Red"]Range(Cells(i, j),Cells(i + x, j)[/COLOR]"

Avez vous des solutions?
Merci d'avance

Cordialement,
Pierre
 

Pièces jointes

Re : ActiveWorkbook.Names.Add avec Nom dynamique et Reference dynamique

Bonjour,

Essaie :
ActiveWorkbook.Names.Add Name:=NomListe, RefersToR1C1:= _
"=BaseDonnees!"&Range(Cells(i, j),Cells(i + x, j).Address

Les macros ne sont peut etre pas obligatoires pour faire ceci.
Tu peux voir un exemple ci-joint, avec un nom variable (CTRL+F3 pour voir)
 

Pièces jointes

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

N
Réponses
7
Affichages
2 K
niconoip
N
F
Réponses
2
Affichages
872
fmaurice54
F
A
Réponses
4
Affichages
16 K
A
K
Réponses
13
Affichages
2 K
kenavo
K
I
Réponses
5
Affichages
12 K
infogeo
I
A
Réponses
2
Affichages
2 K
arthurho
A
S
Réponses
2
Affichages
2 K
sphinx266
S
N
Réponses
0
Affichages
1 K
N
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…