Copier/coller sans la mise en forme

Bonjour,

j'utilise ces lignes à plusieurs reprise, avec des destinations et de copier/coller qui changent.

Ces lignes me vont bien car c'est assez court mais je n'arrive pas à trouver comment utiliser .PasteSpecial Paste:=xlPasteValues.

DerLig = Sheet2.Range("A" & Rows.Count).End(xlUp).Row
Sheet1.Range("D2").Copy Sheet2.Range("A" & DerLig + 1)
Sheet1.Range("D5").Copy Sheet2.Range("B" & DerLig + 1)
Sheet1.Range("D7").Copy Sheet2.Range("C" & DerLig + 1)
Sheet1.Range("F2").Copy Sheet2.Range("D" & DerLig + 1)
Sheet1.Range("F5").Copy Sheet2.Range("E" & DerLig + 1)
...

Merci.

Hello,

Avec cette méthode, tu ne peux pas faire du collage spécial en valeur. Il faut que tu insères une sélection :

Sheet2.select
DerLig = Sheet2.Range("A" & Rows.Count).End(xlUp).Row

Range("D2").select
Selection.Copy
Range("A" & DerLig + 1).select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("D5").select
Selection.Copy
Range("B" & DerLig + 1).select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

etc...

Hello,

Il faut retourner à la ligne :

Sheets("Sheet1").Range("A1").Copy
Sheets("Sheet2").Range("B1").PasteSpecial Paste:=xlPasteValues

R@g

Merci pour vos réponses.

Rag02700, le fait de faire un retour à la ligne je perd ma recherche de la dernière ligne.

Baroute78, une erreur survient sur ces deux lignes :

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=Fals

Je pense que je vais travailler le tableau à la fin de la copie.

En tout merci pour vos idées

Ce n'est pas ce que tu cherches à faire ?

Exactement Rag02700

Je ne vois plus pourquoi ça ne marchait pas, je fais trop de modification.

Intégré à mon c'est nickel.

Merci beaucoup pour ce coup de main et je retiendrais que je ne peux pas le faire en une seule ligne.

Bonne soirée.

Hello.

Et ça?

Sheet2.Range("A" & DerLig + 1).value = Sheet1.Range("D2").value

Bonjour JoyeuxNoel,

Ça revient à ça, sauf qu'on travaille dans l'autre sens, non ?

Sheet1.Range("D2").Copy Sheet2.Range("A" & DerLig + 1)

J'ai intégré la solution de Rag02700 qui me permet de mettre un filtre. Il fallait tout simplement coupé ma ligne en deux.

Feuil1.Range("D2").Copy
Feuil2.Range("A" & DerLig + 1).PasteSpecial Paste:=xlPasteValues

Merci pour ta participation sur ce sujet

Bonne soirée.

As-tu essayé ?

Bonjour JoyeuxNoel,

désolé de te répondre tardivement.

Non, mais je viens de le faire, et cela fonctionne à la perfection.

Désolé de ne pas avoir pu te faire un retour plus tôt. Peux-tu si tu veux bien m'expliquer pourquoi le fait de travailler la ligne dans ce sens ne prend pas en compte la mise en forme des cellules. Est-ce le fait d'utiliser .value ? Juste la valeur ?

En tout cas Nickel

Merci.

Bonjour,

Comme tu ne prends que la valeur, il n'y a aucune raison pour qu'il prenne la mise en forme avec. Tu ne copies rien, tu ne fais qu'attribuer une valeur à une cellule.
Mais il faut bien évidemment inverser les termes par rapport à l'autre méthode, sous peine de prendre la cellule vide comme référence.

C'est bien que tu aies fini par essayer. J'avais pris ton

Merci pour ta participation sur ce sujet :D

pour un "va te faire f....."

Ah non, surtout pas un "va te faire f....."

Très content d’avoir des échanges sur ma demande et quelques soit le résultat.

Et je suis vraiment désolé de ne pas avoir pu te faire un retour plus rapidement.

Le taf fait que des priorités sont à gérer... D’où ma réponse tardive.

En tout cas, merci pour ta participation et ta solution.

Top ! Franchement c'est exactement ce que je voulais faire, une ligne par extraction, alors JoyeuxNoel, je te rassure, tu es mon cadeau

Merci à tous pour vos échanges et merci à toi JoyeuxNoel pour ta réponse, solution qui correspond parfaitement à ma demande.

Bonne soirée à toi, à vous ;)