Copie valeur sans avoir la formule

salut

je veux copier une entière ligne mais seulement les valeurs car ya des formules et ça me retournes des N/A

Sheets(1).Cells(i, "C").EntireRow.Select je modifie quoi dans cette ligne

merci

Hoyo,

c'est dans le paste qu'il faut changer le code, pas dans le copy,

une fois la cellule cible sélectionnée,

Selection.PasteSpecial xlValues, xlNone, False, False

ActiveSheet.Paste devient quoi alors ?

Sheets("Extraction par date").Cells(1, 3).Value = "Date extraite"

While i <= nbcells

If Sheets(1).Cells(i, "C").Value <= Date_fin And Sheets(1).Cells(i, "C").Value >= Date_debut Then

Sheets(1).Cells(i, "C").EntireRow.Select

Selection.Copy

Sheets("Extraction par date").Activate

Sheets("Extraction par date").Cells(j, 1).Select

ActiveSheet.Paste ' <====== comment modifier ça

Sheets(1).Activate

Cells(1, 1).Select

j = j + 1

End If

i = i + 1

Wend

Application.ScreenUpdating = True

Sheets("Extraction par date").Activate

Cells(1, 1).Select

End Sub

Cells(j, 1).PasteSpecial xlValues, xlNone, False, False

ça marche

merci beaucoup :p