Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Problème de nom

Problème de nom

7 réponses
Avatar
Daniel.C
Bonjour à tous.
Qu'est-ce qui twiste dans la seconde ligne de ce code :
ActiveWorkbook.Names.Add "ChartNo", 0, True
[ChartNo] = 1
J'obtiens une erreur 424 "Objet recquis".
Merci d'avance.
Daniel
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Modeste
Bonsour® Daniel.C avec ferveur ;o))) vous nous disiez :

Qu'est-ce qui twiste dans la seconde ligne de ce code :
ActiveWorkbook.Names.Add "ChartNo", 0, True
[ChartNo] = 1
J'obtiens une erreur 424 "Objet recquis".


ActiveWorkbook.Names.Add Name:="ChartNo", RefersToR1C1:="=1"


--
--
@+
;o)))

Avatar
Daniel.C
Bonjoour Modeste.
Je bute sur :
ActiveWorkbook.Names.Add Name:="ChartNo", RefersToR1C1:="=1"
Var = [ChartNo] + 1
[ChartNo] = Var
L'erreur est sur la dernière ligne.
Daniel

"Modeste" a écrit dans le message de news:
%
Bonsour® Daniel.C avec ferveur ;o))) vous nous disiez :

Qu'est-ce qui twiste dans la seconde ligne de ce code :
ActiveWorkbook.Names.Add "ChartNo", 0, True
[ChartNo] = 1
J'obtiens une erreur 424 "Objet recquis".


ActiveWorkbook.Names.Add Name:="ChartNo", RefersToR1C1:="=1"


--
--
@+
;o)))





Avatar
MichDenis
| [ChartNo] = Var

ChartNo est un "NOM" dans la collection des "NAMES" du classeur.
Ce nom "ChartNo" représente une constante et non pas un "Range" (une cellule)

En conséquence si les crochets [ChartNo] (équivalent à la méthode EVALUATE
de l'objet APPLICATION) peuvent être utilisés pour retrouver la valeur du
NOM "ChartNo", il est évident que tu ne peux modifier la valeur du NOM "ChartNo"
en utilisant les crochets. Tu dois obligatoirement réutiliser une ligne de code comme
celui que tu as utilisé pour la création du NOM. en lui attribuant sa nouvelle valeur.

ActiveWorkbook.Names.Add Name:="ChartNo", RefersToR1C1:="=1"

Dire que toute cette confusion émane d'un illustre utilisateur de ces crochets
ce dernier se terre je ne sais pas où lorsque des situations confuses surviennent.

;-)))







"Daniel.C" a écrit dans le message de news:
ez%
Bonjoour Modeste.
Je bute sur :
ActiveWorkbook.Names.Add Name:="ChartNo", RefersToR1C1:="=1"
Var = [ChartNo] + 1
[ChartNo] = Var
L'erreur est sur la dernière ligne.
Daniel

"Modeste" a écrit dans le message de news:
%
Bonsour® Daniel.C avec ferveur ;o))) vous nous disiez :

Qu'est-ce qui twiste dans la seconde ligne de ce code :
ActiveWorkbook.Names.Add "ChartNo", 0, True
[ChartNo] = 1
J'obtiens une erreur 424 "Objet recquis".


ActiveWorkbook.Names.Add Name:="ChartNo", RefersToR1C1:="=1"


--
--
@+
;o)))





Avatar
MichDenis
Pour plus de précision, tu devrais obtenir ceci :

Var = [ChartNo] + 1
[ChartNo] = Var
ActiveWorkbook.Names.Add Name:="ChartNo", RefersToR1C1:="=" & Var

NB : Je n'ai rien contre "ActiveWorkbook" si ce n'est qu'il faut s'assurer
que c'est le bon classeur qui est actif lorsque la commande s'exécute.
cette expression peut être remplacé par : ThisWorkbook.... ou Workbooks("sonnom")...
ou par l'usage d'une variable Objet Workbook.




"MichDenis" a écrit dans le message de news:
e%23Qu$

| [ChartNo] = Var

ChartNo est un "NOM" dans la collection des "NAMES" du classeur.
Ce nom "ChartNo" représente une constante et non pas un "Range" (une cellule)

En conséquence si les crochets [ChartNo] (équivalent à la méthode EVALUATE
de l'objet APPLICATION) peuvent être utilisés pour retrouver la valeur du
NOM "ChartNo", il est évident que tu ne peux modifier la valeur du NOM "ChartNo"
en utilisant les crochets. Tu dois obligatoirement réutiliser une ligne de code comme
celui que tu as utilisé pour la création du NOM. en lui attribuant sa nouvelle valeur.

ActiveWorkbook.Names.Add Name:="ChartNo", RefersToR1C1:="=1"

Dire que toute cette confusion émane d'un illustre utilisateur de ces crochets
ce dernier se terre je ne sais pas où lorsque des situations confuses surviennent.

;-)))







"Daniel.C" a écrit dans le message de news:
ez%
Bonjoour Modeste.
Je bute sur :
ActiveWorkbook.Names.Add Name:="ChartNo", RefersToR1C1:="=1"
Var = [ChartNo] + 1
[ChartNo] = Var
L'erreur est sur la dernière ligne.
Daniel

"Modeste" a écrit dans le message de news:
%
Bonsour® Daniel.C avec ferveur ;o))) vous nous disiez :

Qu'est-ce qui twiste dans la seconde ligne de ce code :
ActiveWorkbook.Names.Add "ChartNo", 0, True
[ChartNo] = 1
J'obtiens une erreur 424 "Objet recquis".


ActiveWorkbook.Names.Add Name:="ChartNo", RefersToR1C1:="=1"


--
--
@+
;o)))





Avatar
Daniel.C
OK. Merci. J'avais dans la tête que c'était plus simple.
Daniel
"MichDenis" a écrit dans le message de news:

Pour plus de précision, tu devrais obtenir ceci :

Var = [ChartNo] + 1
[ChartNo] = Var
ActiveWorkbook.Names.Add Name:="ChartNo", RefersToR1C1:="=" & Var

NB : Je n'ai rien contre "ActiveWorkbook" si ce n'est qu'il faut s'assurer
que c'est le bon classeur qui est actif lorsque la commande
s'exécute.
cette expression peut être remplacé par : ThisWorkbook.... ou
Workbooks("sonnom")...
ou par l'usage d'une variable Objet Workbook.




"MichDenis" a écrit dans le message de news:
e%23Qu$

| [ChartNo] = Var

ChartNo est un "NOM" dans la collection des "NAMES" du classeur.
Ce nom "ChartNo" représente une constante et non pas un "Range" (une
cellule)

En conséquence si les crochets [ChartNo] (équivalent à la méthode EVALUATE
de l'objet APPLICATION) peuvent être utilisés pour retrouver la valeur du
NOM "ChartNo", il est évident que tu ne peux modifier la valeur du NOM
"ChartNo"
en utilisant les crochets. Tu dois obligatoirement réutiliser une ligne de
code comme
celui que tu as utilisé pour la création du NOM. en lui attribuant sa
nouvelle valeur.

ActiveWorkbook.Names.Add Name:="ChartNo", RefersToR1C1:="=1"

Dire que toute cette confusion émane d'un illustre utilisateur de ces
crochets
ce dernier se terre je ne sais pas où lorsque des situations confuses
surviennent.

;-)))







"Daniel.C" a écrit dans le message de news:
ez%
Bonjoour Modeste.
Je bute sur :
ActiveWorkbook.Names.Add Name:="ChartNo", RefersToR1C1:="=1"
Var = [ChartNo] + 1
[ChartNo] = Var
L'erreur est sur la dernière ligne.
Daniel

"Modeste" a écrit dans le message de news:
%
Bonsour® Daniel.C avec ferveur ;o))) vous nous disiez :

Qu'est-ce qui twiste dans la seconde ligne de ce code :
ActiveWorkbook.Names.Add "ChartNo", 0, True
[ChartNo] = 1
J'obtiens une erreur 424 "Objet recquis".


ActiveWorkbook.Names.Add Name:="ChartNo", RefersToR1C1:="=1"


--
--
@+
;o)))











Avatar
MichDenis
Si tu veux plus court... et plus simple ....?

'----------------------
Sub test1()
Dim X As Name
Set X = ThisWorkbook.Names.Add(Name:="ChartNo", RefersToR1C1:="0")

'Ceci devrait être bon si plusieurs classeurs sont ouverts en même temps
'peu importe que le code soit inscrit dans le Thisworkbook ou autres modules.
Var = Evaluate(ThisWorkbook.Name & "!" & X.Name)
'..../
Var = 5
X.RefersToR1C1 = Var
End Sub
'----------------------




"Daniel.C" a écrit dans le message de news:

OK. Merci. J'avais dans la tête que c'était plus simple.
Daniel
"MichDenis" a écrit dans le message de news:

Pour plus de précision, tu devrais obtenir ceci :

Var = [ChartNo] + 1
[ChartNo] = Var
ActiveWorkbook.Names.Add Name:="ChartNo", RefersToR1C1:="=" & Var

NB : Je n'ai rien contre "ActiveWorkbook" si ce n'est qu'il faut s'assurer
que c'est le bon classeur qui est actif lorsque la commande
s'exécute.
cette expression peut être remplacé par : ThisWorkbook.... ou
Workbooks("sonnom")...
ou par l'usage d'une variable Objet Workbook.




"MichDenis" a écrit dans le message de news:
e%23Qu$

| [ChartNo] = Var

ChartNo est un "NOM" dans la collection des "NAMES" du classeur.
Ce nom "ChartNo" représente une constante et non pas un "Range" (une
cellule)

En conséquence si les crochets [ChartNo] (équivalent à la méthode EVALUATE
de l'objet APPLICATION) peuvent être utilisés pour retrouver la valeur du
NOM "ChartNo", il est évident que tu ne peux modifier la valeur du NOM
"ChartNo"
en utilisant les crochets. Tu dois obligatoirement réutiliser une ligne de
code comme
celui que tu as utilisé pour la création du NOM. en lui attribuant sa
nouvelle valeur.

ActiveWorkbook.Names.Add Name:="ChartNo", RefersToR1C1:="=1"

Dire que toute cette confusion émane d'un illustre utilisateur de ces
crochets
ce dernier se terre je ne sais pas où lorsque des situations confuses
surviennent.

;-)))







"Daniel.C" a écrit dans le message de news:
ez%
Bonjoour Modeste.
Je bute sur :
ActiveWorkbook.Names.Add Name:="ChartNo", RefersToR1C1:="=1"
Var = [ChartNo] + 1
[ChartNo] = Var
L'erreur est sur la dernière ligne.
Daniel

"Modeste" a écrit dans le message de news:
%
Bonsour® Daniel.C avec ferveur ;o))) vous nous disiez :

Qu'est-ce qui twiste dans la seconde ligne de ce code :
ActiveWorkbook.Names.Add "ChartNo", 0, True
[ChartNo] = 1
J'obtiens une erreur 424 "Objet recquis".


ActiveWorkbook.Names.Add Name:="ChartNo", RefersToR1C1:="=1"


--
--
@+
;o)))











Avatar
Daniel.C
Merci.
Daniel
"MichDenis" a écrit dans le message de news:
u9fm%

Si tu veux plus court... et plus simple ....?

'----------------------
Sub test1()
Dim X As Name
Set X = ThisWorkbook.Names.Add(Name:="ChartNo", RefersToR1C1:="0")

'Ceci devrait être bon si plusieurs classeurs sont ouverts en même temps
'peu importe que le code soit inscrit dans le Thisworkbook ou autres
modules.
Var = Evaluate(ThisWorkbook.Name & "!" & X.Name)
'..../
Var = 5
X.RefersToR1C1 = Var
End Sub
'----------------------




"Daniel.C" a écrit dans le message de news:

OK. Merci. J'avais dans la tête que c'était plus simple.
Daniel
"MichDenis" a écrit dans le message de news:

Pour plus de précision, tu devrais obtenir ceci :

Var = [ChartNo] + 1
[ChartNo] = Var
ActiveWorkbook.Names.Add Name:="ChartNo", RefersToR1C1:="=" & Var

NB : Je n'ai rien contre "ActiveWorkbook" si ce n'est qu'il faut
s'assurer
que c'est le bon classeur qui est actif lorsque la commande
s'exécute.
cette expression peut être remplacé par : ThisWorkbook.... ou
Workbooks("sonnom")...
ou par l'usage d'une variable Objet Workbook.




"MichDenis" a écrit dans le message de news:
e%23Qu$

| [ChartNo] = Var

ChartNo est un "NOM" dans la collection des "NAMES" du classeur.
Ce nom "ChartNo" représente une constante et non pas un "Range" (une
cellule)

En conséquence si les crochets [ChartNo] (équivalent à la méthode
EVALUATE
de l'objet APPLICATION) peuvent être utilisés pour retrouver la valeur du
NOM "ChartNo", il est évident que tu ne peux modifier la valeur du NOM
"ChartNo"
en utilisant les crochets. Tu dois obligatoirement réutiliser une ligne
de
code comme
celui que tu as utilisé pour la création du NOM. en lui attribuant sa
nouvelle valeur.

ActiveWorkbook.Names.Add Name:="ChartNo", RefersToR1C1:="=1"

Dire que toute cette confusion émane d'un illustre utilisateur de ces
crochets
ce dernier se terre je ne sais pas où lorsque des situations confuses
surviennent.

;-)))







"Daniel.C" a écrit dans le message de news:
ez%
Bonjoour Modeste.
Je bute sur :
ActiveWorkbook.Names.Add Name:="ChartNo", RefersToR1C1:="=1"
Var = [ChartNo] + 1
[ChartNo] = Var
L'erreur est sur la dernière ligne.
Daniel

"Modeste" a écrit dans le message de news:
%
Bonsour® Daniel.C avec ferveur ;o))) vous nous disiez :

Qu'est-ce qui twiste dans la seconde ligne de ce code :
ActiveWorkbook.Names.Add "ChartNo", 0, True
[ChartNo] = 1
J'obtiens une erreur 424 "Objet recquis".


ActiveWorkbook.Names.Add Name:="ChartNo", RefersToR1C1:="=1"


--
--
@+
;o)))