[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.