XL 2010 supprimer ligne listbox

[kaid]

bonjour, voici mon fichier pour que vous comprenez bien.
quand vous clickez sur la ligne de ma listbox un autre userform apparaît avec des textbox.
je n'arrive pas a supprimer la ligne du listbox sauf de ma feuille

 

[Calvus]

Bonsoir Kaid, le forum,

Dans le code du Userform BD.
Insère cette ligne :

Recherche.ListBoxLocataire.RemoveItem Recherche.ListBoxLocataire.ListIndex

Ici :

Private Sub btnsupprimer_Click()
Dim q As String
Dim i As Integer, fin&
i = 2
fin = Feuil6.Range("A" & Rows.Count).End(xlUp).Row
Do While Raison_sociale.Value <> Feuil6.Cells(i, 1)
i = i + 1
If i > fin Then MsgBox " La raison sociale n'existe pas ", vbExclamation: GoTo 1
Loop
q = MsgBox("Supprimer " & Raison_sociale & " ? ", vbQuestion + vbYesNo)
If q = vbYes Then
Feuil6.Rows(i).Delete
Recherche.ListBoxLocataire.RemoveItem Recherche.ListBoxLocataire.ListIndex
MsgBox "Elément supprimé", vbInformation
Unload Me
BD.Show: Exit Sub
End If
1       MsgBox " Veuillez rechercher la raison sociale à supprimer", vbInformation
Unload Me
BD.Show
End Sub

A+

 

[kaid]

c'est bon ça marche et pour la modification ?

 

[Calvus]

De rien !

 

[kaid]

désole je vous remercie beaucoup je suis un peux stresse

 

[Calvus]

Quelle est la question sur la modification ?

 

[kaid]

et s'il vous plait j'aimerai charger ma feuille dans la listbox a partir de A1

 

[kaid]

modifier la ligne de listbox le même principe que la suppression

 

[kaid]

quand je met bd!a1:h1000 dans la propriété rowsource de ma listebox "message d'erreur accès refuse" vous avez remarquer : j'ai mis des label au dessus de ma listbox pour pouvoir nommé mes colones

 

[Calvus]

Bonjour Kaid, le forum,

A la fin du code Private Sub btnmodifier_Click() dans l'usf BD, mettez ceci :
Unload Me
Unload Recherche
Recherche.Show
End Sub

Et pour charger les données de la 1ère ligne, je pense qu'il faut utiliser une Listview. Je ne crois pas que cela soit possible avec une Listbox.

A+

 

[kaid]

Ok je vous remerci

 

[kaid]

bonsoir;

et si je met listview je garde toujours le même code dans le vba ????

 

[kaid]

ok daccord j'ai compris

 

[Calvus]

Re,

Non, une Listview est un autre objet, qui se code différemment.

 

[kaid]

ok je laisse tombé alors .
juste une chose svp j'ai amélioré mon classeur.
dans la listbox la ou il ya la colonne OBS je n'arrive pas a l'ajuster
et quand je click sur la ligne de listbox j'aimerai que la userform "BD" se met au milieu.
svp merci