[Résolu] Macro Excel définir le nom d'une palge de cellules

Macro Excel définir le nom d'une palge de cellules [Résolu] - VB/VBA/VBS - Programmation

Marsh Posté le 31-10-2005 à 10:57:45    

Bonjour,
 
Je voudrais selectionner toutes les cellules d'une feuille puis leur définir un nom le tout via une macro vu qu'il faut automatiser l'action.
 
Voici donc cce que j ai:

Code :
  1. Selection.End(xlUp).Select
  2.     Range("A1" ).Select
  3.     Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
  4.     ActiveWorkbook.Names.Add Name:="Tableau", RefersToR1C1:= _
  5.         "='Report Result'!R1C1:R2470C34"


Cela me selectionne effectivement toutes les cellules mais quand il définit le tableauil ne lui attribue pas la plage de cellule activée. Je suppose donc que c'est la ligne

Code :
  1. ActiveWorkbook.Names.Add Name:="Tableau", RefersToR1C1:= _
  2.         "='Report Result'!R1C1:R2470C34"


Mais débutant dans les macro je ne sais pas comment faire...
 
D'avance merci
 
Ben


Message édité par the big ben le 31-10-2005 à 11:46:57
Reply

Marsh Posté le 31-10-2005 à 10:57:45   

Reply

Marsh Posté le 31-10-2005 à 11:46:23    

Ok j ai trouvé. Pour info:  

Code :
  1. Dim MyArea As String
  3.     LastRow = Cells(65536, 1).End(xlUp).Row
  4.     LastCol = Cells(1, 255).End(xlToLeft).Column
  5.     MyArea = "='" & ActiveSheet.Name & "'!R1C1:R" & LastRow & "C" & LastCol
  6.     ActiveWorkbook.Names.Add Name:="Tableau", RefersToR1C1:=MyArea


Message édité par the big ben le 31-10-2005 à 11:46:35
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed