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 Nom de plage

Nom de plage

9 réponses
Avatar
RV
Bonjour à tous,

Comment faire par macro pour copier dans un autre classeur une plage de
cellule(qui sont en fait des colonnes) nommée tout en concervant la dite
plage et son nom dans le classeur de destination?

Merci

Cordialement

Hervé
Signaler un problème avec ce contenu

9 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
Philippe.R
Bonjour Hervé,
Suggéré par l'enregistreur de macros :

Sub Copinomme()
' MPFE le 26/03/2005 par Philippe Raulet
ThisWorkbook.Activate
[zaza].Select
Selection.Copy
ActiveWindow.ActivateNext
Columns("C:C").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Names.Add Name:="zaza", RefersTo:="=$C:$E"
End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"RV" a écrit dans le message de news: %
Bonjour à tous,

Comment faire par macro pour copier dans un autre classeur une plage de
cellule(qui sont en fait des colonnes) nommée tout en concervant la dite
plage et son nom dans le classeur de destination?

Merci

Cordialement

Hervé




Avatar
MichDenis
Bonjour RV,

Pour copier toutes les plages de cellules NOMMÉES vers un nouveau classeur, tu peux utiliser ceci :

Cette procédure assume que les 2 classeurs possèdent des noms de feuilles identiques ... sinon il faudra adapter ...

La variable Wk doit être renseignée

'----------------------------------
Sub CopierPlagesNommées()

Dim Wk As String, Feuil As String
Dim Adr As String

Wk = "Classeur2" 'Nom du nouveau classeur

On Error Resume Next
For Each n In ThisWorkbook.Names
'Test pour s'assurer que le nom représente
'une plage de cellules
Set Rg = Range(n.RefersToRange.Address)
If Err = 0 Then
Feuil = Range(n).Parent.Name
Adr = Range(n).Address
ThisWorkbook.Sheets(Feuil).Range(n).Copy _
Workbooks(Wk).Sheets(Feuil).Range(Adr)
Workbooks(Wk).Sheets(Feuil).Range(Adr).Name = n.Name
Else
Err = 0
End If
Next
Set Rg = Nothing
End Sub
'----------------------------------


Salutations!





"RV" a écrit dans le message de news: %
Bonjour à tous,

Comment faire par macro pour copier dans un autre classeur une plage de
cellule(qui sont en fait des colonnes) nommée tout en concervant la dite
plage et son nom dans le classeur de destination?

Merci

Cordialement

Hervé
Avatar
RV
Bonsoir Philippe,

Merci pour la réponse, mais ce que propose MichDenis convient mieux à mes
besoins.

Bon week end Pascal

Cordialement

hervé


"Philippe.R" a écrit dans le message de
news:
Bonjour Hervé,
Suggéré par l'enregistreur de macros :

Sub Copinomme()
' MPFE le 26/03/2005 par Philippe Raulet
ThisWorkbook.Activate
[zaza].Select
Selection.Copy
ActiveWindow.ActivateNext
Columns("C:C").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Names.Add Name:="zaza", RefersTo:="=$C:$E"
End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"RV" a écrit dans le message de news:
%

Bonjour à tous,

Comment faire par macro pour copier dans un autre classeur une plage de
cellule(qui sont en fait des colonnes) nommée tout en concervant la dite
plage et son nom dans le classeur de destination?

Merci

Cordialement

Hervé







Avatar
RV
Bonsoir MichDenis,

J'ai lu la syntaxe de Philippe mais la tienne correspond à ce que je
souhaite.
Car en fait je ne desire par renommer la plage de cellule sur le nouveau
classeur mais bien à copier le tout de façon indivisible depuis le 1er
classeur.

Merci et bon week end Pascal

Cordialement

Hervé


"MichDenis" a écrit dans le message de
news:
Bonjour RV,

Pour copier toutes les plages de cellules NOMMÉES vers un nouveau
classeur, tu peux utiliser ceci :


Cette procédure assume que les 2 classeurs possèdent des noms de feuilles
identiques ... sinon il faudra adapter ...


La variable Wk doit être renseignée

'----------------------------------
Sub CopierPlagesNommées()

Dim Wk As String, Feuil As String
Dim Adr As String

Wk = "Classeur2" 'Nom du nouveau classeur

On Error Resume Next
For Each n In ThisWorkbook.Names
'Test pour s'assurer que le nom représente
'une plage de cellules
Set Rg = Range(n.RefersToRange.Address)
If Err = 0 Then
Feuil = Range(n).Parent.Name
Adr = Range(n).Address
ThisWorkbook.Sheets(Feuil).Range(n).Copy _
Workbooks(Wk).Sheets(Feuil).Range(Adr)
Workbooks(Wk).Sheets(Feuil).Range(Adr).Name = n.Name
Else
Err = 0
End If
Next
Set Rg = Nothing
End Sub
'----------------------------------


Salutations!





"RV" a écrit dans le message de news:
%

Bonjour à tous,

Comment faire par macro pour copier dans un autre classeur une plage de
cellule(qui sont en fait des colonnes) nommée tout en concervant la dite
plage et son nom dans le classeur de destination?

Merci

Cordialement

Hervé





Avatar
Philippe.R
Tant mieux, tant mieux !

"RV" a écrit dans le message de news: eyv%
Bonsoir Philippe,

Merci pour la réponse, mais ce que propose MichDenis convient mieux à mes
besoins.

Bon week end Pascal

Cordialement

hervé


"Philippe.R" a écrit dans le message de
news:
Bonjour Hervé,
Suggéré par l'enregistreur de macros :

Sub Copinomme()
' MPFE le 26/03/2005 par Philippe Raulet
ThisWorkbook.Activate
[zaza].Select
Selection.Copy
ActiveWindow.ActivateNext
Columns("C:C").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Names.Add Name:="zaza", RefersTo:="=$C:$E"
End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"RV" a écrit dans le message de news:
%

Bonjour à tous,

Comment faire par macro pour copier dans un autre classeur une plage de
cellule(qui sont en fait des colonnes) nommée tout en concervant la dite
plage et son nom dans le classeur de destination?

Merci

Cordialement

Hervé











Avatar
jps
...répondit l'homme quelque peu dé(ca)pité par la réponse de RV
jps

"Philippe.R" a écrit dans le message de
news:
Tant mieux, tant mieux !

"RV" a écrit dans le message de news:
eyv%

Bonsoir Philippe,

Merci pour la réponse, mais ce que propose MichDenis convient mieux à
mes


besoins.

Bon week end Pascal

Cordialement

hervé


"Philippe.R" a écrit dans le message de
news:
Bonjour Hervé,
Suggéré par l'enregistreur de macros :

Sub Copinomme()
' MPFE le 26/03/2005 par Philippe Raulet
ThisWorkbook.Activate
[zaza].Select
Selection.Copy
ActiveWindow.ActivateNext
Columns("C:C").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Names.Add Name:="zaza", RefersTo:="=$C:$E"
End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"RV" a écrit dans le message de news:
%

Bonjour à tous,

Comment faire par macro pour copier dans un autre classeur une plage
de




cellule(qui sont en fait des colonnes) nommée tout en concervant la
dite




plage et son nom dans le classeur de destination?

Merci

Cordialement

Hervé














Avatar
ChrisV
Merci et bon week end Pascal


Non..non...
lui c'est Denis RV...
;-)

ChrisV
[Bof...]


"RV" a écrit dans le message de news:
eezo%
Bonsoir MichDenis,

J'ai lu la syntaxe de Philippe mais la tienne correspond à ce que je
souhaite.
Car en fait je ne desire par renommer la plage de cellule sur le nouveau
classeur mais bien à copier le tout de façon indivisible depuis le 1er
classeur.

Merci et bon week end Pascal

Cordialement

Hervé


"MichDenis" a écrit dans le message de
news:
Bonjour RV,

Pour copier toutes les plages de cellules NOMMÉES vers un nouveau
classeur, tu peux utiliser ceci :


Cette procédure assume que les 2 classeurs possèdent des noms de feuilles
identiques ... sinon il faudra adapter ...


La variable Wk doit être renseignée

'----------------------------------
Sub CopierPlagesNommées()

Dim Wk As String, Feuil As String
Dim Adr As String

Wk = "Classeur2" 'Nom du nouveau classeur

On Error Resume Next
For Each n In ThisWorkbook.Names
'Test pour s'assurer que le nom représente
'une plage de cellules
Set Rg = Range(n.RefersToRange.Address)
If Err = 0 Then
Feuil = Range(n).Parent.Name
Adr = Range(n).Address
ThisWorkbook.Sheets(Feuil).Range(n).Copy _
Workbooks(Wk).Sheets(Feuil).Range(Adr)
Workbooks(Wk).Sheets(Feuil).Range(Adr).Name = n.Name
Else
Err = 0
End If
Next
Set Rg = Nothing
End Sub
'----------------------------------


Salutations!





"RV" a écrit dans le message de news:
%

Bonjour à tous,

Comment faire par macro pour copier dans un autre classeur une plage de
cellule(qui sont en fait des colonnes) nommée tout en concervant la dite
plage et son nom dans le classeur de destination?

Merci

Cordialement

Hervé









Avatar
jps
vit pas trop bien le changement d'heure, le chrisV....
allez, les autres, debout là-dedans, z'avez vu l'heure?
jps

"ChrisV" a écrit dans le message de
news:%
Merci et bon week end Pascal


Non..non...
lui c'est Denis RV...
;-)

ChrisV
[Bof...]


"RV" a écrit dans le message de news:
eezo%
Bonsoir MichDenis,

J'ai lu la syntaxe de Philippe mais la tienne correspond à ce que je
souhaite.
Car en fait je ne desire par renommer la plage de cellule sur le nouveau
classeur mais bien à copier le tout de façon indivisible depuis le 1er
classeur.

Merci et bon week end Pascal

Cordialement

Hervé


"MichDenis" a écrit dans le message de
news:
Bonjour RV,

Pour copier toutes les plages de cellules NOMMÉES vers un nouveau
classeur, tu peux utiliser ceci :


Cette procédure assume que les 2 classeurs possèdent des noms de
feuilles



identiques ... sinon il faudra adapter ...

La variable Wk doit être renseignée

'----------------------------------
Sub CopierPlagesNommées()

Dim Wk As String, Feuil As String
Dim Adr As String

Wk = "Classeur2" 'Nom du nouveau classeur

On Error Resume Next
For Each n In ThisWorkbook.Names
'Test pour s'assurer que le nom représente
'une plage de cellules
Set Rg = Range(n.RefersToRange.Address)
If Err = 0 Then
Feuil = Range(n).Parent.Name
Adr = Range(n).Address
ThisWorkbook.Sheets(Feuil).Range(n).Copy _
Workbooks(Wk).Sheets(Feuil).Range(Adr)
Workbooks(Wk).Sheets(Feuil).Range(Adr).Name = n.Name
Else
Err = 0
End If
Next
Set Rg = Nothing
End Sub
'----------------------------------


Salutations!





"RV" a écrit dans le message de news:
%

Bonjour à tous,

Comment faire par macro pour copier dans un autre classeur une plage de
cellule(qui sont en fait des colonnes) nommée tout en concervant la
dite



plage et son nom dans le classeur de destination?

Merci

Cordialement

Hervé













Avatar
ChrisV
%-)


ChrisV


"jps" a écrit dans le message de news:

vit pas trop bien le changement d'heure, le chrisV....
allez, les autres, debout là-dedans, z'avez vu l'heure?
jps

"ChrisV" a écrit dans le message de
news:%
Merci et bon week end Pascal


Non..non...
lui c'est Denis RV...
;-)

ChrisV
[Bof...]


"RV" a écrit dans le message de news:
eezo%
Bonsoir MichDenis,

J'ai lu la syntaxe de Philippe mais la tienne correspond à ce que je
souhaite.
Car en fait je ne desire par renommer la plage de cellule sur le
nouveau
classeur mais bien à copier le tout de façon indivisible depuis le 1er
classeur.

Merci et bon week end Pascal

Cordialement

Hervé


"MichDenis" a écrit dans le message de
news:
Bonjour RV,

Pour copier toutes les plages de cellules NOMMÉES vers un nouveau
classeur, tu peux utiliser ceci :


Cette procédure assume que les 2 classeurs possèdent des noms de
feuilles



identiques ... sinon il faudra adapter ...

La variable Wk doit être renseignée

'----------------------------------
Sub CopierPlagesNommées()

Dim Wk As String, Feuil As String
Dim Adr As String

Wk = "Classeur2" 'Nom du nouveau classeur

On Error Resume Next
For Each n In ThisWorkbook.Names
'Test pour s'assurer que le nom représente
'une plage de cellules
Set Rg = Range(n.RefersToRange.Address)
If Err = 0 Then
Feuil = Range(n).Parent.Name
Adr = Range(n).Address
ThisWorkbook.Sheets(Feuil).Range(n).Copy _
Workbooks(Wk).Sheets(Feuil).Range(Adr)
Workbooks(Wk).Sheets(Feuil).Range(Adr).Name = n.Name
Else
Err = 0
End If
Next
Set Rg = Nothing
End Sub
'----------------------------------


Salutations!





"RV" a écrit dans le message de news:
%

Bonjour à tous,

Comment faire par macro pour copier dans un autre classeur une plage
de
cellule(qui sont en fait des colonnes) nommée tout en concervant la
dite



plage et son nom dans le classeur de destination?

Merci

Cordialement

Hervé