Microsoft 365 VBA: Figer la formule

VBA_dev_Anne_Marie · 25 Août 2021

Bonjour,

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

VB:

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

Merci !

Compte Supprimé 979 · 26 Août 2021

Bonjour MariePAris,

Si j'ai bien compris, tout simplement en faisant

VB:

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 · 26 Août 2021

BrunoM45 à dit:
Bonjour MariePAris,

Si j'ai bien compris, tout simplement en faisant

VB:

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

Microsoft 365 VBA: Figer la formule

VBA_dev_Anne_Marie

XLDnaute Occasionnel

Compte Supprimé 979

Guest

VBA_dev_Anne_Marie

XLDnaute Occasionnel

Discussions similaires