Supprimer a partir d'une ListBox

[deudecos]

Bonjour a toutes et a tous,

Voici mon probleme :
Je suis capable, a partir d'un UserForm, et d'une ListBox de rajouter des indos sur ma feuille, mais pas le contraire, je ne sais pas comment faire pour supprimer une info par ce biais.

Merci de bien vouloir m'expliquer...(avec des mots simples hein ?) 🙂

Pour plus de facilite a cerner le truc, voir fichier joint.

Bonne journee

Olivier [file name=Deudecos_20050806094856.zip size=23963]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Deudecos_20050806094856.zip[/file]

 

[MichelXld]

bonjour Olivier

L'exemple ci-dessous enlève l'Item lors d'un double clic sur la ligne

Private Sub Listbox1_Dblclick(Byval Cancel As MSForms.Returnboolean)
If Listbox1.Listindex < 0 Then Exit Sub
Listbox1.Removeitem (Listbox1.Listindex)
End Sub


bon week end
MichelXld

Message édité par: MichelXld, à: 06/08/2005 11:29

 

[Franz63]

bonjour,

ci joint un petit exemple

le pb, c'est que cela ne fonctionne que s'il n'y a pas deux nom de client identique.

l'idéal serait d'affecter un n° unique à chaque client

Bonne journée

François [file name=Deudecos_20050806094856_20050806101158.zip size=23217]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Deudecos_20050806094856_20050806101158.zip[/file]

 

[deudecos]

Bonjour MichelXld, Franz63, le forum,

Merci a tous les deux pour vos promptes reponses.
Franz, je retiens ton exemple puisque je n'aurais pas deux clients identiques.

Quand a ta solution Michel, et elle me retourne une erreur non repertoriee... 😱

Le messagebox m'indique :
Erreur d'execution '-2147467259 (80004005)
erreur non repertoriee.
Et quand je clique sur deboguer, il me renvoie sur la ligne de code suivante :
Listbox1.removeitem(listbox1.listindex)

As tu une idee de ce qui cloche ?

Win XP et office 2003.

Bonne journee

Olivier

 

[MichelXld]

rebonjour Olivier , bonjour Franz

c'est de ma faute , j'aurais du ouvrir ton classeur avant de répondre

tu utilises la propriété rowSource pour alimenter ta ListBox , et la methode que je t'ai proposé pour supprimer les lignes n'est dans ce cas pas compatible


bon week end
MichelXld