J'ai 350 sites avec des spécificités propres à chacun. J'ai créé des listes
avec chacunes des spécificités, et je cherche à rapidement nommer mes
plages, plutot que de les rentrer à la main.
En A1, j'ai le nom de mon 1er site.
en A2,A3,..., j'ai les differentes typologies d'appartements. Je voudrais si
possible nommer la plage des typo par "Typo"&A1
En B1, j'ai mon second site ....avec des typo differentes, donc une nouvelle
plage "Typo"&"B2.
sachant que mes typo peuvent varier, je pensais à la fonction décaler pour
avoir des listes modifiables.
Suis-je un peu trop gourmand, ou est -il possible de nommer toutes ces
plages directement par macro en créant une boucle jusqu'à ce qu'il ne trouve
plus de données?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JpPradier
Bonjour choko
En adaptant le nom de la feuille éventuellement :
Sub DefNoms()
fin = Range("a65536").End(xlUp).Row For i = 1 To fin finLign = Range("IV" & i).End(xlToLeft).Column plage = "þuil1!R" & i & "C2:R" & i & "C" & finLign nom = Range("a" & i).Value Range("D4:E10").Select ActiveWorkbook.Names.Add Name:=nom, RefersToR1C1:=plage Next End Sub
j-p
Bonjour choko
En adaptant le nom de la feuille éventuellement :
Sub DefNoms()
fin = Range("a65536").End(xlUp).Row
For i = 1 To fin
finLign = Range("IV" & i).End(xlToLeft).Column
plage = "þuil1!R" & i & "C2:R" & i & "C" & finLign
nom = Range("a" & i).Value
Range("D4:E10").Select
ActiveWorkbook.Names.Add Name:=nom, RefersToR1C1:=plage
Next
End Sub
fin = Range("a65536").End(xlUp).Row For i = 1 To fin finLign = Range("IV" & i).End(xlToLeft).Column plage = "þuil1!R" & i & "C2:R" & i & "C" & finLign nom = Range("a" & i).Value Range("D4:E10").Select ActiveWorkbook.Names.Add Name:=nom, RefersToR1C1:=plage Next End Sub
