comment effacer d'un seul clic

[Valerie]

bonjour,

qui peux me dire si je peux effacer d'un seul clic les données de cellule pre selectionner ( ex effacer en une fois les cellules negatives ou les dates ...)
merci de votre aide
valérie

 

[Lord Nelson]

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