Bonjour,

j'ai créé une macro événementielle pour renouveler ou pas de contrats. Mon problème est lorsque je mets 0 dans la case renouvellement le mot arrêt apparait mais la date se modifie c'est à dire si j'avais le 30/9/2019 elle devient le 31/8/2019. Ci dessous la formule, merci par avance pour votre aide

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column = 19 Then
        Application.ScreenUpdating = False
        Application.EnableEvents = False
        If Target = 0 Then
            Application.Undo
            Target.Offset(, -1) = Target.Offset(, -1).Value
            Target = "Arrêt"
        Else
            Target.Offset(, -1).FormulaR1C1 = "=IF(RC[1]=""Arrêt"", RC[-1],EOMONTH(RC[-1],RC[1]-1))"
        End If
        Application.EnableEvents = True
        Application.ScreenUpdating = True
    End If
End Sub