Sub convertirformules() Dim MyRange As Range Dim MyCell As Range Select Case _ MsgBox ("Vous ne pouvez pas annuler cette action. " _ & "Enregistrer d'abord le classeur?", vbYesNoCancel, "Alerte") Case Is = vbYes ThisWorkbook.Save Case Is = vbCancel Exit Sub End Select Set MyRange = Selection For Each MyCell In MyRange If MyCell.HasFormula Then MyCell.Formula = MyCell.Value End If Next MyCell End Sub
Convertissez simplement les formules en valeurs. Lorsque vous exécutez cette macro, elle transforme rapidement les formules en valeurs absolues.