Trouver le nom d'une cellule

Version imprimable

17/12/2011, 10h25
did103

Trouver le nom d'une cellule

Bonjour à tous :D

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?
17/12/2011, 10h57
Didier Gonard
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

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

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

C'est Daniel qui a raison, :ccool:
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

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

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"