Discussion :

[lebricoleur]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jfontaine]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[lebricoleur]

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.

[jfontaine]

et comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[lebricoleur]

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

[grisan29]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

cordialement

Pascal