OVH Cloud OVH Cloud

Insertion nom en vba

8 réponses
Avatar
Dominique MARTIN
Bonjour,

Je voudrais d=E9finir un nom pour une cellule.
J'utilise le code suivant :
ActiveWorkbook.Names.Add Name:=3D"clTotDev1",=20
RefersToR1C1:=3D"=3DEch=E9ancier!R145C3"
mais je voudrais modifier le code pour qu'il me mette le=20
nom pour la cellule active c'est =E0 dire qu'=E0 la place de=20
RefersToR1C1:=3D"=3DEch=E9ancier!R145C3" j'=E9crive la r=E9f=E9rence=20
de la cellule active.

Merci beaucoup pour votre aide
Dominique

8 réponses

Avatar
AV
ActiveWorkbook.Names.Add Name:="zzz", RefersTo:="=" & ActiveSheet.Name & "!" &
ActiveCell.Address

AV

"Dominique MARTIN" a écrit dans le message news:
2634001c38e62$465c2910$
Bonjour,

Je voudrais définir un nom pour une cellule.
J'utilise le code suivant :
ActiveWorkbook.Names.Add Name:="clTotDev1",
RefersToR1C1:="ìhéancier!R145C3"
mais je voudrais modifier le code pour qu'il me mette le
nom pour la cellule active c'est à dire qu'à la place de
RefersToR1C1:="ìhéancier!R145C3" j'écrive la référence
de la cellule active.

Merci beaucoup pour votre aide
Dominique
Avatar
Vincent.
Bonjour aussi,
Cela devrait faire l'affaire...

ActiveWorkbook.Names(clTotDev1).Delete
ActiveWorkbook.Names.Add Name:="clTotDev1", _
RefersTo:="ìhéancier!" & Ativcell.Address

Non ?

-----Message d'origine-----
Bonjour,

Je voudrais définir un nom pour une cellule.
J'utilise le code suivant :
ActiveWorkbook.Names.Add Name:="clTotDev1",
RefersToR1C1:="ìhéancier!R145C3"
mais je voudrais modifier le code pour qu'il me mette le
nom pour la cellule active c'est à dire qu'à la place de
RefersToR1C1:="ìhéancier!R145C3" j'écrive la référence
de la cellule active.

Merci beaucoup pour votre aide
Dominique

.



Avatar
Dominique MARTIN
Bonjour,
Merci beaucoup pour ta réponse mais si tu l'avais essayée,
tu te serais aperçu qu'elle ne marche pas !

dominique
-----Message d'origine-----
ActiveWorkbook.Names.Add Name:="zzz", RefersTo:="=" &
ActiveSheet.Name & "!" &

ActiveCell.Address

AV

"Dominique MARTIN" a écrit
dans le message news:

2634001c38e62$465c2910$
Bonjour,

Je voudrais définir un nom pour une cellule.
J'utilise le code suivant :
ActiveWorkbook.Names.Add Name:="clTotDev1",
RefersToR1C1:="ìhéancier!R145C3"
mais je voudrais modifier le code pour qu'il me mette le
nom pour la cellule active c'est à dire qu'à la place de
RefersToR1C1:="ìhéancier!R145C3" j'écrive la référence
de la cellule active.

Merci beaucoup pour votre aide
Dominique



.



Avatar
Dominique MARTIN
Bonjour,
Merci beaucoup pour ta réponse mais si tu l'avais essayée,
tu te serais aperçu qu'elle ne marche pas !

Dominique
-----Message d'origine-----
Bonjour aussi,
Cela devrait faire l'affaire...

ActiveWorkbook.Names(clTotDev1).Delete
ActiveWorkbook.Names.Add Name:="clTotDev1", _
RefersTo:="ìhéancier!" & Ativcell.Address

Non ?

-----Message d'origine-----
Bonjour,

Je voudrais définir un nom pour une cellule.
J'utilise le code suivant :
ActiveWorkbook.Names.Add Name:="clTotDev1",
RefersToR1C1:="ìhéancier!R145C3"
mais je voudrais modifier le code pour qu'il me mette le
nom pour la cellule active c'est à dire qu'à la place de
RefersToR1C1:="ìhéancier!R145C3" j'écrive la référence
de la cellule active.

Merci beaucoup pour votre aide
Dominique

.

.





Avatar
AV
Merci beaucoup pour ta réponse mais si tu l'avais essayée,
tu te serais aperçu qu'elle ne marche pas !


Ca c'est la meilleure !! On aura tout lu ....
Ben que si qu'elle est testée et qu'elle marche !
T'as du te mélanger les pinceaux dans le copier/coller (1 seule ligne de code
!)

Et puis, tant que tu y es, t'as pas du essayer ta pendule : elle marche pas !

A ne pas te lire
;-((
AV

Avatar
Vincent.
Oups ! Grillé !!!

Mais ce coup-ci, j'ai testé et ça marche ;-))

ActiveWorkbook.Names("clTotDev1").Delete
ActiveWorkbook.Names.Add Name:="clTotDev1", _
RefersTo:="=" & ActiveSheet.Name & "!" & _
ActiveCell.Address

A plus...

-----Message d'origine-----
Bonjour,
Merci beaucoup pour ta réponse mais si tu l'avais
essayée,

tu te serais aperçu qu'elle ne marche pas !

Dominique
-----Message d'origine-----
Bonjour aussi,
Cela devrait faire l'affaire...

ActiveWorkbook.Names(clTotDev1).Delete
ActiveWorkbook.Names.Add Name:="clTotDev1", _
RefersTo:="ìhéancier!" & Ativcell.Address

Non ?

-----Message d'origine-----
Bonjour,

Je voudrais définir un nom pour une cellule.
J'utilise le code suivant :
ActiveWorkbook.Names.Add Name:="clTotDev1",
RefersToR1C1:="ìhéancier!R145C3"
mais je voudrais modifier le code pour qu'il me mette
le



nom pour la cellule active c'est à dire qu'à la place
de



RefersToR1C1:="ìhéancier!R145C3" j'écrive la
référence



de la cellule active.

Merci beaucoup pour votre aide
Dominique

.

.


.






Avatar
Dominique MARTIN
Bonjour,

Mille excuses, j'avais laissé RefersToR1C1 au lieu de
RefersTo

Dominique

-----Message d'origine-----
Merci beaucoup pour ta réponse mais si tu l'avais
essayée,


tu te serais aperçu qu'elle ne marche pas !


Ca c'est la meilleure !! On aura tout lu ....
Ben que si qu'elle est testée et qu'elle marche !
T'as du te mélanger les pinceaux dans le copier/coller
(1 seule ligne de code

!)

Et puis, tant que tu y es, t'as pas du essayer ta
pendule : elle marche pas !


A ne pas te lire
;-((
AV


.




Avatar
Dominique MARTIN
Bonjour,

j'avais essayé l'ActiveCell.Address mais il faut mettre à
ce moment là RefersTo: et non RefersToR1C1:
C'est là où j'ai eu du mal à trouver

Merci pour ton aide
Dominique
-----Message d'origine-----
Oups ! Grillé !!!

Mais ce coup-ci, j'ai testé et ça marche ;-))

ActiveWorkbook.Names("clTotDev1").Delete
ActiveWorkbook.Names.Add Name:="clTotDev1", _
RefersTo:="=" & ActiveSheet.Name & "!" & _
ActiveCell.Address

A plus...

-----Message d'origine-----
Bonjour,
Merci beaucoup pour ta réponse mais si tu l'avais
essayée,

tu te serais aperçu qu'elle ne marche pas !

Dominique
-----Message d'origine-----
Bonjour aussi,
Cela devrait faire l'affaire...

ActiveWorkbook.Names(clTotDev1).Delete
ActiveWorkbook.Names.Add Name:="clTotDev1", _
RefersTo:="ìhéancier!" & Ativcell.Address

Non ?

-----Message d'origine-----
Bonjour,

Je voudrais définir un nom pour une cellule.
J'utilise le code suivant :
ActiveWorkbook.Names.Add Name:="clTotDev1",
RefersToR1C1:="ìhéancier!R145C3"
mais je voudrais modifier le code pour qu'il me mette
le



nom pour la cellule active c'est à dire qu'à la place
de



RefersToR1C1:="ìhéancier!R145C3" j'écrive la
référence



de la cellule active.

Merci beaucoup pour votre aide
Dominique

.

.


.


.