Bonjour à tous,
j'ai un tableau avec des valeurs dedans que j'ai calculé, trouvé avec des recherchev ...
je voudrais copier ce tableau et le coller en ne gardant que les valeurs (sans les formules) et en gardant aussi la mise en forme
voila la macro qui me copier la page et me fais certaines modif dont j'ai besoin:
Sub cop_p()
Dim i As Integer, DernLigne As Integer
With Worksheets("extrait")
Worksheets("DATA").Range("A1:I100").Copy .Range("A1:I100")
DernLigne = .Range("A" & Rows.Count).End(xlUp).Row
.Range("T2:T" & DernLigne).Value = .Range("T2:T" & DernLigne).Value
.Range("D:E").delete
For i = DernLigne To 2 Step -1
If Year(.Cells(i, 1).Value) = 2014 Then .Rows(i).delete
If UCase(.Cells(i, 2).Value) = "IVECO" Then .Rows(i).delete
If .Cells(i, 3) <> 0 And .Cells(i, 3) <> "" Then .Rows(i).delete
Next i
End With
End Sub