Limiter les formules

[Lorine]

Bonjour ,

J'ai un code à modifier pour limiter l'inscription de la formule seulement si dans la cellule A se trouve une donnée (s'il n'y a pas de valeure ne pas inscrire le code)

Range("N12:N500").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-13]>1,R[-1]C-RC[-3]+RC[-1],"""")"
Range("N12").Select
    Selection.AutoFill Destination:=Range("N12:N500"), Type:=xlFillValues

Je ne maitrise pas les " For , next ..." mais J'ai pensé à cela:
pour toutes les cellule de N12 à N500 , si la cellule A est <>"" alors on applique la formule en N sinon on ne met rien

 

[Efgé]

Re : Limiter les formules

Bonjour Lorine,
Une proposition:

Sub Test()
For i = 12 To 500
    If Cells(i, 1) <> "" Then
        Cells(i, 14).FormulaR1C1 = "=IF(RC[-13]>1,R[-1]C-RC[-3]+RC[-1],"""")"
    End If
Next i
End Sub

Cordialement

 

[Lorine]

Re : Limiter les formules

Merci , super efficace : cela fonctionne