comment effacer d'un seul clic

Salut Valérie,

Voici une possibilité :
Tu places 2 boutons de commandes sur ta feuille (Effacer valeurs négatives et effacer dates).
Voici le code correspondant au Click de ces commandes :

Private Sub CommandButton1_Click()
'Effacer valeurs négatives
Dim CL As Range
For Each CL In Selection
If CL.Value < 0 Then
CL.ClearContents
End If
Next
Selection.Activate
End Sub

Private Sub CommandButton2_Click()
'Effacer dates
Dim CL As Range
For Each CL In Selection
If IsDate(CL.Value) Then
CL.ClearContents
End If
Next
Selection.Activate
End Sub

A+
LN