Nommer une plage avec le texte de la cellule active

Bonjour à tous

je souhaite nommer une plage relative à une cellule avec le contenu (du texte) de la cellule active, et ce pour toute une ligne de mon tableau, cette ligne contenant les noms de champ de mes colonnes de données.

Ci dessous le code imaginé, mais je n'arrive pas à concrétiser le nom de la plage.

Sub NommerColonnes2()

Dim i As Integer

Cells(8, 1).Select '  cellule de départ

    For i = 1 To 'dernière cellule non vide de la ligne'
    ActiveWorkbook.Names.Add Name:="le contenu de la cellule !!", _
    RefersToR1C1:=Sheets("Test").Range(Cells(8, i))
    Next

End Sub

Merci d'avance pour votre aide.

Frederic

Bonjour

A tester

Sub NommerColonnes2()
Dim I As Integer

  For I = 1 To Cells(8, Columns.Count).End(xlToLeft).Column
    ActiveWorkbook.Names.Add Name:=Cells(8, I), _
          RefersTo:="=Test!" & Sheets("Test").Cells(8, I).Address
  Next I
End Sub

Bonjour,

Un essai à tester. Cdlt

Option Explicit
Public Sub Nommer()
Dim derCol As Integer
    derCol = Cells(8, Cells.Columns.Count).End(xlToLeft).Column
    Range(Cells(8, 1), Cells(8, derCol)).CreateNames Left:=True
End Sub

Banzai64 a écrit :

Bonjour

A tester

Sub NommerColonnes2()
Dim I As Integer

  For I = 1 To Cells(8, Columns.Count).End(xlToLeft).Column
    ActiveWorkbook.Names.Add Name:=Cells(8, I), _
          RefersTo:="=Test!" & Sheets("Test").Cells(8, I).Address
  Next I
End Sub

Bonjour Banzai

Impec

merci encore!

Frederic

Jean-Eric a écrit :

Bonjour,

Un essai à tester. Cdlt

Option Explicit
Public Sub Nommer()
Dim derCol As Integer
    derCol = Cells(8, Cells.Columns.Count).End(xlToLeft).Column
    Range(Cells(8, 1), Cells(8, derCol)).CreateNames Left:=True
End Sub

Bonjour Jean Eric

Cà ne fonctionne pas tout à fait.

Il me nomme la plage B8:C8 avec le contenu de la cellule A8.

Je suis donc parti sur le code de Banzai.

Merci quand même pour ta participation

Frederic