vba nommée une cellule avec 2 variables

[perdinch]

bonjour,

J'ai une zone nommée "cellule_DR", dont l'adresse est toujours située en E1 avec laquelle je souhaite utiliser 1 variable correpondant au nom d'un onglet.

pouvez m'aider à trouver la bonne syntaxe de ce bout de code qui ne fonctionne pas car la zone nommée n'est pas reconnue

dim var1 as string

var1="data_etablissements_clients"

ActiveWorkbook.Names.Add Name:="cellule_DR", RefersToR1C1:=(var1) & "!" & Range("e1").Address

la zone nommée fait réference à :
="data_etablissements_clients!$E$1"

sachant que le signe " empêche la zone nommée d'être reconue
si je nomme var1 : data_etablissements_clients sans " var1 n'est pas reconnue


merci

 

[jp14]

Re : vba nommée une cellule avec 2 variables

Bonjour

Code à tester

Dim var1 As String

var1 = "data_etablissements_clients"
'var1 = "Feuil1"
With Sheets(var1)
.Names.Add Name:="cellule_DR", RefersToR1C1:=var1 & "!" & .Range("e1").Address
End With

JP

 

[perdinch]

Re : vba nommée une cellule avec 2 variables

Merci de votre collaboration mais ça ne fonctionne pas .

vOIR LE FICHIER JOINT.

la zone nommée est crée mais elle ne renvoie pas sru la cellule certainement à cause des signes " en début et fin de la formule .

 

[pierrejean]

Re : vba nommée une cellule avec 2 variables

bonjour perdinch
Salut JP

A tester

Sub ZONE_NOMMEE()
Dim var1 As String
var1 = "data_etablissements_clients"
Application.Names.Add Name:="cellule_DR", RefersTo:=var1 & "!$E$1"
End Sub

 

[perdinch]

Re : vba nommée une cellule avec 2 variables

merci de votre réponse mais le même probléme subsiste à savoir que la zone nommée bien que créée ne renvoie pas dans la zone dédiée .

ELLE FAIT RéFéRENCE à

="data_etablissements_clients!$E$1"

les " posent probléme. pour qu'elle soit reconnue il faudrait la même syntaxe sans les "

cordialement

 

[Cousinhub]

Re : vba nommée une cellule avec 2 variables

Bonsoir,

essaie ceci :

Sub Macro1()
var1 = "data_etablissements_clients"
ActiveWorkbook.Names.Add Name:="cellule_DR", RefersTo:="=" & var1 & "!$E$1"
End Sub

bonne soirée

 

[perdinch]

Re : vba nommée une cellule avec 2 variables

bonjour,

Merçi ca fonctionne très bien!

cordialement

perdinch

 

[perdinch]

Re : vba nommée une cellule avec 2 variables

bonjour,

j'ai une question du même genre:

ZONE NOMMEE
"mois"=DECALER(feuille1!$A$1;;;NBVAL(feuill1!$B:$B);1)

EN vba celà donne :

ActiveWorkbook.Names.Add Name:="mois", RefersToR1C1:= _
"=OFFSET(feuille1!R1C1,,,COUNTA(feuill1!C2),1)"

comment transformer le code vba avec une variable comme

var1="feuill1"

j'ai éssayé ça en vain

ActiveWorkbook.Names.Add Name:="mois", RefersTo:= _
"=OFFSET(var1!R1C1,,,COUNTA(var1!C2),1)"

merçi

 

[jp14]

Re : vba nommée une cellule avec 2 variables

Bonjour

A tester
ActiveWorkbook.Names.Add Name:="mois", RefersTo:= _
"=OFFSET(" & var1 & "!R1C1,,,COUNTA(" & var1 & " !C2),1)"

JP

 

[perdinch]

Re : vba nommée une cellule avec 2 variables

Bonsoir,

encore une fois c'est parfait!

merci encore

perdinch