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

  1. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    Bonjour,

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


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

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