Copier/Coller en valeur sous condition

coolguigs · 21 Septembre 2009

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 · 21 Septembre 2009

Re : Copier/Coller en valeur sous condition

Bonjour coolguigs,

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

Code:

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 · 21 Septembre 2009

Re : Copier/Coller en valeur sous condition

Super rapide ! merci

Copier/Coller en valeur sous condition

coolguigs

Guest

skoobi

XLDnaute Barbatruc

coolguigs

Guest

Discussions similaires

Copier/Coller en valeur sous condition

coolguigs

Guest

skoobi

XLDnaute Barbatruc

coolguigs

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency