cellule : code : "clearcontents" marche pas

[andersfriden]

Private Sub SpinButton1_SpinDown()
Set r = Range("a1:aa17")
If Not Intersect(r, ActiveCell) Is Nothing Then
    Select Case ActiveCell
    Case Is = 150
    ActiveCell.ClearContents
    Case Is < 1000
    ActiveCell = ActiveCell - 50
    Case Is = 1000
    ActiveCell = ActiveCell - 50
    Case Is < 10000
    ActiveCell = ActiveCell - 100
    Case Is = 10000
    ActiveCell = ActiveCell - 100
    Case Is < 50000
    ActiveCell = ActiveCell - 250
    Case Is = 50000
    ActiveCell = ActiveCell - 250
    Case Is < 100000
    ActiveCell = ActiveCell - 500
    Case Is = 100000
    ActiveCell = ActiveCell - 500
    Case Else
    ActiveCell = ActiveCell - 1000
    End Select
    If ActiveCell <= 150 Then ActiveCell = 150
    ActiveSheet.Select
End If
End Sub

salut

un forumeur m'a bricolé ce code qui m'est très utile, j'ai rajouté les 2 lignes Case Is = 150 ActiveCell.ClearContents, pour que le contenu de la cellule active s'efface quand j'appuie sur le bas du bouton toupie et que la valeur de la cellule est de 150, sauf que ça marche pas, le contenu ne s'efface pas. Que dois-je modifier, pour que ça marche ?

 

[andersfriden]

Re : cellule : code : "clearcontents" marche pas

ça y est je viens de trouver !