correction macro nommer un plage de cellule variable

[lestards]

bonsoir

j ai une cellule qui me donne l adresse d un plage de cellules a laquelle je souhaite donner un nom

seulement quand j execute mla macro, elle est bien créé , nommée mais la reference des cellules , est en texte (avec des guillemet)

comment supprimer ces guillemet ou tout simplement ne pas les avoir

merci d avance

ci dessous la macro en question

Sub plage ()

Dim adresse1 As String
adresse1 = Range("ACCUEIL!$A$1")'valeur de la cellule "DONNEES!$A$15:$A$34"
ActiveWorkbook.Names.Add Name:="coordonnées", RefersTo:=adresse1

End Sub

 

[Fred0o]

Re : correction macro nommer un plage de cellule variable

Bonsoir lestards,

Voici la correction à apporter :

Sub plage()
    Dim adresse1 As String
    adresse1 = Range("ACCUEIL!$A$1") 'valeur de la cellule "DONNEES!$A$15:$A$34"
    ActiveWorkbook.Names.Add Name:="coordonnées", RefersTo:="=" & adresse1
End Sub

A+

 

[lestards]

Re : correction macro nommer un plage de cellule variable

merci !! c est nickel !

bonne soirée

 

[Staple1600]

Re : correction macro nommer un plage de cellule variable

Bonsoir

Question au demandeur:
Pourquoi pas de cette autre façon un chouïa plus brève

Sub plageA()
Range("DONNEES!$A$15:$A$34").Name = "coordonnées"
End Sub

Ou si on veut vraiment passé par un cellule

Sub plageAB()
Dim ADR$: ADR = Range("ACCUEIL!$A$1").Text: Range(ADR).Name = "coordonnées"
End Sub

 

[lestards]

Re : correction macro nommer un plage de cellule variable

Parce que la valeur est variable
Par contre la 2 e version ,ca a l air de l etre ?
Merci

 

[Fred0o]

Re : correction macro nommer un plage de cellule variable

Re-bonsoir,

@Staple : J'ai essayé ton code sans passer par une variable et cela plante.

Range(Range("ACCUEIL!$A$1").Text).Name = "coordonnées"

Les mystères d'EXCEL...

A+

 

[Staple1600]

Re : correction macro nommer un plage de cellule variable

Bonsoir

Pas de plantage ici sur ce pc(qui n'est pas le mien) mais qui est sous Excel 2003.

Sub Test_Fredoo_OK_ici()
Range(Range("ACCUEIL!$A$1").Text).Name = "coordonnées"
Application.Goto ["coordonnées"], True 'pour test
End Sub

NB: en A1, on a cette valeur: DONNEES!$A$15:$A$34

PS: Les deux codes que j'ai proposé plus bas fonctionnaient, j'avais testé avant de poster )

 

[lestards]

Re : correction macro nommer un plage de cellule variable

ok staple ca marche nickel aussi

merci !

 

[Fred0o]

Re : correction macro nommer un plage de cellule variable

Bonjour à tous,

OK retesté et cela fonctionne.

?????

A+