Bonjour à toutes et tous,

j'ai fait cette macro qui fonctionne tres bien à la saisie de nouveaux elements mais lorsque je supprime des valeurs (selection avec la souris ou les fleches puis touche Suppr) la procedure appelée ne se déclenche pas.

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
17
18
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Not Intersect([m5:XFD500], Target) Is Nothing And Target.Count = 1 Then
 
Application.MoveAfterReturnDirection = xlToRight
Application.EnableEvents = False
Application.ScreenUpdating = False
'Stocke la celulle de saisie
Set Saisie = ActiveCell
 
Call debut_fin
 
Saisie.Select
Application.ScreenUpdating = True
Application.EnableEvents = True
 
End If
End Sub
il y a un moment que je cherche mais maintenant j'ai besoin d'aide pour comprendre ce que j'ai oublié.

Merci d'avance