bonjour,
je cherche à créer des nom de champs par macro en faisant une boucle sur un tableau de deux colonnes la première représente le nom du champs et la seconde contient l'adresse:
Barème_BBL_FTL_HU BBL!$H$6:$AI$11
Barème_BBL_FTL_IT BBL!$H$13:$AI$30
Barème_BBL_FTL_PL BBL!$H$32:$AI$43
Barème_BBL_FTL_RO BBL!$H$45:$AI$51
Barème_BBL_LTL_ES BBL!$H$53:$AI$104
Barème_BBL_LTL_PT BBL!$H$106:$AI$118
Barème_Dachser_LTL_AT Dachser!$H$6:$AI$100
Barème_Dachser_LTL_DE Dachser!$H$102:$AI$201
Barème_Dachser_LTL_FR Dachser!$H$203:$AI$302
Barème_Dimotrans_FTL_TR Dimotrans!$H$6:$AI$15
Barème_Dimotrans_LTL_GR Dimotrans!$H$17:$AI$23
Barème_Dimotrans_LTL_TR Dimotrans!$H$25:$AI$39
J'ai écris la macro suivante:
Sub MajNomChamp()
'
' Macro5 Macro
'
'
Dim compteur As Variant
Sheets("Tables").Select
Range("ak2:ak2").Select
compteur = Range(Selection, Selection.End(xlDown)).Count
For i = 1 To compteur
Cells(i + 1, 36 + 1).Select
nom = ActiveCell.Formula
Cells(i + 1, 36 + 2).Select
adresse = "=" & ActiveCell.Formula
ActiveWorkbook.Names.Add Name:=nom, RefersToR1C1:=adresse
Next
End Sub
Mais l'instruction : « ActiveWorkbook.Names.Add Name:=nom, RefersToR1C1:=adresse »
entre l'adresse avec des guillemets ce qui empêche le champs d'être reconnu par Excel.
Merci de votre aide.
je cherche à créer des nom de champs par macro en faisant une boucle sur un tableau de deux colonnes la première représente le nom du champs et la seconde contient l'adresse:
Barème_BBL_FTL_HU BBL!$H$6:$AI$11
Barème_BBL_FTL_IT BBL!$H$13:$AI$30
Barème_BBL_FTL_PL BBL!$H$32:$AI$43
Barème_BBL_FTL_RO BBL!$H$45:$AI$51
Barème_BBL_LTL_ES BBL!$H$53:$AI$104
Barème_BBL_LTL_PT BBL!$H$106:$AI$118
Barème_Dachser_LTL_AT Dachser!$H$6:$AI$100
Barème_Dachser_LTL_DE Dachser!$H$102:$AI$201
Barème_Dachser_LTL_FR Dachser!$H$203:$AI$302
Barème_Dimotrans_FTL_TR Dimotrans!$H$6:$AI$15
Barème_Dimotrans_LTL_GR Dimotrans!$H$17:$AI$23
Barème_Dimotrans_LTL_TR Dimotrans!$H$25:$AI$39
J'ai écris la macro suivante:
Sub MajNomChamp()
'
' Macro5 Macro
'
'
Dim compteur As Variant
Sheets("Tables").Select
Range("ak2:ak2").Select
compteur = Range(Selection, Selection.End(xlDown)).Count
For i = 1 To compteur
Cells(i + 1, 36 + 1).Select
nom = ActiveCell.Formula
Cells(i + 1, 36 + 2).Select
adresse = "=" & ActiveCell.Formula
ActiveWorkbook.Names.Add Name:=nom, RefersToR1C1:=adresse
Next
End Sub
Mais l'instruction : « ActiveWorkbook.Names.Add Name:=nom, RefersToR1C1:=adresse »
entre l'adresse avec des guillemets ce qui empêche le champs d'être reconnu par Excel.
Merci de votre aide.