Renommer une plage de données relative

Fermé
jpouzoulet Messages postés 22 Date d'inscription vendredi 21 juin 2013 Statut Membre Dernière intervention 1 janvier 2015 - 1 janv. 2015 à 17:19
michel_m Messages postés 16593 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 7 mars 2023 - 2 janv. 2015 à 12:06
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 24510 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 18 mars 2023 7 166
1 janv. 2015 à 18:53
Bonjour,

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


eric
1
jpouzoulet Messages postés 22 Date d'inscription vendredi 21 juin 2013 Statut Membre Dernière intervention 1 janvier 2015
1 janv. 2015 à 18:58
Merci...
Bonne année 2015
0
michel_m Messages postés 16593 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 7 mars 2023 3 291
2 janv. 2015 à 12:06
Bonjour

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