[XL-2007] Trouver le nom d'une cellule [Résolu]

[did103]

Bonjour à tous

Je voudrai nommer et renommer les cellules d'une plage spécifique à partir de leur valeur:
exemple, nommer A1:E5 avec leur nom, A1,B1... D5,E5

Facile s'il n'y a pas de nom déjà associé!
Mais si une cellule a déjà un nom, il faut au préalable faire un delete pour la renommer.

La propriété Name

Code :

Range("C2").Name.Name

donne une erreur appli sur une cellule NON nommée...

D'où ma question:
Comment peut-on savoir si une cellule particulière a un nom?

[Ormonth]

Bonjour,

attention, c'est radical !

Code :

1
2
3
4
5
6
Sub EffaceTout()
Dim Nme As Name
    For Each Nme In ActiveWorkbook.Names
        Nme.Delete
    Next Nme
End Sub

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier

[Daniel.C]

Bonjour,

Code :

1
2
3
4
5
6
On Error Resume Next
Var = Range("C2").Name.Name
If Err.Number <> 0 Then
    Err.Clear
    Range("C2").Name = "Toto"
End If

[did103]

Merci Ormonth,
mais je veux être sélectif!

C'est Daniel qui a raison,
Je n'ai pas l'habitude de gérer les erreurs...
En fait, on se dit qu'avoir une erreur est anormal et on cherche autre chose!

Voici le code complet, si cela peut servir à quelqu'un.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub NomCellPlage()
    Dim Table As String
    Dim nom As String
    Dim c As Range
 
    Table = InputBox("Table à nommer :", "Nommage", "A1:B5")
    For Each c In ActiveSheet.Range(Table)
        On Error Resume Next
        nom = c.Name.Name
        If Err.Number <> 0 Then
            Err.Clear
        Else
            'Supprime le nom
            c.Name.Delete
        End If
        'Nomme la cellule
        If c.Value <> "" Then
            c.Name = "Vm." & c.Text
        End If
    Next c
End Sub

[mercatog]

Code :

1
2
3
4
5
6
For Each c In ActiveSheet.Range(Table)
    On Error Resume Next
    c.Name.Delete
    On Error GoTo 0
    If c.Value <> "" Then c.Name = "Vm." & c.Text
Next c

[Daniel.C]

Sans le gestionnaire d'erreurs et en considérant q'une plage peut avoir plusieurs noms, la macro suivante supprime tous les noms correspondant à la plage et en recrée un :

Code :

1
2
3
4
5
6
7
Dim N As Name
For Each N In ActiveWorkbook.Names
    If Right(N.RefersTo, Len(N.RefersTo) - 1) = ActiveSheet.Name & "!" & [C2].Address Then
        N.Delete
    End If
Next N
Range("C2").Name = "Toto"