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
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 = "e;e;Arrêt"e;e;
Else
Target.Offset(, -1).FormulaR1C1 = "e;e;=IF(RC[1]="e;e;"e;e;Arrêt"e;e;"e;e;, RC[-1],EOMONTH(RC[-1],RC[1]-1))"e;e;
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Herser
lilifer a écrit dans le message de news:
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 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 = "e;e;Arrêt"e;e; Else Target.Offset(, -1).FormulaR1C1 > "e;e;=IF(RC[1]="e;e;"e;e;Arrêt"e;e;"e;e;, RC[-1],EOMONTH(RC[-1],RC[1]-1))"e;e; End If Application.EnableEvents = True Application.ScreenUpdating = True End If End Sub Amicalement
AMHA ta macro concerne la suite Microsoft Office et non le système d'exploitation Windows XP. Va sur le forum Excel et non sur ce forum XP -- Cordialement René COUDOUR
lilifer a écrit dans le message de
news:-rSdnWZQbfanP-fAnZ2dnUU798zNnZ2d@giganews.com
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
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 = "e;e;Arrêt"e;e;
Else
Target.Offset(, -1).FormulaR1C1 > "e;e;=IF(RC[1]="e;e;"e;e;Arrêt"e;e;"e;e;,
RC[-1],EOMONTH(RC[-1],RC[1]-1))"e;e;
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End Sub
Amicalement
AMHA ta macro concerne la suite Microsoft Office et non le système
d'exploitation Windows XP.
Va sur le forum Excel et non sur ce forum XP
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 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 = "e;e;Arrêt"e;e; Else Target.Offset(, -1).FormulaR1C1 > "e;e;=IF(RC[1]="e;e;"e;e;Arrêt"e;e;"e;e;, RC[-1],EOMONTH(RC[-1],RC[1]-1))"e;e; End If Application.EnableEvents = True Application.ScreenUpdating = True End If End Sub Amicalement
AMHA ta macro concerne la suite Microsoft Office et non le système d'exploitation Windows XP. Va sur le forum Excel et non sur ce forum XP -- Cordialement René COUDOUR
