Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

correction macro nommer un plage de cellule variable

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

lestards

XLDnaute Nouveau
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
 
Re : correction macro nommer un plage de cellule variable

Bonsoir lestards,

Voici la correction à apporter :
VB:
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+
 
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 😉
Code:
Sub plageA()
Range("DONNEES!$A$15:$A$34").Name = "coordonnées"
End Sub

Ou si on veut vraiment passé par un cellule
Code:
Sub plageAB()
Dim ADR$: ADR = Range("ACCUEIL!$A$1").Text: Range(ADR).Name = "coordonnées"
End Sub
 
Dernière édition:
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.

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

Les mystères d'EXCEL...

A+
 
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.
Code:
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 😉 )
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…