Ok mais comment je fais pour afficher dans le listbox que les lignes concerné par le critère du numéro ACDE présent dans le combobox ?
En premier il faut charger la feuille Magasin. Une fois fait on réinitialise la listbox
Peut être un truc avec option compare text, mais je ne sais pas l'utiliser.
Non. Cette instruction sert à éviter des erreurs avec les caractères minuscules ou majuscules
Je vais modifier le code d'ajout pour envoyer dans la feuille magasin au lieu de temp.
Entre temps, vous pouvez déjà remplacer votre Private sub initialize() par celle ci-dessous
Private Sub UserForm_Initialize()
Dim Mouvements()
Dim cola As Integer, colx As Integer, colb As Integer
cola = 1
colx = 1
colb = 1
Mouvements = Array("Attente de livraison", "Entrée", "Sortie", "Retour")
ComboBox765.List = Mouvements
With Sheets("MAGASIN")
.Range("a1") = auprofit.Caption
.Range("b1") = codeprojet.Caption
.Range("c1") = sitede.Caption
.Range("d1") = famille.Caption
.Range("e1") = fournisseur.Caption
.Range("f1") = ref.Caption
.Range("g1") = nacde.Caption
.Range("h1") = "UNITE"
.Range("i1") = punit.Caption
.Range("j1") = qte.Caption
.Range("k1") = ptotal.Caption
.Range("l1") = place.Caption
.Range("m1") = qtemax.Caption
.Range("n1") = "QTE EN ATTENTE"
End With
With Sheets("FAMFOUR")
Do While .Cells(1, cola).Value <> ""
ComboBox478.AddItem .Cells(1, cola).Value
ComboBox12.AddItem .Cells(1, cola).Value
cola = cola + 1
Loop
End With
With Sheets("UTILISATEUR")
Do While .Cells(1, colx).Value <> ""
ComboBox1.AddItem .Cells(1, colx).Value
ComboBox8.AddItem Cells(1, colx).Value
colx = colx + 1
Loop
End With
Dim i As Integer
i = 1
With Sheets("MAGASIN")
Do While .Cells(i + 1, 14).Value <> ""
ComboBox762.AddItem Cells(i + 1, 7).Value
i = i + 1
Loop
End With
Width = Application.Width
Height = Application.Height
Left = 0
Top = 0
'Sheets("DEMARRER").Select --> Dan ne sert pas
End Sub