Private Sub CommandButton1_Click()
Dim cellule As Range
With Sheets("Test")
'on set la zone de recherche = colonne F du tableau
Set zone = .Range("F2:F" & Range("F" & Rows.Count).End(xlUp).Row)
'on cherche en colonne F la valeur sélectionnée dans le combobox
Set c = zone.Find(ComboBox1.Value, lookat:=xlWhole)
' si le nom est trouvé
If Not c Is Nothing Then
'on efface les données sur les 4 colonnes
c.Resize(, 4).ClearContents
End If
End With
MsgBox ("terminé")
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
With Sheets("Données")
ComboBox1.List = .Range("A2:A" & .Range("A65536").End(xlUp).Row).Value
End With
End Sub