Bonjour, je vous écris je ne parviens pas à coller une valeur sans la mise en forme pourtant
j'utilise bien :
Selection.PasteSpecial Paste:=xlPasteValues
Je prends une valeur venant d'un autre onglet pour la mettre sur un onglet principale sous forme de tableau.
Mais mon bout de programme me retire la mise en forme...
Voici le programme en question :
Sub sommeADA()
Sheets("ADA").Select
Range("Q2").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-3]:R[998]C[-3])"
Range("Q2").Select
Selection.Copy
Range("A1").Select
Sheets("Bilan comparatif général").Select
Range("C10").PasteSpecial Paste:=xlPasteValues
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.NumberFormat = "0.00"
Sheets("ADA").Select
Range("Q2").Select
Selection.Copy
Range("A1").Select
Sheets("Bilan comparatif général").Select
Selection.PasteSpecial Paste:=xlPasteValues
Range("A1").Select
End Sub
Je vous remercie.
Maxime