Re, le forum
Bonjour à tous,
Pour préciser ma demande, post3, ci-joint le code, et les 3 lignes qui me pose problème ;
Private Sub CommandButton1_Click() ' ajout de matériel
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 = Unité.Value
.Range("D" & ligne).Value = Fournisseur.Value
px = Replace(PrixAchat, ".", ",")
px = Replace(px, "€", "")
.Range("E" & ligne).Value = CDbl(px) 'prix achat OK
.Range("F" & ligne).Value = Marge.Value 'marge % OK
px = Replace(MargeEuro, ".", ",")
px = Replace(px, "€", "")
.Range("G" & ligne).Value = CDbl(px) 'marge € OK
px = Replace(VenteClient, ".", ",")
px = Replace(px, "€", "")
.Range("H" & ligne).Value = CDbl(px) 'prix vente TTC OK
.Range("I" & ligne).Value = TVA.Value / 100 'taux TVA OK
.Range("J" & ligne).Value = MSN.Value 'annotation OK
.Range("M" & ligne).Value = CDbl(px) / 1 + TVA.Value 'ces 3 lignes ne fonctionnent pas
px = Replace(PrixAchat, ".", ",")
px = Replace(px, "€", "")
.Range("a2:m65536").Sort .Range("B2"), xlAscending
End With
Unload Me
End Sub
Merci pour votre aide si précieuse.
Bien à vous,
Christian