Option Explicit
Private Sub Produit_Change()
Produit.Value = Application.WorksheetFunction.Proper(Produit.Value)
End Sub
Private Sub Fourniss_Change()
Fourniss.Text = Application.WorksheetFunction.Proper(Fourniss.Text)
End Sub
Private Sub PrixAchat_Change()
Dim CHN As String, Start As Integer
CHN = PrixAchat.Text
Start = PrixAchat.SelStart
If CHN <> "" Then
If Right(CHN, 1) <> "€" Then
CHN = RTrim(CHN) & " €"
PrixAchat.Text = CHN
PrixAchat.SelStart = Start
End If
End If
End Sub
Private Sub Marge_Change()
Dim px, px2 As Double
Dim CHN As String, Start As Integer
CHN = Marge.Text
Start = Marge.SelStart
If CHN <> "" Then
If Right(CHN, 1) <> "%" Then
CHN = RTrim(CHN) & " %"
Marge.Text = CHN
Marge.SelStart = Start
End If
End If
px = Replace(PrixAchat, "€", "")
px = Replace(PrixAchat, ".", ",")
px2 = CDbl(px) * Val(Marge) / 100
MargeEuro.Text = Format(px2, "0.000") & " €"
VenteClient = Format(CDbl(px) + (CDbl(px) * Val(Marge) / 100), "0.000") & " €"
End Sub
Private Sub MSN_Change()
MSN = LCase(MSN)
End Sub
Private Sub CommandButton1_Click() ' AJOUTER MATOS
Dim ligne As Integer
Dim px
With Sheets("Matériel")
ligne = .Range("B65536").End(xlUp).Row + 1
.Range("B" & ligne).Value = Produit.Value
.Range("C" & ligne).Value = Fourniss.Value
px = Replace(PrixAchat, ".", ",")
px = Replace(px, "€", "")
.Range("D" & ligne).Value = CDbl(px)
.Range("E" & ligne).Value = Marge.Value
px = Replace(MargeEuro, ".", ",")
px = Replace(px, "€", "")
.Range("F" & ligne).Value = CDbl(px)
px = Replace(VenteClient, ".", ",")
px = Replace(px, "€", "")
.Range("G" & ligne).Value = CDbl(px)
.Range("H" & ligne).Value = MSN.Value
.Range("a2:I65536").Sort .Range("B2"), xlAscending
End With
Unload Me
End Sub
Private Sub CommandButton2_Click() ' SORTIR
Unload Me
'Sheets("Formulaire").Select
End Sub