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
........

[Gorfael]

Salut MiXinG et le forum
En attendant mieux, j'emploierai le même principe que pour vérifier l'éxistance d'une page :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
Dim x
Dim Y As Boolean
For Each x In ActiveWorkbook.Names
    If x.RefersToLocal = "=" & ActiveSheet.Name & "!" & Range("A1").Address Then
        Y = True
        Exit For
    End If
Next x
If Y And (x.Name = ENTETEINSERE & nomFeuille) Then
'...........
End If
End Sub

A+

[MiXinG]

Merci pour vos réponses!

Je vais manger et je regarde tout ça!
Bon appétit

[MiXinG]

Bon eh bien j'ai essayé vos suggestions et malheureusement j'obtiens toujours une erreur...
j'ai donc opté pour un :

Code :

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

On Error Resume Next

Et ça fonctionne pas trop mal!

C'est de la bidouille mais ça passe...

Merci encore!