corretion code

[alf43]

salut le forum,
qq1 pour corriger mon code ?

i = Range("a65536").End(xlUp).Row
Range("A1:H" & i).Select
ActiveWorkbook.Names.Add Name:="BG", RefersToR1C1:="A1:H" & i

je veux nommer ma zone variable mais lorsque je lance macro il remplace toutes les cellules de la zone par des valeurs " VRAI " .

 

[Pierrot93]

Re : corretion code

Bonsoir Alf

regarde le code ci dessous :

ActiveWorkbook.Names.Add Name:="BG", RefersTo:="=Feuil1!" & _
    Range("A1:H" & Range("a65536").End(xlUp).Row).Address

bonne soirée.
@+

 

[Robert]

Re : corretion code

Bonjour Alf, Pierrot, Bonjour le forum,

tu peux essayer aussi comme ça :

i = Range("a65536").End(xlUp).Row
Range("A1:H" & i).Name = "BG"

 

[Staple1600]

Re : corretion code

Bonjour à tous


Arrivé après la bataille
Sub test()
ActiveWorkbook.Names.Add Name:="BG", RefersToR1C1:=Range("A1:H" & [A65536].End(xlUp).Row)
End Sub

En modifiant le code de Robert (merci)
Sub test2()
Range("A1:H" & [A65536].End(xlUp).Row).Name = "BG"
End Sub

 

[alf43]

Re : correction code

salut robert et pierrot
pas de resultats avec ton code pierrot par contre je me suis aperçu que ma zone de cellules venant d'un paste est déjà sélectionnée j'ai simplement mis:
ActiveWorkbook.Names.Add Name:="BG", RefersTo:=Selection
et ça à l'air de marcher
merci de votre aide
à+ sur le forum
alf