tactic6
XLDnaute Impliqué
Bonjour le forum et tous les autres
avec l'editeur de macro j'ai crée ceci
mais j'ai du me planter quelque part parce que ActiveCell.FormulaR1C1 = ne convient pas a "=FIN.MOIS($G$5;1)" G5 étant la date de la facture
quelqu'un pourrait il me donner la bonne formule ?
merci
avec l'editeur de macro j'ai crée ceci
Code:
Sub Condition()
'
' Condition Macro
' Ajoute les condition de vente et la date d'échéance
Application.Goto Reference:="Condition"
Range("B61").Select
ActiveCell.FormulaR1C1 = _
"Tout règlement non parvenu à date d'échéance sera soumis à la facturation d'intérêts de retard selon la loi n° 92.1442 au taux légal majoré de 1,5 %"
Range("B62").Select
ActiveCell.FormulaR1C1 = "Pas d'escompte en cas de paiement anticipé"
Range("F58").Select
ActiveCell.FormulaR1C1 = "Date d'échéance : "
Range("F59").Select
ActiveCell.FormulaR1C1 = "=FIN.MOIS($G$5;1)"
End Sub
quelqu'un pourrait il me donner la bonne formule ?
merci