Lancer une procédure lorsqu'on supprime une selection

Bonjour,

je cherche a lancer une procédure lorsque la sélection est effacée.

j'ai écris le code suivant mais cela ne fonctionne pas

Code:

---

1 2 3 4 5 6

Sub encas_supp() If Selection.ClearContents=True Then Call debut_fin Else End If End Sub

---

quelqun peut-il m'expliquer ou je fais erreur ?

bonsoir
tout simplement dans l'evenement change de la feuille un test avec "isempty" sur la selection
attention l'evenement change est déclenché quand la selection change
autrement dit
tu selectionne;vide,selectionne ailleurs
si tu veux le faire en restant sur la selection il va te faloir ruser soit avec une cellule espion avec une formule rapatriant une valeur ou un etat en fonction de cette dite selection

et utiliser l'evenement change sur cette cellule espion ce qui a pour avantage de garder dans la selection active

bonsoir,

merci pour le retour.

je viens de trouver plus simple

Code:

---

1 2 3 4

If Target(1) = "" Then Call debut_fin Else End If

---

et ca marche nickel

re

oui dans l'evenement change:mouarf:

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_Change(ByVal Target As Range) If Target(1) = "" Then MsgBox "vidé!!" Else MsgBox "mofifié!!" End If End Sub

---