Convertir toutes les formules en valeurs, Excel VBA

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.

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x