Private Sub CLsC_Change(ByVal Complet As Boolean, ByVal NbrLgn As Long)
If NbrLgn = 1 Then Exit Sub
If NbrLgn = 0 Then
LCouC = 0
ReDim TVLC(1 To 1, 1 To 14)
GarnirCommande
End If
End Sub
Private Sub GarnirCommande()
Me.TBxCQte.Text = TVLC(1, 10) 'TExte en jaune mais je ne comprend pas pourquoi
Me.TBxCPUHT.Text = TVLC(1, 11)
End Sub