Discussion :

[froutloops62]

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.

[ARTURO83]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[froutloops62]

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.

[ARTURO83]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[froutloops62]

je le positionne peut-être mal.

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

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
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

[ARTURO83]

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.