Discussion :

[Oaurelius]

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 :

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

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]

[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 ?

[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!

[Theocourant]

Salut,


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

Fais une recherche avancée sur le site.



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

@+

Théo

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

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

[zazaraignée]

Salut

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

Code :

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

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.

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

[Megaxel]

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 :

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

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

[ouskel'n'or]

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

Code :

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

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 :

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

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

A toutes fins utiles

A+

[zazaraignée]

Houaoah! (comme dirait Sol)

Simple! tester s'll y a effectivement un nom... On avait le nez collé dessus !

[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+