Discussion :

[vincent59139]

Bonjour à tous,

dans ma feuille, dans la colonne A , une serie de nombre 1 à 100
dans la colonne B, C et D , des données

ce que j'aimerais , à l'aide d'un userform dans lequel se trouve dedans

un zone de liste dans lequel je mettrais les nombres de 1 à 100
un bouton EFFACER

et selon le choix du nombre, cela effacerait dans ma feuille les cellules B C et D relative au nombre choisi.

merci

[Daniel.C]

Bonjour,

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

Code :

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

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

Dans le module du userform :

Code :

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

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.