Renommer une plage de données relative

jpouzoulet Messages postés 23 Statut Membre -  
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,
je souhaite renommer une plage de données pour ensuite pouvoir l'utiliser dans différentes fonctions telle que celle qui dédoublonne..
Les messages des forums ne correspondent jamais au même type de problème, en effet je selectionne une plage relativement au nombre de ligne qui n'est pas fixé.

Je vous soumets le code :

Range("A20:B20").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("M2").Select
ActiveSheet.Paste
Range("M2:N2").Select
Range(Selection, Selection.End(xlDown)).Name=Adedoublonner
Application.CutCopyMode = False
ActiveSheet.Range("Adedoublonner").RemoveDuplicates Columns:=Array(1, 2), Header _
:=xlNo

Je n'arrive pas a renommer la plage Adedoublonner..

3 réponses

eriiic Messages postés 25847 Date d'inscription   Statut Contributeur Dernière intervention   7 282
 
Bonjour,

Range(Selection, Selection.End(xlDown)).Name="Adedoublonner"


eric
1
jpouzoulet Messages postés 23 Statut Membre
 
Merci...
Bonne année 2015
0
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
Bonjour

avec l'enregistreur de macro
par exemple (à adapter)
Range("B2:B23").Select
ActiveWorkbook.Names.Add Name:="toto", RefersToR1C1:="=Feuil1!R2C2:R23C2"
0