Private Declare PtrSafe Function FindWindowA& Lib "User32" _
(ByVal lpClassName$, ByVal lpWindowName$)
Private Declare PtrSafe Function EnableWindow& Lib "User32" _
(ByVal hWnd&, ByVal bEnable&)
Private Declare PtrSafe Function GetWindowLongA& Lib "User32" _
(ByVal hWnd&, ByVal nIndex&)
Private Declare PtrSafe Function SetWindowLongA& Lib "User32" _
(ByVal hWnd&, ByVal nIndex&, ByVal dwNewLong&)
Private Sub UserForm_Initialize()
Dim itmIdx, iItem As Long
Me.Caption = "CONTRÔLE STOCK"
Me.LblBand7.Width = Me.Width
With Sheets("Stock")
For i = 2 To .Range("C65536").End(xlUp).Row
If Me.CmbProduits.ListIndex = -1 Then Me.CmbProduits.AddItem .Range("C" & i)
Next i
End With
If Len(RTrim(gStkArt)) <= 0 Then
Exit Sub
End If
itmIdx = -1
For iItem = 0 To Me.CmbProduits.ListCount - 1
If Me.CmbProduits.List(iItem) = gStkArt Then
itmIdx = iItem
Exit For
End If
Next iItem
If itmIdx < 0 Then
MsgBox "Absent de la liste"
Else
Me.CmbProduits.ListIndex = itmIdx
End If
Dim x As Long, Fichier As String
Fichier = ThisWorkbook.Path & "\favicon.ico"
x = Len(Dir(Fichier))
If x = 0 Then Exit Sub
x = ExtractIconA(0, Fichier, 0)
SendMessageA FindWindow(vbNullString, Me.Caption), &H80, False, x
Dim hWnd As Long
hWnd = FindWindowA(vbNullString, Me.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H20000
End Sub
Private Sub UserForm_Activate()
Dim hWnd As Long
hWnd = FindWindowA("XLMAIN", Application.Caption)
EnableWindow hWnd, 1
End Sub
Private Sub CmbProduits_Change()
Dim cel As Range, lig As Long
lig = Sheets("Stock").Range("a65536").End(xlUp).Row + 1
With Sheets("Stock").Range("a2:i" & lig)
Set cel = .Find(Me.CmbProduits.Value)
If Not cel Is Nothing Then
Me.TxtID.Text = cel.Offset(0, -2)
Me.TtxtCategorie.Text = cel.Offset(0, -1)
Me.TxtArticle.Text = cel.Offset(0, 0)
Me.TxtVente.Text = cel.Offset(0, 1)
Me.TxtReservations.Text = cel.Offset(0, 2)
Me.TxtStockReel.Text = cel.Offset(0, 3)
Me.TxtStockMini.Text = cel.Offset(0, 4)
Me.TxtACommander.Text = cel.Offset(0, 5)
Me.TxtRuptStock.Text = cel.Offset(0, 6)
Else
MsgBox "Veuillez verifier le nom du produit.", , "La Gondolière"
Exit Sub
End If
End With
End Sub
Private Sub TxtRuptStock_Change()
If Me.TxtStockReel.Value <= 0 Then Me.TxtRuptStock.Value = "ATTENTION !"
End Sub
Private Sub CmdModifier_Click()
lig = Sheets("Stock").Range("a65536").End(xlUp).Row
With Sheets("Stock").Range("a2:i" & lig)
Set cel = .Find(Me.TxtID.Text)
If Not cel Is Nothing Then
cel.Offset(0, 0) = Me.TxtID.Text
cel.Offset(0, 1) = Me.TtxtCategorie.Text
cel.Offset(0, 2) = Me.TxtArticle.Text
cel.Offset(0, 3) = Me.TxtVente.Text
cel.Offset(0, 4) = Me.TxtReservations.Text
cel.Offset(0, 5) = Me.TxtStockReel.Text
cel.Offset(0, 6) = Me.TxtStockMini.Text
cel.Offset(0, 7) = Me.TxtACommander.Text
cel.Offset(0, 8) = Me.TxtRuptStock.Text
End If
End With
Me.TxtID.Text = ""
Me.TtxtCategorie = ""
Me.TxtArticle.Text = ""
Me.TxtVente.Text = ""
Me.TxtReservations.Text = ""
Me.TxtStockReel.Text = ""
Me.TxtStockMini.Text = ""
Me.TxtACommander.Text = ""
Me.TxtRuptStock.Text = ""
End Sub
Private Sub CmdQuitter_Click()
Unload Me
UsfCom.Show
End Sub