Discussion :

[flamel]

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.

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[flamel]

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

[Pierrot93]

Bonjour Flamel, Mercatog

peut être une autre solution ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

bon après midi
@+

[mercatog]

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

si tu peux reporter ce que ne "marche" pas

[flamel]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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