Problème ouverture USF5 et fomat TextBox dans USF6...

Bonjour Christian

Il y avait un problème dans l’écriture du nom liste
Pour le Format textbox de l'usf6 je ne vois pas quelle est la question

Re, le forum, pierrejean

Merci pour ton aide, pierrejean .

Pour l'USF6, je souhaiterais, après avoir renseigné la TextBox PrixAchat et la TextBox TVA que la TextBox PrixHT se renseigne automatiquement
afin de ne pas avoir de formule en colonne M.

Merci pour ton aide.
Christian

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

Re

A tester

Re, le forum, pierrejean

Je te remercie, à nouveau, infiniment pour ton code qui fonctionne parfaitement.

Bien à toi.
Christian