Discussion :

[margogaut]

Bonjour,

Dans mon code VBA, je souhaiterais mettre une formule pour calculer le stock dynamiquement. La formule sans VBA est la suivante :

Code formule :

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

=RECHERCHEV(A4;Tab_stock;7;FAUX) - SOMME.SI(A$4:A4;A4;K$4:K4)

Pour la VBA, j'ai essayé de le faire avec cette formule :

Code :

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

1
2
3
4
5
Dim i As Long
 
For i = 4 To Worksheets("Data").Cells(Rows.Count, 1).End(xlUp).Row
 
Worksheets("Data").Cells(i, "R").formulaR1C1 = "=VLOOKUP(R" & i & "C[-17] ,Tab_stock,7,FALSE) - SUM.IF(Range(R4C[-17]:R" & i & "C[-17], A" & i & ", Range(R4C[-7]:R4C" & i & "))"

Next i

où i représente le nombre de lignes dans mon tableau. J'ai test avec plusieurs variantes, en enlevant les espaces etc, mais je ne suis pas parvenu à la solution.

Auriez-vous une idée ?

Merci d'avance!

[BENNASR]

bonjour
tu peux mettre la curseur sur la cellule qui contient la formule, démarre l’enregistreur du macro, copiez vers le bas , arrêter la macro et voir ce que ça donne
tester avec prudence ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
Dim lrow As Long
Dim counter As Integer
Const laformule As String = "=VLOOKUP(R[3]C[-1],Tab_stock,7,FALSE) - SUMIF(R4C[-1]:R[3]C[-1],R[3]C[-1],R4C[9]:R[3]C[9])"
lrow = Sheets("Data").Cells(Rows.Count, 1).End(xlUp).Row
counter = 2
With Worksheets("Data").Range("R4:R" & lrow)
          .FormulaLocal = laformule
       ' pour copier que la valeur sans la formule
        .Value = .Value
 End With
End Sub

[margogaut]

Bonjour,

J'ai adapté le code et ça a fonctionné, merci beaucoup !

[Philippe Tulliez]

Bonjour,
J'éviterais la propriété FormulaLocal. En utilisant Formula, vous jouez la sécurité

A lire éventuellement mes deux billets sur le sujet

• Ecrire une formule dans Excel à l'aide d'une procédure VBA
• Comment écrire une formule plus complexe dans une cellule ?