Discussion :

[thedragon25]

Bonjour,
Pour mettre à jour un graphique de façon dynamique j'essai de donnée un nom à une plage de donnée et ce graphique fait référence à ce nom.
Pour créer un nom de façon dynamique je passe par la macro VBA.
Donc j'enregistre une macro en faisant les étapes puis quand j'ouvre la macro la ligne ressemble à :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
With ActiveWorkbook.Names("nom") 
.Name = "nom" 
.RefersToR1C1 = "=Feuil1!R1C1:R38C2" 
.Comment = "" 
End With 
La remplace la ligne par : 
With ActiveWorkbook.Names("nom") 
.Name = "nom" 
.RefersToR1C1 = "=Feuil1!R" & Var1 & "C1:R" & Var2 & "C2" 
.Comment = "" 
End With 
La référence du nom change mais pas correctement au lieu d'afficher 
=Feuil1!R1C1:R64C2 
il affiche 
=Feuil1!'R1C1':'R64C2'

Je ne sais pas du tout comment on peut enlever ces apostrophe donc si vous pouvez m'aider.
Je vous remercie d'avance.

[Bear the french]

Bonsoir thedragon25,

Essaies :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub nom_plage()
 
'définit une plage de cellule par un nom
'puis modifie cette plage grâce à deux variables 
 
Dim Var1, Var2 As Long
Var1 = 1
Var2 = 64
 
ActiveWorkbook.Names.Add Name:="nom", RefersToR1C1:="=Feuil1!R1C1:R38C2"
ActiveWorkbook.Names("nom").RefersToR1C1 = "=Feuil1!R" & Var1 & "C1:R" & Var2 & "C2"
 
End Sub

ça fonctionne chez moi

Bertrand

[thedragon25]

Merci,
Je ne vois pas pourquoi ça ne marchais pas hier mais le fait de tout écrire sur une seul ligne ou alors de définir les variables en "Long" fait fonctionner mon programme merci beaucoup.

[fring]

Code :

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

1
2
3
4
5
6
Sub nom_plage()
 
'définit une plage de cellule par un nom
'puis modifie cette plage grâce à deux variables 
 
Dim Var1, Var2 As Long

Bonjour,

Pour info, pour une déclaration correcte des variables, chaque variable doit être typée

Code :

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

Dim Var1 As Long, Var2 As Long