donner un nom par macro

Bonjour,

Comment dans une macro pouvoir donner un nom à une plage de cellules.
en utilisant une variable pour le nom.
Merci si vous pouvez m'aider.

Code:

---

1 2 3 4 5 6

Sub Macro2() Dim VarNom As String   VarNom = "lenom" ThisWorkbook.Names.Add Name:=VarNom, RefersTo:=Sheets("Feuil3").Range("A1:C12") End Sub

---

Merci mercatog.
Je viens d'essayer, ça ne marche pas.

Bonjour Flamel, Mercatog

peut être une autre solution ainsi :

Code:

---

1 2 3

Dim VarNom As String VarNom = "lenom" Sheets("Feuil1").Range("A1:C12").Name = VarNom

---

bon après midi
@+

Citation:

---

Envoyé par flamel

Merci mercatog.
Je viens d'essayer, ça ne marche pas.

---

si tu peux reporter ce que ne "marche" pas

Ton code marche bien, c'est le mien qui ne marche pas.
Le voici

Code:

---

1 2 3 4 5

D Dim VarNom As String VarNom = "Mag" & 20 ThisWorkbook.Names.Add Name:=VarNom, RefersTo:= _ Sheets("Magasin").Range(Cells(xLinAdresse, xColAdresse), Cells(xLinAdresse + nHaut, xColAdresse + nLarg))

---

quand j'utilise 'cells' au lieu de 'A1:B5'

Merci de m'aider

Code:

---

Sheets("Magasin").Range(Sheets("Magasin").Cells(xLinAdresse, xColAdresse), Sheets("Magasin").Cells(xLinAdresse + nHaut, xColAdresse + nLarg))

---

attention quand même au nom choisi
sinon, une autre posibilité

Code:

---

1 2 3 4 5 6

Dim VarNom As String   VarNom = "Mag_" & 20 With Sheets("Magasin") .Names.Add Name:=VarNom, RefersTo:=.Names.Add Name:=VarNom, RefersTo:=.Range(.Cells(xLinAdresse, xColAdresse), .Cells(xLinAdresse + nHaut, xColAdresse + nLarg)) End With

---

Merci mercatog et merci Pierrot93.
Vos deux solutions fonctionnent bien.

Merci et cordialement

Merci mercatog et merci Pierrot93.
Vos deux solutions fonctionnent bien.

Merci et cordialement

Problème résolu.