suprimer une donnée ds une "listbox" ???

[Syd]

bonjour à tous,

mon "p'tit" problème est le suivant :

j'ai un formulaire ds lequel il y a : _ un bouton "ajouter"
_ un bouton "suprimer"
_ et une "ListBox"

Le bouton "ajouter" me permet d'introduire une Donnée (prealablement saisie ds un champ) ds la "ListBox".

Mon problème arrive qd j'utilise le bouton "suprimer" pour effacer une Donnée de la "ListBox"

---> la Donnée est bien supprimée mais qd j'en ajoute une autre, elle est introduite à la fin de la Liste.

est-ce que qq'un pourait me dire comment, une fois une donnée suprimée, ajouter la donnée suivante à la place de celle qui a été suprimée ???

Si ça peut vous aidez à répondre, voici mon code :

--POUR LE BOUTON "AJOUTER" :

Private Sub bnAjouter_Click()
Dim iDernierAni As Integer

iDernierAni = lbNbAniParGrpe.Caption 'ne pas tenir compte de ça

If txNoTatou = "" Then
MsgBox "Veuillez indiquer le tatouage de l'animal"
Exit Sub

ElseIf iCompteurAj < iDernierAni Then 'ne pas tenir compte de ça
lsTatou.AddItem lbNoAni.Caption & " " & txNoTatou.Value
iCompteurAj = iCompteurAj + 1
lbNoAni.Caption = lbCarGrpeNR.Caption & iCompteurAj
txNoTatou.Text = Empty


Else
lsTatou.AddItem lbCarGrpeNR.Caption & iCompteurAj _
& " " & txNoTatou.Value
bnAjouterTatou.Enabled = False
End If

End Sub

--POUR LE BOUTON "SUPRIMER" :

Private Sub bnSuprimer_Click()
Dim iIndice As Integer

'msg d'erreur si aucun champ de la liste n'est selectionné

If lsTatou.ListIndex < 0 Then
MsgBox "selectionner le tatouage que vous voulez supprimer"
Exit Sub
End If

iIndice = lsTatou.ListIndex
lsTatou.RemoveItem iIndice
iCompteurAj = iCompteurAj - 1
'MsgBox iIndice
iIndice = iIndice + 1
lbNoAni.Caption = lbCarGrpeNR.Caption & iIndice
bnSuprimerTatou.Enabled = False

If bnAjouterTatou.Enabled = False Then
bnAjouterTatou.Enabled = True
End If

End Sub


Merci d'avance.

Syd 🙂

 

[john]

Salut,

voilà un exemple pour ajouter et supprimer dans un listbox, attention que pour faire l'ajout, tu dois sélectionner l'élément qui devra se trouver après celui que tu vas insérer.

Bonne journée.

John

 

[Syd]

Merci John de m'avoir répondu aussi vite

 

[Syd]

Salut John,

c'est juste pr te redire MERCI car ton exemple m'a été tres utile !!!

 

[john]

Salut,

De rien, ce forum est là pour ça.

bonne journée.

john