XL 2010 supprimer ligne listbox

kaid

XLDnaute Occasionnel
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
 

Pièces jointes

  • fg_reche_vba_2_fiche wwé.xls
    199 KB · Affichages: 41

Calvus

XLDnaute Barbatruc
Bonsoir Kaid, le forum,

Dans le code du Userform BD.
Insère cette ligne :
VB:
Recherche.ListBoxLocataire.RemoveItem Recherche.ListBoxLocataire.ListIndex

Ici :
VB:
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+
 

Calvus

XLDnaute Barbatruc
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

XLDnaute Occasionnel
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
 

Pièces jointes

  • fg_reche_vba_2_fiche wwé.xlsm
    115.1 KB · Affichages: 38
Dernière édition:

Discussions similaires

Réponses
25
Affichages
878
Réponses
8
Affichages
395

Statistiques des forums

Discussions
312 947
Messages
2 093 837
Membres
105 850
dernier inscrit
mat.prv