Détecter si la donnée d'une TextBox existe déjà dans la première colonne d'une ListBox

Bonjour à tous,

j'ai cherché mais sans succès un code qui détecterait qu'une donnée entrée dans une textBox existe déjà dans la listebox de mon formulaire VBA

avec une MsgBox "Le numéro de lot existe déjà dans la liste"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub txtNoLot_AfterUpdate() Dim nbControles As Integer Dim NbItem As Integer Dim DateEnter As Date   nbControles = 4 DateEnter = Now()   Me.ListLots.AddItem txtNoLot NbItem = Me.LstLots.ListCount - 1 'on charge les contrôles dans la liste Me.ListLots.List(NbItem, 1) = Me.txtNoEtiquette Me.ListLots.List(NbItem, 2) = Me.txtNoPalette Me.ListLots.List(NbItem, 3) = DateEnter   Exit Sub

---

Auriez-vous des idées ?

Merci.

Bonjour,

Essayez ceci, (pas testé de mon côté)

Code:

---

1 2 3 4 5

For i = 0 To ListLots.ListCount - 1 If ListLots.Selected(i) = TextBox.Value Then MsgBox "Le numéro de lot existe déjà dans la liste" End If Next

---

Cdlt

Merci pour votre aide.

Malheureusement, la MsgBox s'affiche à chaque fois :que l'entrée est bien différente et même quand la liste est vide.

Oui mais, j'ai fait court, puisque vous aviez demandé "si nous avions des idées", pensant que vous l'adapteriez à votre code. On pourrait le compléter comme ceci:

Code:

---

1 2 3 4 5 6 7 8

if NbItem <>"" then For i = 0 To ListLots.ListCount - 1 If ListLots.Selected(i) = TextBox.Value Then MsgBox "Le numéro de lot existe déjà dans la liste" exit for End If Next end if

---

je le positionne peut-être mal.

Le message s'affiche toujours même si la valeur est différente.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Private Sub txtNoLot_AfterUpdate() On Error Resume Next Dim nbControles As Integer Dim NbItem As Integer Dim DateEnter As Date   nbControles = 4 DateEnter = Now()   If NbItem <> "" Then For i = 0 To ListLots.ListCount - 1 If ListLots.Selected(i) = txtNoLot.Value Then MsgBox "Le numéro de lot existe déjà dans la liste" Exit For End If Next End If   Me.LstLots.AddItem txtNoLot NbItem = Me.LstLots.ListCount - 1 'on charge les contrôle dans la liste Me.LstLots.List(NbItem, 1) = Me.txtNoEtiquette Me.LstLots.List(NbItem, 2) = Me.txtNoPalette Me.LstLots.List(NbItem, 3) = DateEnter     End Sub

---

Comme je n'ai pas de fichier à disposition, je ne peux pas tester.
Mettez un point d'arrêt (avec F9) devant la ligne 10 "If NbItem <> "" Then" et avancez en faisant du pas à pas avec la touche F8 et passez la souris au-dessus des éléments du code "NbItem", "ListLots", etc ..., essayez d'analyser ce que cela signifie et ce que vous voyez vous paraît-il cohérent? donnez-moi les valeurs que vous voyez au premier passage.

Effectivement, mon NbItem = 0 (Même si la listBox était vide)

J'ai modifié le code comme suit :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

NbItem = Me.LstLots.ListCount If NbItem <> 0 Then For i = 0 To NbItem - 1   If LstLots.Selected(i) = txtNoLot.Value Then MsgBox "Le numéro de lot existe déjà dans la liste" Exit For End If Next End If   'on charge les contrôle dans la liste Me.LstLots.AddItem txtNoLot Me.LstLots.List(NbItem, 1) = Me.txtNoEtiquette Me.LstLots.List(NbItem, 2) = Me.txtNoPalette Me.LstLots.List(NbItem, 3) = DateEnter 'End If   End Sub

---

Malheureusement ça ne fonctionne toujours pas car je pense que le problème vient de : LstLots.Selected(i) qui est égal à faux.

Ce qui donne

If LstLots.Selected(i) Faux= txtNoLot.Value 152 Then
Il boucle met ne m'alerte pas avec la msgBox

C'est bon je l'ai :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

NbItem = Me.LstLots.ListCount If NbItem <> 0 Then For i = 0 To NbItem - 1   If LstLots.List(i) = txtNoLot.Value Then MsgBox "Le numéro de lot existe déjà dans la liste" txtNoLot = "" Exit Sub Exit For End If Next End If Me.LstLots.AddItem txtNoLot 'on charge les contrôle dans la liste Me.LstLots.List(NbItem, 1) = Me.txtNoEtiquette Me.LstLots.List(NbItem, 2) = Me.txtNoPalette Me.LstLots.List(NbItem, 3) = DateEnter   End Sub

---

J'ai remplacé LstLots.Selected(i) par LstLots.List(i)

Un très très grand merci à toi !!!!

Ceci plutôt:

Code:

---

1 2	For i = 0 To NbItem - 1 If LstLots.List(LstLots.ListIndex) = txtNoLot.Value Then

---

ça fonctionne bien avec LstLots.List(i).

Pour le LstLots.List(LstLots.ListIndex), j'ai :

Citation:

---

Impossible de lire la propriété List.Index

---