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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.