Copier/Coller en valeur sous condition

[coolguigs]

Bonjour,

je souhaite remplacer dans une plage donnée les formules par leur valeurs si la formule contient "HsGet".

Savez vous comment faire ?

Bien cdt,

coolguigs

 

[skoobi]

Re : Copier/Coller en valeur sous condition

Bonjour coolguigs,

en supposant que la plage se trouve en A1:B10:

Sub test()
Dim Cellule As Range
For Each Cellule In Range("A1:B10")
If Cellule.FormulaLocal Like "*HsGet*" Then Cellule.Value = Cellule.Value
Next
End Sub

 

[coolguigs]

Re : Copier/Coller en valeur sous condition

Super rapide ! merci