Re : Aide macro automatisation définition de noms de plages
Bonjour Hasco,
Merci également pour ton aide...
Dsl, mais en VBA je ne gère absolument rien... Pour être tout à fait franc, je ne comprends pas ce que tu veux que je fasse, bien que j'ai essayé de modifier la macro comme tu me le suggérais...
Une idée peut être avec ce code que l'on doit à BoisGautier, cf pièce jointe.
Sa macro pour champs dynamique correspondrait apparemment, mais comment l'intégrer à mon classeur, car j'ai fait plusieurs tests mais la macro bogue...
Sub déf_noms()
For Each c In Range([A1], [IV1].End(xlToLeft))
If Not IsEmpty(c.Offset(1, 0)) Then
ActiveWorkbook.Names.Add Name:=c, RefersTo:= _
"=OFFSET(" & c.Address & ",,,COUNTA(" & c.EntireColumn.Address & ")-1)"
End If
Next
End Sub
Pour rappel, je souhaite créer une macro qui automatise mes définitions de noms pour une colonne entière en les nommant par leur entête respective... Ces noms de champs doivent
pouvoir être utilisables dans tout le classeur, c'est à dire sans restriction sur l'Etendue", (terme utilisé dans onglet définitions de noms. cf photos ci-dessus ), mais la macro doit s
’exécuter seulement sur la feuille active. Actuellement, la macro proposée par LittleDave répond à tous les critères sauf qu'elle s'exécute sur toutes les feuilles de mon classeur...
De plus cette macro doit intégrer la formule suivante pour définir les noms: =DECALER('Feuille active'!$B$1;1;0;NBVAL('Feuille active'!$A:$A)-1;1)
Feuille active étant la feuille sur laquelle s'exécute la macro.
Espérant avoir été clair.
Merci.