[Résolu] - Copier coller zone nommée dynamique

[castor30]

Bonjour le forum,
Je cherche code pour faire l'action suivante :
de Feuil1 copier zone nommée "Noms"
pour coller valeurs :
en Feuil2 coller dans cellule nommée "Nom"
En vous remerciant.

 

[Staple1600]

Bonsoir le fil, le forum

Ceci devrait faire l'affaire, non ?
[Noms].Copy [Nom]

 

[castor30]

Bonsoir Staple1600
J'avais oublier de préciser : coller valeurs
Tu veux dire :
[Noms].Copy [Nom].PasteSpecial xlValues

 

[castor30]

Sub test()
[Noms].Copy [Nom].PasteSpecialxlValues
End Sub
ça affiche erreur 424 : objet requis

 

[Staple1600]

Re

Ce n'est pas la macro que j'ai écris
Commences par tester ce que je te propose
Ton premier message n'indiquait que tu voulais une copie Valeurs seules

Donc pour Valeurs seules, on pouvait écrire

Sub z()
[Noms].Copy: [Nom].PasteSpecial -4163
End Sub

 

[castor30]

Re

Sub test()
[Noms].Copy [Nom]
End Sub

erreur 1004
erreur définie par l'application ou par l'objet

 

[JBARBE]

Bonsoir à tous,
Peut-être ceci :

Sub Macro1()
Range("Noms").Copy
Sheets("Feuil2").Select
Range("Nom").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   Application.CutCopyMode = False
End Sub

 

[castor30]

Bonsoir JBARBE
Merci de t'intéresser à ma demande
J'ai erreur 1004 ici :
Range("Noms").Select

 

[Staple1600]

Re

Castor30
Mets tes lunettes
Tu as zappé cette macro, non ?

Sub z()
[Noms].Copy: [Nom].PasteSpecial -4163
End Sub

Précisions: je teste mes codes avant de les poster, et ils fonctionnent ... sinon je ne les posterai pas

 

[JBARBE]

Bonsoir JBARBE
Merci de t'intéresser à ma demande
J'ai erreur 1004 ici :
Range("Noms").Select

Re,
Voie mon fichier ci-joint !

Sub Macro1()
    Range("Noms").Copy
    Sheets("Feuil2").Select
    Range("Nom").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

Bonne soirée !

 

[castor30]

Re,
Staple :
Tu as zappé cette macro, non ?
Code (Visual Basic):
Sub z()
[Noms].Copy: [Nom].PasteSpecial -4163
End Sub
Je ne l'avais pas vu, que veux dire -4163
Avec ou sans -4163 j'ai toujours l'erreur

JBARBE :
Ton code fonctionne sur ton fichier et pas sur le mien j'ai toujours erreur 1004
J'ai changé (pour voir) les noms des zones nommés :
Liste (pour copier)
Nom_Prenom (pour coller) et j'ai aussi erreur 1004
Je perd la tête - est-ce du au fait que je suis sous Xl 2003 ?

Sub test()
    Range("Liste").Copy
    Sheets("Feuil2").Select
    Range("Nom_Prenom").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

 

[Staple1600]

Re

Cela veut dire : xlPasteValues

Chez moi, la macro z fonctionne.

Mais ...

Comme on ne sait ce que représente la plage nommée Nom
(combien de cellules contient-elle?)

Comme tu n'as pas joint de fichier exemple
Cela ne m'étonne pas que cela ne fonctionne pas chez toi ​

 

[castor30]

Une copie du fichier

 

[Staple1600]

Re

Allez, histoire de clore le truc
Testes cette macro dans un classeur vierge

Sub la_Preuve_que_Ca_marche()
'création des éléments pour test
Feuil1.Cells.Clear: Feuil2.Cells.Clear
Feuil1.[A1:C5].Name = "Noms": Feuil2.[C8:CF15].Name = "Nom"
[Noms] = "=RAND()": [Noms].Font.Bold = True: [Noms].Interior.Color = RGB(123, 241, 158)

'recopie
[Noms].Copy: [Nom].PasteSpecial -4163
'CQFD
End Sub

Edition: J'attends que tu testes cette dernière macro et tes commentaires d’après test.

PS:je connais déjà ce fichier et ce fil ou je te conseillais une autre voie (je persiste et signe)

Bonjour le fil, le forum

castor30
Pourquoi se dispenser des possibilités offertes par la suite Office ?
https://support.office.com/fr-fr/article/Utiliser-le-publipostage-pour-envoyer-des-messages-électroniques-en-bloc-0f123521-20ce-4aa8-8b62-ac211dedefa4

En plus avec cette solution, pas de VBA à manipuler (et comme tu indiques ne pas le maitriser), ta question est rapidement résolue, non ?

 

[castor30]

Re,
la macro fonctionne sur classeur vierge.
J'arrête car je ne comprends plus rien.
Merci à vous, je verrai demain.