Tester la suppression d'une ligne en VBA

Bonjour,

J'ai créé une macro qui enregistre la date du jour dans une colonne "date dernière modif" à chaque modification d'une cellule sur la ligne.
le pb se pose lorsqu'on supprime la ligne. dans ce cas c'est la ligne du dessous qui est actualisée alors qu'on n'a pas fait de modif.

Est-ce qu'il y a une instruction qui permet de tester si on supprime la ligne?
J'ai essayé l'instruction ci dessous, mais ca plante mon fichier en supprimant toutes les lignes

merci pour votre aide

Code:

---

1 2	if selection.delete then exit sub

---

SAlut,

qu'attendais-tu comme comportement avec ton instruction

Code:

---

selection.delete

---

Une condition s'attend à un test ou une valeur booléenne ressort, donc est-ce toi qui a fait une erreur de recopie de ton code ?

SAlut

Je vois deux solutions possibles

• Mettre une variable Boolean public dans un module, nommé DelByCode par exemple. Ensuit avant de supprimer une ligne, tu passes la valeur de DelByCode à true, puis à false à la ligne suivante
  
  • Dans le code de mise à jour de la date, tu vérifie que DelByCode est à False (S'il est est à True, c'est que la demande de modification de date est liée à une suppression de ligne)
  
  
• Sinon, peut-être en mettant Application.EnableEvents à False avant la ligne de suppression et à True après la suppression. Attention de faire une gestion d'erreur pour remettre EnabledEvents à True quoiqu'il arrive durant l'exécution du code.

++
Qwaz

Bonjour,

Lorsqu'on supprime toute la ligne, l'argument target de la procédure Worksheet_Change correspond à une plage de cellules (une ligne entière).
Une solution serait alors de tester cet argument pour savoir s'il correspond à une cellule unique ou à une plage de plusieurs cellules (par exemple tester la présence d'un double-point dans son adresse).
Mais un moyen plus simple est d'utiliser la propriété count comme je l'ai fait dans l'exemple ci-dessous.
Ainsi, dès qu'on modifie ou supprime plus d'une cellule à la fois, il ne se passera rien.

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Column = 2 Then Exit Sub Debug.Print Target.Address Debug.Print Target.Address Cells(Target.Row, 2) = Now End Sub

---

Mais attention : il ne se passera rien non plus si la modification est faite par une recopie incrémentale de plus d'une cellule ou en modifiant plusieurs cellules à la fois avec Ctrl+Return, deux techniques qui sont tout de même assez largement utilisées. Donc ma solution n'est sans doute pas la panacée.

NB. Dans le code ci-dessus, j'ai considéré que la date était mise en colonne 2. La deuxième ligne de code fait en sorte qu'il ne se passe rien si la modification est faite dans cette colonne (sinon on rentre dans une boucle sans fin :( ) .