Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel attribuer un nom à la selection

attribuer un nom à la selection

3 réponses
Avatar
Christian M
Bonjour,

J'ai obtenu la procédure suivante avec l'enregistreur de macro.
Je souhaite que la sélection obtenu à la 2ème ligne du code soit nommée
"colcate" : comment faire sachant que R4 ne changera pas , le nombre de
lignes étant quant à lui variable ?

Merci de votre aide et bonne journée à tous

Sub col_categorie()
'
' col_categorie Macro
' Macro enregistrée le 17/12/2003 par xx'

'
Range("R4").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.Names.Add Name:="colcate", RefersToR1C1:= _
"=récapitulatif!R4C18:R68C18"
End Sub

--
Christian M
Adresse anti-spam :
http://www.cerbermail.com/?9mv8U5g4zk
---------------------------
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Emcy
Salut,

il manque quelques infos :
Décris plus précisement ton application : Quel est le
facteur qui détermine ton nombre de ligne ? est-ce que
toutes les lignes sont remplies, etc...

-----Message d'origine-----
Bonjour,

J'ai obtenu la procédure suivante avec l'enregistreur de
macro.

Je souhaite que la sélection obtenu à la 2ème ligne du
code soit nommée

"colcate" : comment faire sachant que R4 ne changera
pas , le nombre de

lignes étant quant à lui variable ?

Merci de votre aide et bonne journée à tous

Sub col_categorie()
'
' col_categorie Macro
' Macro enregistrée le 17/12/2003 par xx'

'
Range("R4").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.Names.Add Name:="colcate",
RefersToR1C1:= _

"=récapitulatif!R4C18:R68C18"
End Sub

--
Christian M
Adresse anti-spam :
http://www.cerbermail.com/?9mv8U5g4zk
---------------------------


.



Avatar
Ellimac
Bonjour,

Range("R4").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.Names.Add Name:="colcate",
RefersToR1C1:= selection

ou
ActiveWorkbook.Names.Add Name:="colcate", RefersToR1C1:=
range(range("a4"),range("a4").end(xldown))

Camille

-----Message d'origine-----
Bonjour,

J'ai obtenu la procédure suivante avec l'enregistreur de
macro.

Je souhaite que la sélection obtenu à la 2ème ligne du
code soit nommée

"colcate" : comment faire sachant que R4 ne changera
pas , le nombre de

lignes étant quant à lui variable ?

Merci de votre aide et bonne journée à tous

Sub col_categorie()
'
' col_categorie Macro
' Macro enregistrée le 17/12/2003 par xx'

'
Range("R4").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.Names.Add Name:="colcate",
RefersToR1C1:= _

"=récapitulatif!R4C18:R68C18"
End Sub

--
Christian M
Adresse anti-spam :
http://www.cerbermail.com/?9mv8U5g4zk
---------------------------


.



Avatar
Christian M
Merci Camille, çà marche impec !

--
Christian M
Adresse anti-spam :
http://www.cerbermail.com/?9mv8U5g4zk
---------------------------
"Ellimac" a écrit dans le message de
news:07b501c3c47a$efa50750$
Bonjour,

Range("R4").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.Names.Add Name:="colcate",
RefersToR1C1:= selection

ou
ActiveWorkbook.Names.Add Name:="colcate", RefersToR1C1: range(range("a4"),range("a4").end(xldown))

Camille

-----Message d'origine-----
Bonjour,

J'ai obtenu la procédure suivante avec l'enregistreur de
macro.

Je souhaite que la sélection obtenu à la 2ème ligne du
code soit nommée

"colcate" : comment faire sachant que R4 ne changera
pas , le nombre de

lignes étant quant à lui variable ?

Merci de votre aide et bonne journée à tous

Sub col_categorie()
'
' col_categorie Macro
' Macro enregistrée le 17/12/2003 par xx'

'
Range("R4").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.Names.Add Name:="colcate",
RefersToR1C1:= _

"=récapitulatif!R4C18:R68C18"
End Sub

--
Christian M
Adresse anti-spam :
http://www.cerbermail.com/?9mv8U5g4zk
---------------------------


.