Tester si une cellule a un nom

Version imprimable

15/11/2005, 14h47
Oaurelius

Tester si une cellule a un nom
Allo tt l'monde...

petit soucis pour tester si une cellule excel a un nom...
J'ai associé des noms aux cellules et j'aimerais testé si elle a un nom...
En fait a travers une macro, l'utilisateur selectionne une plage de cellule et supprime son comptenu... et le nom associé...

Le hic c'est que ca plante quand la cellule n'a pas été renommé...
Savez vous comment faire pour tester si une cellule porte un nom... Que ce me renvoie, vrai faux true oui ou bip j'm'en calice.. mais la je bloque grave... Merci

J'ai ca comme code qui plante...
Code:

1 2 3 4 Nom_cellule = cellule.Name.Name ActiveWorkbook.Names(Nom_cellule).Delete ActiveCell.ClearContents
Idée conseils le tout est le bienvenus...

merci

[Edit] Balises Code powered by Xo, merci d'y penser ;) [/Edit]
15/11/2005, 14h50
Xo

Je n'y connais pas grand chose en VBA, mais une cellule a toujours un nom, non ? Que ce soit le nom par défaut (A1, B1) ou un nom modifié n'y change rien ?

Bref, merci pour ton bout de code, mais pourrais-tu nous préciser à quelle ligne ça plante, et quel est le message d'erreur obtenu STP ?
15/11/2005, 14h50
Megaxel

Hello!
Avec Ouskel'n'or, on a répondu à une question qui ressemblait drôlement à la tienne il y a pas longtemps.
Fais une recherche avancée.
Je regarde de mon côté si je le retrouve!
15/11/2005, 14h52
Theocourant

Salut,

Il existe des sujets traitant déjà de ce problème...

Fais une recherche avancée sur le site.

:recherch:

Petite indication : celui-là devrait t'intéresser :
http://www.developpez.net/forums/vie...+cellule+excel

@+

Théo
15/11/2005, 14h54
Oaurelius

Oui ca serait mieux...
Ca plante a la première ligne que j'ai écris...

Nom_cellule = cellule.Name.Name

Le message d'erreur est erruer d'exécution '1004'
Erreur défini par l'application ou par l'objet...

Toutes les cellules on un nom peut être mais cette ligne ne fonctionne pas quand la cellule n'a pas été renommé...
15/11/2005, 15h17
Megaxel

Regarde le lien qui vient de t'être envoyé. Tu dois à nouveau "fouiller" la liste des cellules nommées avant de savoir si tu peux faire un .name sur ta cellule.

Salut

J'ai fait ce test à partir du code donné par Megaxel dans la référence donnée aussi par lui:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub test()
    'déclarations
    Dim nms As Names
    Dim Ok As Boolean
    Dim i As Integer
    Dim Nom_Cell As String
    'initialisations
    Ok = False
    Set nms = ActiveWorkbook.Names
    'teste si la cellule active correspond à un des noms
    For i = 1 To nms.Count
        If nms(i).RefersToRange.Address = ActiveCell.Address Then Ok = True
    Next
    'si oui
    If Ok = True Then
        Nom_Cell = ActiveCell.Name.Name
        MsgBox Nom_Cell
      'sinon
      Else
        MsgBox "Sans nom défini"
    End If
End Sub

Le problème est que ça ne teste que si la cellule active est nommée mais pas si elle est dans une plage nommée.

15/11/2005, 15h37
Megaxel

Exact, Zaza!
Mais il me semble qu'il existe une fonction Intersect(), ou un truc du même genre, qui permet de dire si une cellule appartient à une plage.
Je regarde ça de plus près...

Voila, avec ça (le code de Zaza un peu modifié), tu obtiens le nom de la plage qui contient la cellule active.
Et sur le même modèle, il est facile de trouver les plages dans une zone sélectionnée...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Sub NomCellule()
    'déclarations
    Dim nms As Names
    Dim Ok As Boolean
    Dim i As Integer
    Dim Indice As Integer
    Dim Nom_Cell As String
    'initialisations
    Ok = False
    Set nms = ActiveWorkbook.Names
    'teste si la cellule active correspond à un des noms
 
    For i = 1 To nms.Count
        'If nms(i).RefersToRange.Address = ActiveCell.Address Then Ok = True
        If Not Intersect(ActiveCell, nms(i).RefersToRange) Is Nothing Then
            Ok = True
            Indice = i
        End If
    Next
    'si oui
    If Ok = True Then
        Nom_Cell = nms(Indice).Name
        MsgBox Nom_Cell
      'sinon
      Else
        MsgBox "Sans nom défini"
    End If
End Sub

Je sais que c'est résolu mais j'ai ça à te proposer :
Code:

1 2 3 4 5 6 7 Sub NomDeCellule() Set nms = ActiveWorkbook.Names For r = 1 To nms.Count If nms(r).Name <> "" Then MsgBox "Nom = " & nms(r).Name & " Adresse = " & nms(r).RefersToRange.Address End If Next
Affiche toutes les cellules nommées et leurs adresses

Un test sur une adresse donnée te permet directement de savoir si elle est nommée

Code:

if nms(r).RefersToRange.Address = Cells(4,3).address and nms(r).Name <>"" then msgbox "Y'a un nom"

A toutes fins utiles

A+

15/11/2005, 15h48
zazaraignée

Houaoah! (comme dirait Sol)

Simple! tester s'll y a effectivement un nom... On avait le nez collé dessus !
15/11/2005, 15h50
ouskel'n'or

Rendon à SilkyRoad ce qui lui appartient, je n'ai pas retrouvé son code mais je m'en suis complètement inspiré car il avait eu la bonne idée de préciser dans son post "qu'il y avait tout dans l'aide"...

Merci SilkyRoad

A+