Inserrer une cellule fin de mois

[tactic6]

Bonjour le forum et tous les autres

avec l'editeur de macro j'ai crée ceci

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]

Re : Inserrer une cellule fin de mois

Bonjour



Tu peux éviter les select

et emploie FormulaLocal

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

 

[tactic6]

Re : Inserrer une cellule fin de mois

Merci
a tout hasard il y aurait un coin pour apprendre l'éditeur de macro ?

 

[Staple1600]

Re : Inserrer une cellule fin de mois

Re

Un premier coin
Dans Excel
Déjà ALT+F11 puis F1

Et ce forum et ce site sont un trés bon coin aussi non?

 

[tactic6]

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