Inserrer une cellule fin de mois

tactic6

XLDnaute Impliqué
Bonjour le forum et tous les autres

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
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
 

Staple1600

XLDnaute Barbatruc
Re : Inserrer une cellule fin de mois

Bonjour



Tu peux éviter les select

et emploie FormulaLocal
Code:
Sub Condition()
'
' Condition Macro
' Ajoute les condition de vente et la date d'échéance

    Application.Goto Reference:="Condition"
    Range("B61") ="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") = "Pas d'escompte en cas de paiement anticipé"
    Range("F58")= "Date d'échéance : "
    Range("F59").[B]FormulaLocal [/B]= "=FIN.MOIS($G$5;1)"
End Sub
 
Dernière édition:

tactic6

XLDnaute Impliqué
Re : Inserrer une cellule fin de mois

plus que le forum je n'ai pas trouvé mais toujours demander cela devient gênant
alors j'essaie par moi même mais bon le..... résultat n'est pas toujours là
en tous les cas je ne vous remercierais jamais assez
 

Discussions similaires

Statistiques des forums

Discussions
315 194
Messages
2 117 156
Membres
113 022
dernier inscrit
azurbs