[XL-2007] Zone de liste pour effacer

Bonjour,

Le code du bouton sur la feuille pour afficher le userform :

Code:

1
2
3
Private Sub CommandButton1_Click()
    UserForm1.Show
End Sub

Dans le module du userform :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub CommandButton1_Click()
    Dim C As Range
    For Each C In Range([A1], Cells(Rows.Count, 1).End(xlUp))
        If C.Value = CInt(Me.ListBox1.Value) Then
            C.Offset(, 1).Resize(, 3).ClearContents
        End If
    Next C
    Me.Hide
End Sub
 
Private Sub UserForm_Activate()
    Me.ListBox1.Clear
    For i = 1 To 100
        Me.ListBox1.AddItem i
    Next i
End Sub

Regarde le classeur (zippé) en PJ.