Copy (seulement les valeurs)

Bonsoir,

With Sheets("FEC")
    i = .Cells(65535, 1).End(xlUp).Row
    Sheets("TODOLIST").Range("A15:N15").Copy .Cells(i + 1, 1)
    End With

Je tente de copier de la feuille todolist une rangée dans la feuille FEC avec une incrémentation pour que chaque enregistrement

s'affiche les uns après les autres, ca marche nickel sauf que j'ai beau retourner le code je n'arrive pas a ne coller que les valeurs

sans les formules.

Le très souvent recommandé PasteSpecial Paste:=xlPasteValues,..... ne marche pas dans ce cas ci

Quelqu'un peut-t il m'aider ?

Ce bout de code m'a donner une piste mais dans il s'agit d'une cellule et je n'arrive pas à l'adapter pour mon cas

Sub test()
Sheets(2).Cells(65535, 1).End(xlUp).offset(1,0).value = Sheets(1).Cells(1, 1).value
End Sub 

Je viens ici demander de l'aide car j'ai les yeux qui piquent après 15h d'excel d'affilé.....

Bonjour

Essayes

  With Sheets("FEC")
    i = .Cells(65535, 1).End(xlUp).Row
    Sheets("TODOLIST").Range("A15:N15").Copy
    .Cells(i + 1, 1).PasteSpecial Paste:=xlPasteValues
  End With

Bonjour Banzai64

Un grand merci surtout à 2h55 ^^

Ca marche et je me sens bête tout en étant content car je crois avoir tenté à plusieurs reprises le .PasteSpecial Paste:=xlPasteValues

End With

Je doit avoir mal manipulé la syntaxe ou parfois je me demande si le presse papier contient toujours ce qui est demandé vu qu'il faut régulièrement le vider pour ne pas saturer... Là je me trouve un excuse

Variable