Automatiser formule de calcul

[Adriano43]

Bonjour à toutes et à tous,

Je souhaiterais appliquer une formule de manière automatique aux cellules de la colonne M si la cellule de cette même ligne située en colonne A est blanche. J'ai donc fait le code suivant qui ne présente pas d'erreurs mais qui ne marche pas pour autant!!!
Quelqu'un pourrait il me mettre sur la piste de la résolution:

Option Explicit
Public Sub prccalcul()

    Dim i As Integer
    
    With Sheets("BDD")
      For i = Range("A5000").End(xlUp).Row To 2 Step -1
          If Cells(i, 1).Interior.ColorIndex = 2 Then
             Cells(i, 13).Select
             ActiveCell.FormulaR1C1 = _
        "=(IF(ISERROR(VLOOKUP(RC[-9],'Extraction SAP'!R1C2:R1000C16,6,FALSE)),0,VLOOKUP(RC[-9],'Extraction SAP'!R1C2:R1000C16,6,FALSE)))"
          End If
      Next i
    End With
            
End Sub

Cordialement

Adriano43

 

[Nairolf]

Re : Automatiser formule de calcul

Salut Adriano43,

Avec un fichier, ce serait plus simple, mais en lisant le code, je pense voir une erreur.

Après l'instrusction with, les méthodes et propriétés associées à son objet (ici sheets("BDD")) doivent être précédés de : .
ex: .Cells(i, 13).Select