Renommer une plage de données relative

jpouzoulet Messages postés 22 Date d'inscription   Statut Membre Dernière intervention   -  
michel_m Messages postés 16602 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..


A voir également:

3 réponses

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

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


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

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