Code pour créer des noms

Bonjour,

Pris par le temps, je cherche le code qui me permettrait de nommer chaque cellule d'une feuille à partir de H1 jusqu'à BC1

Nom de la cellule H1 : dmr_01

Nom de la cellule I1 : dmr_02

Nom de la cellule J1 : dmr_03

et ainsi de suite.

Vous remerciant.

Bruno H.

Bonjour,

Essaie ainsi :

Public Sub Create_names()
Dim nm As String
Dim I As Long, k As Long
    With ActiveSheet
        For I = 8 To 55
            k = k + 1
            nm = "drm_" & Format(k, "00")
            ActiveWorkbook.Names.Add Name:=nm, RefersTo:=.Cells(I)
        Next I
    End With
End Sub

Bonsoir,

Génial, merci beaucoup.

Bruno H.

Bonsoir, Salut Jean-Eric !

Et à quoi va te servir de nommer 48 cellules, alors qu'un seul nom dans la feuille suffit pour atteindre toute cellule de la feuille à partir de ce nom ! C'est juste surcharger inutilement ton classeur.

D'autant qu'en nommant H1 par exemple drm_, la numérotation suivra celle que tu donnais à tes noms :

H1 sera [drm_].Cells(1, 1), I1 sera [drm_].Cells(1, 2)... BC1 sera [drm_].Cells(1, 48)

Cordialement.