Discussion :

[MiXinG]

Bonjour à tous!
A un moment dans le code je nomme certaines cellules de mon classeur de la manière suivante:

Code :

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

ActiveWorkbook.Names.Add Name:=ENTETEINSERE & nomFeuille, RefersToR1C1:=Range("A1")

Plus loin dans le code je souhaite regarder si le nom de la cellule vaut une certaine valeur, et si c'est le cas je fais un traitement. J'utilise pour celà:

Code :

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

If (Range("A1").Name.Name = ENTETEINSERE & nomFeuille) Then

Cela fonctionne si la cellule A1 porte bien le bon nom, mais si cette cellule n'est pas nommé alors j'ai le message d'erreur suivant:

Erreur 1004
Erreur définie par l'application ou l'objet

Si vous avez la solution
Merci d'avance!

[casefayere]

Bonjour le forum, MiXinG

ENTETEINSERE est le nom d'une variable string ?

et cette ligne :

Code :

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

If (Range("A1").Name.Name = ENTETEINSERE & nomFeuille) Then

ne serait pas plutot :

Code :

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

If Range("A1").Name = ENTETEINSERE & nomFeuille Then

[MiXinG]

Salut!
Merci de me répondre.

ENTETEINSERE est le nom d'une variable string ?

Effectivement

et cette ligne :
Code :

Code :

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

If (Range("A1").Name.Name = ENTETEINSERE & nomFeuille) Then

ne serait pas plutot :
Code :

Code :

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

If Range("A1").Name = ENTETEINSERE & nomFeuille Then

Eh bien non, moi aussi ça m'a paru complètement bizarre, mais pour avoir le nom de la cellule, il s'agit de l'attribut Name de l'attribut Name d'un range. Si on met comme tu as écris, on a une erreur. Or avec la ligne que j'ai écrite il n'y a pas d'erreur (sous réserve que la cellule soit nommée)

[casefayere]

je n'ai pas testé mais si tu faisais le contraire

Code :

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

1
2
3
4
If Range("A1").Name.Name <> ENTETEINSERE & nomFeuille Then
exit sub
else
........