Private Sub CLsE_Change(ByVal Complet As Boolean, ByVal NbrLgn As Long)
If NbrLgn = 1 Then CBnEValider.Caption = "Modifier": Exit Sub
If NbrLgn = 0 Then 'LBxA.Clear
LCouE = 0
ReDim TVLE(1 To 1, 1 To 10)
If LCouA <> 0 Then
TVLE(1, 3) = TVLA(1, 17)
End If
GarnirEntree
CBnEValider.Caption = "Ajouter"
End If
End Sub
Private Sub CLsA_Résultat(Lignes() As Long)
Dim TDon(), TLBx(), Ldon As Long, LLBx As Long, C As Long
If UBound(Lignes) = 1 Then
LCouA = Lignes(1)
TVLA = CLsA.Lignes(LCouA).Range.Value
GarnirArticle
Else
TLA = Lignes
TDon = CLsA.PlgTablo.Value
ReDim TLBx(1 To UBound(TLA), 1 To 20)
End If
End Sub
Private Sub GarnirArticle()
Me.TBxCPUHT.Text = TVLA(1, 17)
End Sub
Private Sub CBnRazA_Click()
CLsA.Nettoyer
End Sub
Private Sub CBnRazC_Click()
Dim RefArt As String
RefArt = CBxARéfArticle.Text
CLsC.Nettoyer
CBxARéfArticle.Text = RefArt
End Sub
Private Sub CBnRazE_Click()
Dim RefArt As String
RefArt = CBxARéfArticle.Text
CLsE.Nettoyer
CBxARéfArticle.Text = RefArt
End Sub
Private Sub CLsA_Change(ByVal Complet As Boolean, ByVal NbrLgn As Long)
If NbrLgn = 1 Then Exit Sub
If NbrLgn = 0 Then
LCouA = 0
ReDim TVLA(1 To 1, 1 To 20)
GarnirArticle
End If
End Sub
Private Sub CLsA_Change(ByVal Complet As Boolean, ByVal NbrLgn As Long)
If NbrLgn = 1 Then Exit Sub
GarnirArticle
End If
End Sub