XL 2010 supprimer ligne listbox

Calvus

XLDnaute Barbatruc

• 6 Mars 2017

• #2

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+

 

Vote positif 0 Vote négatif

K

kaid

XLDnaute Occasionnel

• 6 Mars 2017

• #3

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

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 6 Mars 2017

• #4

De rien !

 

Vote positif 0 Vote négatif

K

kaid

XLDnaute Occasionnel

• 6 Mars 2017

• #5

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

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 6 Mars 2017

• #6

Quelle est la question sur la modification ?

 

Vote positif 0 Vote négatif

K

kaid

XLDnaute Occasionnel

• 6 Mars 2017

• #7

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

 

Vote positif 0 Vote négatif

K

kaid

XLDnaute Occasionnel

• 6 Mars 2017

• #8

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

 

Vote positif 0 Vote négatif

K

kaid

XLDnaute Occasionnel

• 6 Mars 2017

• #9

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

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 7 Mars 2017

• #10

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+

 

Vote positif 0 Vote négatif

K

kaid

XLDnaute Occasionnel

• 7 Mars 2017

• #11

Ok je vous remerci

 

Vote positif 0 Vote négatif

K

kaid

XLDnaute Occasionnel

• 7 Mars 2017

• #12

bonsoir;

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

 

Vote positif 0 Vote négatif

K

kaid

XLDnaute Occasionnel

• 7 Mars 2017

• #13

ok daccord j'ai compris

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 7 Mars 2017

• #14

Re,

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

 

Vote positif 0 Vote négatif

K

kaid

XLDnaute Occasionnel

• 7 Mars 2017

• #15

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: 7 Mars 2017

Vote positif 0 Vote négatif