daniel1949
XLDnaute Occasionnel
Bonsoir,
Comme le sujet est récurant :
Sub Fige()
' Remplace une formule par sa valeur dans une cellule
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End Sub
Source : Excel par l'exemple
Comme le sujet est récurant :
Sub Fige()
' Remplace une formule par sa valeur dans une cellule
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End Sub
Source : Excel par l'exemple