Re : Gestion de parc
Bonjour info69,
Tout d'abord merci pour tes encouragements et tes remarques. Toutefois, ne crois pas que c'est aussi simple pour moi. Je découvre le vba et je ne suis pas encore à la hauteur du résultat que je cherche à avoir. Voici ci dessous la liste des choses que je ne sais pas faire:
- Intégrer un calendrier qui afficherait les sorties de matériel (et son option de choix de date)
- Relier la liste de catégories et sous cat de ma feuille excel à mes combobox et faire en sorte que les sous catégories s'affichent selon le choix de ma catégorie (j'ai cherché les dépendances de combobox mais je n'y arrive pas)
- afficher pour le produit sélectionné dans ma listbox le nombre en stock, sorti et qui reste
- Tout le travail de la sortie de matériel est un calvaire. Je ne sais pas comment faire pour que je sélectionne le matériel et une fois validé il garde en mémoire ce qui est sorti.
Enfin en résumé, j'ai besoin de votre aide pour la partie code et relier tout ca. Pour le moment vous verrez que rien ne fonctionne.
Un truc. J'ai essayé d'associer mon textbox de recherche et ma listbox ensemble mais ca ne fonctionne pas (erreur de compilation, sub ou fonction indéfinie). Voici le code:
Private Sub TextBox1_Change()
i = 0
Set Plage = Sheets("Inventaire").Range("C2:C" & Sheets("Inventaire").Range("C65536").End(xlUp).Row)
Set plage_a = Sheets("Inventaire").Range("C2
" & Sheets("Inventaire").Range("D65536").End(xlUp).Row)
NbCol = Plage.Columns.Count
Me.ListBox1.Clear
Set C = plage_a.Find(Me.TextBox1, , , xlPart)
If Not C Is Nothing Then
premier = C.Address
Do
Me.ListBox1.AddItem
lig = C.Row - Plage.Row + 1
For col = 1 To NbCol
Me.ListBox1.List(i, col - 1) = Plage.Cells(lig, col)
Me.ListBox1.List(ListBox1.ListCount - 1, 1) = Plage.Cells(lig, col + 1)
Next col
i = i + 1
Set C = plage_a.FindNext(C)
Loop While Not C Is Nothing And C.Address <> premier
End If
If Me.TextBox1 = "" Then Call InitListBox1
End Sub
Merci pour votre aide.
Ben