jean marieEt qu'en même temps, cela auto alimente la combobox qui me permet d'afficher les détails du mouvement sélectionné avec le dernier mouvement enregistré.
Sub Affiche()
Dim Tbl()
cbx1 = Me.ComboBox1: cbx2 = Me.ComboBox2: cbx3 = Me.ComboBox3: cbx4 = Me.ComboBox4: cbx5 = Me.ComboBox5
n = 0: C = 0
Cb = Array(1, 1, 1, 1, 1)
For H = 0 To UBound(ColCombo): Cb(H) = ColCombo(H): Next H
For H = 1 To UBound(TabBD)
If TabBD(H, Cb(0)) Like cbx1 And TabBD(H, Cb(1)) Like cbx2 _
And TabBD(H, Cb(2)) Like cbx3 And TabBD(H, Cb(3)) Like cbx4 And TabBD(H, Cb(4)) Like cbx5 Then
n = n + 1: ReDim Preserve Tbl(1 To NcolVisu + 1, 1 To n)
For k = 1 To NcolVisu
Tbl(k, n) = TabBD(H, k)
Next
Tbl(6, n) = Format(TabBD(H, 8), "hh:mm")
Tbl(8, n) = Format(TabBD(H, 11), "hh:mm")
Tbl(k, n) = TabBD(H, NcolBD)
End If
Next H
If n > 0 Then
Me.ListBox1.Column = Tbl
Else
Me.ListBox1.Clear
End If
Me.ListBox1.ListIndex = 0 '<-----------------au lieu de Me.ListBox1.ListCount - 1
End Sub
je regarde (car tu as mis des Colonnes Vides) je vais voir !Il ne me reste plus que:
- Décalage dans mes données, elles sont décalées des labels de une colonne dans la "listbox" et la partie "mouvement sélectionné"
- Soucis dans l'affichage des têtes de colonnes de la listbox
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
'Lien avec Data
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Me.ComboBox2.Value = Me.TextBoxNomGr.Value
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
je pensais qu'un Client était enregistré parce qu'il occupait un emplacement,mais Bon !Cela génère une erreur quand il y a un client qui n'a pas encore de mouvement enregistré.
Combobox2.ListIndex=cboClients.ListIndex