Insertion d'un PasteSpecial dans ma formule

Bonjour à tous,

J'ai un petit code en Vba qui me sert à copier et coller dans un autre onglet à la suite des autres lignes celui-ci marche bien mais me copie également les formules, malgré mes lectures sur différents forums je n'arrive pas à insérer un pastespécial, j'ai juste obtenu des messages d'erreurs.
je vous joint le code je suis preneur de toutes bonnes idées.

Merci

Code:

---

1 2 3 4

Private Sub CommandButton1_Click() Worksheets("Feuil2").Range("C2", [AD65535].End(xlUp)).Rows. _ Copy Worksheets("DONNEES").Range("C65535").End(xlUp).Offset(1, 0) End Sub

---

Bonjour,

Pour le collage spécial il faut le faire en 2 lignes

Code:

---

1 2 3 4

Private Sub CommandButton1_Click() Worksheets("Feuil2").Range("C2", [AD65535].End(xlUp)).Rows.Copy Worksheets("DONNEES").Range("C65535").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues End Sub

---

Bonjour jfontaine,

Merci pour la réponse, j'ai mis deux lignes mais message d'erreur "Erreur défini par l'application ou par l'objet".
Ma feuille est liée à un autre classeur cela aurait il une incidence sur le code.

et comme cela

Code:

---

1 2 3 4

Private Sub CommandButton1_Click() Worksheets("Feuil2").Range("C2:AD" & Worksheets("Feuil2").Range("C" & rows.count).End(xlup).row).Copy Worksheets("DONNEES").Range("C65535").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues End Sub

---

toujours mes formules de recopiées, rien à comprendre.

bonjour lebricoleur et Jfontaine
si j'ai bien suivi la demande il faut que les formules ne soit plus inscritent au transfert donc j'ai trouvé ceciqui peutcorrespondre

Code:

---

1 2	.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False

---

cordialement

Pascal

Bonjour Pascal,

j'ai rajouté ta ligne et j'ai un message d'erreur :

"Erreur de compilation: attendu fin d'instruction"

l'erreur est au niveau du "Paste" avant les :=

Thierry

Je ne vois pas pourquoi ma dernière proposition de colle pas que les valeurs.
Peux tu nous mettre a disposition ton code

Bonjour Jérôme,

le code que tu mas transmis a été recopié directement et celui ci malheureusement continue a me mettre les formules

thierry

bonjour lebricoleur,JFontaine et les autres

as tu remplacer la partie du code de Jfontaine qui est

Citation:

---

Worksheets("DONNEES").Range("C65535").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues

---

par

Code:

---

1 2	Worksheets("DONNEES").Range("C65535").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False

---

c'est un bout de code que j'ai trouvé mais je ne sais pas s'il fait l'affaire mais de toute façon comme le dit Jfontaine joint un peu plus de ton code car il y a peut etre autre chose qui influe

cordialement

Pascal

Bonjour pascal,

oui j'ai essayé le code, pour ce qui est du restant du code il n'y en n'as pas
il sert juste à copier les données sur une feuille avec liaison sur une autre feuille pour différents traitement.
est ce que les liaisons peuvent influer sur le résultat du code ?

Thierry

Je me répète, mais si le code fournit fait un collage des formules et non des valeurs, il y a très certainement un loup

C'est pour ça que l'on demande à voir ton code.

ma feuille "Feuil2" est en liaison donc chaque cellule contient la formule la liant a la feuille source d'un autre classeur, quand la macro copie les données elle colle les cellules avec un résultat mais aussi les formules de liaisons et je me retrouve avec un paquet de cellules dans la feuille "DONNEES" rempli de 0. Mon code est exactement celui que j'ai envoyé au début

Citation:

---

Mon code est exactement celui que j'ai envoyé au début

---

C'est bien ce que je pensais tu n'as pas tenu compte de nos propositions. :arf::mur::fessee::scarymov:

j'ai recopier toutes les propositions qui mon été faite pour avoir exactement le même résultat. tu pensais mal

Citation:

---

j'ai recopier toutes les propositions qui mon été faite pour avoir exactement le même résultat. tu pensais mal

---

dans ce cas, je suis désolé et m'excuse de m'être emporté.

Ce n'est pas grave, pas toujours facile de voir ce que les débutants font.

Enfin je n'est plus la copie des formules mais est il possible d’empêcher la copie des 0 (résultat des cellules liées) car même si les o n'apparaissent pas
dans la "feuil2" source il me les copies dans ma"feuille"DONNEES".