Comment écrire le nom de la cellule dans la cellule

Version imprimable

22/12/2015, 13h27
DenisHen

Comment écrire le nom de la cellule dans la cellule

Bonjour à la communauté,

Voilà, j'ai un classeur avec une feuille contenant beaucoup de cellules nommées.

J'aimerais écrire le nom des ces cellules dans ces cellules nommées...

Juste si quelqu'un a ça dans ses tiroirs, une astuce ou un conseil, je suis preneur...

Denis...

Salut,
j'ai cela

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
30
31
32
33
34
35
36
37
Sub NomsChampsCmt()
    On Error Resume Next
    Application.ScreenUpdating = False
    For Each n In ActiveWorkbook.Names
        P = InStr(n, ActiveSheet.Name)
        If P > 0 Then
            p1 = InStr(n, "!")
            p2 = InStr(n, ":")
            If p2 > 0 Then
                c = Mid(n, p1 + 1, p2 - p1 - 1)
            Else
                c = n
            End If
            If Range(c).NoteText = "" Then
                Range(c).AddComment n.Name    '& ":" & n
                With Range(c).Comment.Shape.OLEFormat.Object.Font
                    .Name = "verdana"
                    .Size = 8
                    .FontStyle = "Normal"
                    .ColorIndex = 5
                End With
                Range(c).Comment.Visible = True
                Range(c).Comment.Shape.Select
                Selection.AutoSize = True
            End If
        End If
    Next n
End Sub
 
 
Sub EncadreNomsChamps()
    Application.ScreenUpdating = False
    For Each n In ActiveWorkbook.Names
        On Error Resume Next
        Range(n.Name).BorderAround Weight:=xlMedium
    Next n
End Sub

Salut Oliv- et merci...

Avec une petite modif, j'ai pu faire ce que je voulais...

Au cas ou cela intéresserait quelqu'un, voici le code modifié :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub NomsChampsCmt()
    On Error Resume Next
    Application.ScreenUpdating = False
    For Each n In ActiveWorkbook.Names
        P = InStr(n, ActiveSheet.Name)
        If P > 0 Then
            p1 = InStr(n, "!")
            p2 = InStr(n, ":")
            If p2 > 0 Then
                c = Mid(n, p1 + 1, p2 - p1 - 1)
            Else
                c = n
            End If
            If Range(c).Value = "" Then
                Range(c).Value = n.Name   '& ":" & n
            End If
        End If
    Next n
End Sub

Et merci encore...

Denis...