Mettre toutes les cell. d'une plage par macro en absolu

Option Explicit
Sub nihcoc()
Dim cel As Range
For Each cel In Selection
  If cel.Formula <> "" Then
    cel.FormulaR1C1 = Application.ConvertFormula(cel.FormulaR1C1, xlR1C1, xlR1C1, xlAbsolute, cel)
    End If
Next
End Sub

For Each cel In Plage
  cel.Value = Abs(cel.Value)
Next

Sub Macro5()
'
' Macro5 Macro
'

'
    Range("A1:A10").Select
    Selection.Copy
    Range("J13").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End Sub

Discussions similaires