Microsoft 365 attribuer un nom à une plage de cellules issues d'un collage

[bzhjenny]

Bonjour,

Je voudrais attribuer un nom à un ensemble de cellules issu d'un collage.



Select Case choix1 ' si travail affecté gaz collage permis à suivre
Case 1
Sheets("Trvx affectés gaz").Select
Application.Goto Reference:="Travail_affecté_gaz" 'va chercher les infos sous onglet
Selection.Copy 'ordre de copy de la zone nommée ligne suivante
Sheets("Création permis").Select ' Sélectionne la zone nommée
Range("A5000").End(xlUp).Offset(3, 0).Select 'se positionne à la suite des lignes occupées
ActiveSheet.Paste 'colle la zone nommée
Application.CutCopyMode = False
ActiveWorkbook.Names.Add Name:="Gaz_to_print", RefersToR1C1:= _
"='Création permis'!R67C1:R164C10"
ActiveWorkbook.Names("Gaz_to_print").Comment = ""

Dans l'extrait de la macro ci-dessus je souhaiterais que la zone issue du collage soit directement nommée "Gaz_to_print" indépendamment de la référence des cellules. En effet le collage dépend d'autres paramètres et les cellules ne sont donc pas toujours collées au même endroit.
Est-ce possible ? Si oui comment ?

Merci de votre aide.

Jenny

 

[job75]

Bonjour bzhjenny,

Je ne comprends pas grand-chose à votre code.

Mais pour nommer la plage sélectionnée après collage c'est très simple :

Selection.Name = "Gaz_to_print"

A+

 

[bzhjenny]

Super ! Merci de votre réponse !