Microsoft 365 VBA: Figer la formule

[VBA_dev_Anne_Marie]

Bonjour,

Est-ce que vous connaissez comment figer la formule en VBA :

   Sheets("sbf_120").Cells(Num_Ligne, 1).Formula = "=BQL(""Members('SBF120 INDEX')"", ""ID_ISIN"")"

Merci !

 

[Compte Supprimé 979]

Bonjour MariePAris,

Si j'ai bien compris, tout simplement en faisant

Sheets("sbf_120").Cells(Num_Ligne, 1).Formula = "=BQL(""Members('SBF120 INDEX')"", ""ID_ISIN"")"
Sheets("sbf_120").Cells(Num_Ligne, 1).Value = Sheets("sbf_120").Cells(Num_Ligne, 1).Value

A+

 

[VBA_dev_Anne_Marie]

Bonjour MariePAris,

Si j'ai bien compris, tout simplement en faisant

Sheets("sbf_120").Cells(Num_Ligne, 1).Formula = "=BQL(""Members('SBF120 INDEX')"", ""ID_ISIN"")"
Sheets("sbf_120").Cells(Num_Ligne, 1).Value = Sheets("sbf_120").Cells(Num_Ligne, 1).Value

A+

Merci, cela ne marche pas pour ma formule. Je voulais appliquer ce code :

Sub Resultats_fix()
Dim sht As Object
Dim Rng As Object
Dim Cellule As Range
For Each sht In ActiveWorkbook.Sheets
Set Rng = sht.UsedRange
For Each Cellule In Rng
If Cellule.HasFormula Then
Cellule.Formula = Cellule.Value
End If
Next Cellule
Next sht
End Sub

Mais il ne marche pas