Discussion :

[faustien]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[patricktoulon]

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

[faustien]

bonsoir,

merci pour le retour.

je viens de trouver plus simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

et ca marche nickel

[patricktoulon]

re

oui dans l'evenement change

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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