Philippe Tulliez

Nous sommes régulièrement amenés à remplacer une plage de cellules contenant des formules par leur résultat.
Autrement dit un Copier/Collage spécial–Valeur.
En VBA, après avoir éventuellement utilisé l’enregistreur de macros pour nous aider, nous aurions tendance à utiliser ce code.

Exemple pour la page A1:H100 de la feuille nommée Feuil1

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
With ThisWorkbook.Worksheets("Feuil1").Range("A1:H100")
.Copy
.PasteSpecial Paste:=xlPasteValues
End With
Application.CutCopyMode = False

Une autre solution consiste à utiliser la propriété Value de l'objet Range

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With ThisWorkbook.Worksheets("Feuil1").Range("A1:H100")
.Value = .Value
End With