Effacement de liste

[Palemeilleur]

Bonjour a vous
J'ai fait un userform avec une listbox je voudrais qu'a chaque fois que je clic sur un des noms a l'interieur de cette liste il soit effacer après le tri que j'effectue
Merci par avance de votre aide
Fichier joint [file name=Previsions_20060514180817.zip size=32030]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Previsions_20060514180817.zip[/file]

 

[MichelXld]

bonsoir

dans la procédure UserForm_activate , remplace la ligne

Detail.RowSource = 'feuil1!ad20:' & fournisseurs

par

Detail.List() = Feuil1.Range('AD20:' & fournisseurs).Value



et ajoute cette macro pour supprmer l'élément de la ListBox lors d'un double clic

Private Sub Detail_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Detail.RemoveItem (Detail.ListIndex)
End Sub


par contre tu veux aussi supprimer la donnée dans la feuille ?


bonne soirée
MichelXld