Discussion :

[Seboe]

Bonjour à tous,

Je me permets de solliciter votre aide pour une fonctionnalité que je souhaiterais réaliser.
Je suis en train de créer un logiciel qui me permet de gérer simplement des stocks et les entrées/sorties de matières.

Pour cela, la matière est affectée à un emplacement, contient une quantité, une référence et un numéro unique.

Mon programme créé un fichier .txt pour chaque entrée de matière dans un dossier "Stockage".
Toutes les informations concernant la matière sont enregistrées dans le titre du fichier.
Soit : Référence,NuméroUnique,Quantité,Emplacement.txt

Dans un écran de mon application qui me sert à consulter les matières en stocks, j'utilise une listbox à 4 colonnes qui liste tous les fichiers .txt présents dans le dossier et sépare les informations entre les virgule.

Voici le code :

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
28
29
30
31
32
33
34
35
36
37
38
Private Sub UserForm_Initialize()
EcranSortie.ListBox_Sort.ColumnCount = 4
 
repertoire = ActiveWorkbook.Path & "\Stockage"
 
Dim Coll_Docs As New Collection
Dim Search_path, Search_Filter, Search_Fullname As String
Dim DocName As String
Dim i As Long
 
Search_path = repertoire
Search_Filter = "*.txt"
 
Set Coll_Docs = Nothing
 
DocName = Dir(Search_path & "\" & Search_Filter)
 
Do Until DocName = ""
    Coll_Docs.Add Item:=DocName
    DocName = Dir
Loop
 
For i = Coll_Docs.Count To 1 Step -1 '
 
Xpn = InStr(1, Coll_Docs(i), ",")
Xlabel = InStr(Xpn + 1, Coll_Docs(i), ",")
XQty = InStr(Xlabel + 1, Coll_Docs(i), ",")
XLoc = Len(Coll_Docs(i)) - 4
 
EcranSortie.ListBox_Sort.AddItem 'Coll_Docs(i)
EcranSortie.ListBox_Sort.List(ListBox_Sort.ListCount - 1, 0) = Left(Coll_Docs(i), Xpn - 1)
EcranSortie.ListBox_Sort.List(ListBox_Sort.ListCount - 1, 1) = Right(Left(Coll_Docs(i), Xlabel - 1), Xlabel - (Xpn + 1))
EcranSortie.ListBox_Sort.List(ListBox_Sort.ListCount - 1, 2) = Right(Left(Coll_Docs(i), XQty - 1), XQty - (Xlabel + 1))
EcranSortie.ListBox_Sort.List(ListBox_Sort.ListCount - 1, 3) = Right(Left(Coll_Docs(i), XLoc), XLoc - XQty)
 
Next i
 
End Sub

J'ai dans mon formulaire, une TextBox pour réaliser une recherche.
Je souhaiterais qu'au fur et à mesure que je tape des caractères, les résultats non correspondant ne s'affichent pas.
Exemple : si je tape un 5, toutes les références ne commencant pas par 5 ne s'affichent pas et ainsi de suite

Je n'arrive pas à réaliser cela en conservant l'affichage des différentes colonnes pour les résultats.
J'espère avoir été assez clair et vous remercie par avance de votre aide.

[boisgontierjacques]

Bonjour,

Exemple en PJ

Boisgontier

[Seboe]

Bonjour BoisGontier,

J'ai regardé ton fichier, celui fonctionne parfaitement dans ton exemple.
En effet tu utilises un tableau déjà créé dans un onglet.

Pour ma part, je n'ai aucun tableau puisque mes données proviennent d'une liste de fichiers dans un dossier.

J'ai du mal à adapter ton exemple pour mon code.
Peux-tu m'aider ? Merci d'avance,

[Seboe]

J'ai réussi à adapter mon code pour mettre le contenu de la listbox dans un tableau.
Cependant quand je réalise une saisie les résultats ne correspondant s'enlève bien mais la première ligne s'enlève tout le temps et la première colonne disparaît.
Une idée ?

[Seboe]

C'est tout bon. C'était des erreurs dans les boucles.

Voici le code qui fonctionne. Merci

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
 
Private Sub UserForm_Initialize()
 
ListBox_Cons.Clear
 
EcranConsult.ListBox_Cons.ColumnCount = 4
 
repertoire = ActiveWorkbook.Path & "\Stockage"
 
Dim Coll_Docs As New Collection
Dim Search_path, Search_Filter, Search_Fullname As String
Dim DocName As String
Dim i As Long
 
Search_path = repertoire
Search_Filter = "*.txt"
 
Set Coll_Docs = Nothing
 
DocName = Dir(Search_path & "\" & Search_Filter)
 
Do Until DocName = ""
    Coll_Docs.Add Item:=DocName
    DocName = Dir
Loop
 
For i = Coll_Docs.Count To 1 Step -1 '
 
Xpn = InStr(1, Coll_Docs(i), ",")
Xlabel = InStr(Xpn + 1, Coll_Docs(i), ",")
XQty = InStr(Xlabel + 1, Coll_Docs(i), ",")
XLoc = Len(Coll_Docs(i)) - 4
 
EcranConsult.ListBox_Cons.AddItem 'Coll_Docs(i)
EcranConsult.ListBox_Cons.List(ListBox_Cons.ListCount - 1, 0) = Left(Coll_Docs(i), Xpn - 1)
EcranConsult.ListBox_Cons.List(ListBox_Cons.ListCount - 1, 1) = Right(Left(Coll_Docs(i), Xlabel - 1), Xlabel - (Xpn + 1))
EcranConsult.ListBox_Cons.List(ListBox_Cons.ListCount - 1, 2) = Right(Left(Coll_Docs(i), XQty - 1), XQty - (Xlabel + 1))
EcranConsult.ListBox_Cons.List(ListBox_Cons.ListCount - 1, 3) = Right(Left(Coll_Docs(i), XLoc), XLoc - XQty)
 
Next i
 
 
TBlBD = ListBox_Cons.List
 
End Sub
 
Private Sub TextBox_PNS_Change()
  ColRechTextbox = 0
  Dim b()
  If Me.TextBox_PNS <> "" Then
   Set d1 = CreateObject("Scripting.Dictionary")
   tmp = Me.TextBox_PNS & "*"
   n = 0
   For i = 0 To UBound(TBlBD)
      If TBlBD(i, ColRechTextbox) Like tmp Then
        n = n + 1: ReDim Preserve b(0 To UBound(TBlBD, 2), 1 To n)
        For k = 0 To UBound(TBlBD, 2): b(k, n) = TBlBD(i, k): Next k
     End If
   Next i
   If n > 0 Then Me.ListBox_Cons.Column = b Else Me.ListBox_Cons.Clear
 Else
   Me.ListBox_Cons.List = TBlBD
 End If
End Sub

[boisgontierjacques]

Le principe est le même:

-On stocke dans Un Array() les infos -TblBD() sur mon exemple-
-Le TextBox utilise cet Array pour alimenter la ListBox.

Boisgontier

[Seboe]

Encore merci pour ton aide.

Cette fois j'ai un autre soucis concernant les textbox.

En effet, j'utilise un scan de code barre pour saisir les informations.
Lors de la saisie d'une textbox avec le scan, je vérifie les 2 premiers caractères de la saisie (ils doivent correspondre à 1D).
Si cela n'est pas vrai, je supprime les infos scanner et met un message d'alerte.

Cependant, après ce message, mon curseur passe automatiquement à la textbox suivante.
Quand je scanne, il doit appliquer automatiquement un "retour chariot".

Je souhaiterais que mon curseur revienne dans la textbox active lors de la mauvaise saisie.
Comment peut-on faire cela ?

[boisgontierjacques]

Me.TextBox1.SetFocus ?

Boisgontier

[Seboe]

J'ai déjà essayé et cela ne fonctionne pas.
J'ai mis mon code pour qu'il s'execute après la mise à jour de la textbox :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub TextBox_PN_AfterUpdate()
 
If Left(TextBox_PN.Value, 2) = "1D" Then
TextBox_PN.Value = Right(TextBox_PN.Value, Len(TextBox_PN.Value) - 2)
Else
TextBox_PN = ""
MsgBox ("Veuillez saisir la matière")
Me.TextBox_PN.SetFocus
End If
 
End Sub