XL 2013 variable dans RefersToR1C1:

fridak

XLDnaute Nouveau
Bonjour,
J'ai écrit le code suivant pour affecter le nom contenu dans la cellule B1 à la plage B2:B7.

nomfr = Cells(2, 1)
Range(Cells(2, 2), Cells(2, 7)).Select
Application.CutCopyMode = False
ActiveWorkbook.Names.Add Name:=nomfr, RefersToR1C1:="=dropdown!R2C2:R7C2"

Il marche. Je voudrais maintenant le mettre dans une boucle sur le numéro de la colonne

For x = 2 To N
nomfr = Cells(x, 1)
Range(Cells(x, 2), Cells(x, 7)).Select
Application.CutCopyMode = False
ActiveWorkbook.Names.Add Name:=nomfr, RefersToR1C1:="=dropdown!R2Cx:R7Cx"
Next x

Je ne sais pas comment écrire le contenu de RefersToR1C1 avec la variable x à l'intérieur. Merci d'avance de votre aide.
 

job75

XLDnaute Barbatruc
Bonsoir fridak, bienvenue sur XLD, salut Bruno,

Autre solution :
VB:
Application.CutCopyMode = False
With Sheets("dropdown")
    For x = 2 To N
        .Cells(2, x).Resize(6).Name = Cells(x, 1) 'plage nommée
    Next x
End With
Nota : en VBA les Select sont inutiles voire nuisibles.

A+
 

Discussions similaires

Réponses
17
Affichages
760
Réponses
1
Affichages
119
Réponses
0
Affichages
83

Statistiques des forums

Discussions
311 720
Messages
2 081 915
Membres
101 837
dernier inscrit
Ugo