Problème code VBA copier/coller

[mjul76]

Bonjour à tous, après de nombreuses recherches infructueuses et des modifications de codes à répétition je ne comprend pas pourquoi mon simple copier/coller ne fonctionne pas, VBA me rejete le coller...
Ci dessous voici le texte
Merci d'avance!

Do
For i = 6 To 1000
Sheets("Comptabilité").Select
ActiveSheet.Unprotect
Cells(i, 5).Select
ActiveSheet.Protect
Sheets("Rapprochement bancaire").Unprotect
If Selection.Value = "P" Or Selection.Offset(0, 3) = "" Then
Else
Sheets("comptabilité").Range(Cells(i, 3), Cells(i, 7)).Copy
Sheets("Rapprochement bancaire").Range("A12").End(xlDown).Offset(1, 0).PasteSpecial_ (xlPasteValues)
Application.CutCopyMode = False
End If
Next
Loop While Cells(i, 1) <> ""

 

[Pierrot93]

Re : Problème code VBA copier/coller

Bonjour,

essaye ceci :

Sheets("Rapprochement bancaire").Range("A12").End(xlDown).Offset(1, 0) = _
    Sheets("comptabilité").Range(Cells(i, 3), Cells(i, 7))

bon aprèsmidi
@+

 

[Compte Supprimé 979]

Re : Problème code VBA copier/coller

Bonjour mjul76 et bienvenue sur ce forum

La syntaxe est celle-ci

Sheets("Rapprochement bancaire").Range("A12").End(xlDown).Offset(1, 0).PasteSpecial Operation:=xlPasteValues

sans parenthèse

Bon réveillon (si tu le fais)

 

[mjul76]

Re : Problème code VBA copier/coller

THAT'S RIGHT
C'est souvent les choses les plus simples auxquelles on ne pense pas...
Merci