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

Staple1600

XLDnaute Barbatruc

• 29 Septembre 2017

• #2

Bonsoir le fil, le forum

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

 

Vote positif 0 Vote négatif

castor30

XLDnaute Occasionnel

• 29 Septembre 2017

• #3

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

 

Dernière édition: 29 Septembre 2017

Vote positif 0 Vote négatif

castor30

XLDnaute Occasionnel

• 29 Septembre 2017

• #4

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 29 Septembre 2017

• #5

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

VB:

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

 

Vote positif 0 Vote négatif

castor30

XLDnaute Occasionnel

• 29 Septembre 2017

• #6

Re

VB:

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

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

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 29 Septembre 2017

• #7

Bonsoir à tous,
Peut-être ceci :

Code:

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

 

Pièces jointes

• testB.xls

  56 KB · Affichages: 22

Dernière édition: 29 Septembre 2017

Vote positif 0 Vote négatif

castor30

XLDnaute Occasionnel

• 29 Septembre 2017

• #8

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 29 Septembre 2017

• #9

Re

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

VB:

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

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 29 Septembre 2017

• #10

castor30 à dit:

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

Cliquez pour agrandir...

Re,
Voie mon fichier ci-joint !

Code:

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 !

 

Pièces jointes

• testB.xls

  56 KB · Affichages: 28

Vote positif 0 Vote négatif

castor30

XLDnaute Occasionnel

• 29 Septembre 2017

• #11

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 ?

VB:

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 29 Septembre 2017

• #12

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 ​

 

Vote positif 0 Vote négatif

castor30

XLDnaute Occasionnel

• 29 Septembre 2017

• #13

Une copie du fichier

 

Pièces jointes

• Envoyer mails à partir feuille Xl - Copie.xls

  104.5 KB · Affichages: 27

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 29 Septembre 2017

• #14

Re

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

VB:

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)

Staple1600 à dit:

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 ?

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

castor30

XLDnaute Occasionnel

• 29 Septembre 2017

• #15

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

 

Vote positif 0 Vote négatif