La combobox ne prend pas la valeur de la listbox

[Jonathan1986]

Bonjour à tous Bonjour le forum,

Je fais appel à vous car cela fait quelques heures que je m'arrache les cheveux pour résoudre mon problème.

J'alimente une BDD via un userform, parmi les fonctionnalités je souhaite pourvoir supprimer des ligne correspondant à l'item. Je sélectionne l'item sur une listbox, la valeur est renvoyée dans une combobox. Je souhaite supprimer la ligne correspondant a cet item. Seul problème cela ne marche que quand je sélectionne l'item via la combbox et non la listbox.

Si quelqu'un aurait une idée ce serait génial, je ne vois absolument pas comment faire et no trouve pas la réponse.

Merci d'avance

Voici le code qui alimente ma combobox en fonction du choix de la listbox :

Private Sub lbitems_Click()
'--- Declaration des variables
Dim NuLigne As Integer
Dim intCurrentRow As Integer

' Boucle de recherche la ligne sélectionnée
For intCurrentRow = 0 To lbitems.ListCount - 1
If lbitems.Selected(intCurrentRow) Then
NuLigne = intCurrentRow '
Exit For ' on sort de la boucle de test ,
End If
Next intCurrentRow

' récuperation de la valeur selectionné dans le listBox
cbitem = lbitems.Column(0, NuLigne)

End Sub

 

[Jonathan1986]

Re : La combobox ne prend pas la valeur de la listbox

Re
Ok d'accord, j'ai essayé de mélager les deux méthodes c'est pour cela que ça ne marchait pas, maintenant je m'en sors avec la premières méthodes
Je regarde la deuxième et me trouve un tuto sur les rowsources
Encore merci a toi merci le forum