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

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais, à nouveau votre aide en VBA...tout est dans le titre, voir explications dans la fichier joint.

Merci pour votre aide, si précieuse.

Bien amicalement.
Christian

 

[pierrejean]

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

 

[Christian0258]

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

 

[Christian0258]

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

 

[pierrejean]

Re

A tester

 

[Christian0258]

Re, le forum, pierrejean

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

Bien à toi.
Christian