Calcul textbox

[maval]

Bonjour,

J'ai un Formulaire pour calculer les textbox et ajouter des remises.

Mon problème est: Quand je doit calculer la deuxième ligne j'ai des erreurs, et je n'arrive pas a mettre les divers textbox en format €uros.

Je joint mon formulaire qui seras certainement plus parlant.

D'avance merci à qui pourra m'aider.

Cordialement
Maval

 

[laetitia90]

Re : Calcul textbox

re, tous ...a quel niveau cela marche pas ??

dans l'image c'est le resultat desirée ??

 

[maval]

Re : Calcul textbox

Re Lætitia,

J'ai mis ton code comme tu me la subjuguer mais je n'ai toujours pas dans ma combobox les taux en"%"

Private Sub Calculer_Click()

TTC.Value = Format(CDbl(PU.Value * QTE.Value), "00.00 €")
TTC1.Value = CDbl(PU1.Value) * CDbl(QTE1.Value)

TextQTE.Value = CDbl(QTE.Value) + CDbl(QTE1.Value) ' + CDbl(QTE2.Value) + Val(QTE3.Value) + Val(QTE4.Value)
TextTTC.Value = Format(CDbl(TTC.Value) + CDbl(TTC1.Value), "00.00 €") '+ Val(TTC2.Value) + Val(TTC3.Value) + Val(TTC4.Value)

Remise.Value = Format(CDbl(TextTTC.Value) * CDbl(Taux_Remise.Value), "0.00 €")

TextTTCNet.Value = Format(CDbl(TextTTC.Value) - CDbl(Remise.Value), "00.00 €")
TextHT.Value = Format(Round((TextTTCNet.Value) / 1.18, 2), "00.00 €")
TextTVA.Value = Format(TextTTCNet.Value - TextHT.Value, "00.00 €")

TTC.Visible = True
TTC1.Visible = True
TextQTE.Visible = True
TextTTC.Visible = True
Remise.Visible = True
TextTTCNet.Visible = True
TextHT.Visible = True
TextTVA.Visible = True
Label12.Visible = True
Label10.Visible = True
Label14.Visible = True
Label15.Visible = True
Label9.Visible = True
Label13.Visible = True
End Sub

Private Sub CommandButton3_Click()

' Partie pou vider tous les ComboBox
PRODUIT = "": PRODUIT1 = ""
PU = "": PU1 = "":
Taux_Remise = ""

' Vider tous les textbox
Dim Ctl As MSForms.Control
Dim réponse As Byte
For Each Ctl In Me.Controls
    If TypeOf Ctl Is MSForms.TextBox Then
    Ctl.Text = ""
        End If
Next
réponse = MsgBox(" Voulez-vous Effectuer une nouvelle Recherche ? ", vbYesNo + vbQuestion, "Validation")
If réponse = vbNo Then
Unload Me
End If
End Sub


Private Sub UserForm_Initialize()
With Worksheets("feuil1")

For Each c In .Range("g2:g" & .Range("g65536").End(xlUp).Row)
c = Format(c, "0 %")
Taux_Remise.AddItem c
Next c

PRODUIT.List = .Range("A2:A" & .Range("A65536").End(xlUp).Row).Value
PRODUIT1.List = .Range("A2:A" & .Range("A65536").End(xlUp).Row).Value

PU.List = .Range("D2:D" & .Range("D65536").End(xlUp).Row).Value
PU1.List = .Range("D2:D" & .Range("D65536").End(xlUp).Row).Value

Taux_Remise.List = .Range("G2:G" & .Range("G65536").End(xlUp).Row).Value

' Ils deviendront visible quand on aura appuyé sur Calculer
TTC.Visible = False
TTC1.Visible = False
TextQTE.Visible = False
TextTTC.Visible = False
Remise.Visible = False
TextTTCNet.Visible = False
TextHT.Visible = False
TextTVA.Visible = False
Label12.Visible = False
Label10.Visible = False
Label14.Visible = False
Label15.Visible = False
Label9.Visible = False
Label13.Visible = False

End With

End Sub

Merci de ton aide

Max

 

[laetitia90]

Re : Calcul textbox

re, normal tu as laisser l'ancienne liste

Taux_Remise.List = .Range("G2:G" & .Range("G65536").End(xlUp).Row).Value

autrement pour les calculs en simplifier

Private Sub Calculer_Click()
TTC = Format(CDbl(PU * QTE), "00.00 €")
TTC1 = Format(CDbl(PU1) * CDbl(QTE1), "00.00 €")
TextQTE = CDbl(QTE) + CDbl(QTE1)
TextTTC = Format(CDbl(TTC.Value) + CDbl(TTC1.Value), "00.00 €")
Remise = Format(CDbl(TextTTC) * CDbl(Left(Taux_Remise, Len(Taux_Remise) - 2) / 100), "0.00 €")
TextTTCNet = Format(CDbl(TextTTC) - CDbl(Remise), "00.00 €")
TextHT = Format(Round((TextTTCNet) / 1.18, 2), "00.00 €")
TextTVA = Format(TextTTCNet.Value - TextHT.Value, "00.00 €")
End Sub

en fin de compte enléve tous c'est les .Value servent a rien dans ton cas

 

[maval]

Re : Calcul textbox

Re Lætitia,

Je te remercie beaucoup sa marche nickel.

J'ai rajouter les taux de TVA avec des Option bouton j'ai juste un petit souci au niveau des décimales j'ai dans mon textbox HT plus de 11 décimales.

Pourrai-tu me donner le code pour avoir que 2 décimales

Merci pour tous et bonne soirée

@+
Max

 

[maval]

Re : Calcul textbox

Bonsoir Carcharodon-carcharias,

Je m'excuse mais je n'ai rien compris?

Peut être pourriez-vous me donner d'autre explication!

Cordialement

Maval

 

[maval]

Re : Calcul textbox

Re,

J'ai bien remplacer mes textbox par des combobox et dans les propriété ,ShowDropButtonWhen à 0 mais j'ai toujours plus de 11 décimales ?

@+

 

[fhoest]

Re : Calcul textbox

Bonsoir à tous,
@ Carcharodon-carcharias ,super je ne connaissais pas cette fonctionnalité, tu veux dire que si l'on met du texte il prend du texte et que si l'on met du chiffre il ne met pas de texte en cellule c'est bien cela ?
si oui c'est génial , par contre y a t'il des situations particulières par rapport au simple Textbox et au calcul etc...
Merci.

 

[fhoest]

Re : Calcul textbox

apprenez à utiliser les ComboBox et à tirer parti de leurs propriétés

Comme si bien dit par carcharodon-carcharias
Propriété maxlength = longeur max
A+

 

[maval]

Re : Calcul textbox

Re bonjour

Avec toutes ces bonnes idées je n'ai toujours pas réussi a mettre mon combobox ou textbox en 2 décimales.

Bonne soirée à tous

Maval

 

[fhoest]

Re : Calcul textbox

Re, sur l'exemple textbox que tu as mis plus haut:

Private Sub TextHT_Change()
TextHT.Value = Left(TextHT, 5)
End Sub

A toi d'adapter pour une combobox
A+

 

[laetitia90]

Re : Calcul textbox

re tous
tu peus ecrire comme cela pour le format.. pas simplifier

If TextTTCNet = "" Then
 TextTTCNet = Format(TextHT * TVA, "00.00 €")
 Else
 TextHT = Format(TextTTCNet / TVA, "00.00 €")
End If

pour les combos une solution... effectivement simplifier le code... mais raremement le reflexe d'utiliser

 

[Fo_rum]

Re : Calcul textbox

Bonjour,

tu risques d'avoir des codes qui se compliquent si tu prends plus d'articles !
Tu risques d'avoir des code qui se compliquent si tu dois changer de TVA pour chaque article !
Voilà un autre exemple avec le minimum d'affichage. Si cela t'intéresse, il te restera à chercher comment gérer le séparateur décimal (, ou .) et revoir les calculs en cas de taux différents d'une saisie à l'autre.
Au niveau des déclarations, pour des saisies monétaires, il est conseillé de choisir le type "Currency" (voir l'Aide).

 

[maval]

Re : Calcul textbox

Bonjour Fo_rum,

Super ton formulaire je te remercie beaucoup.
Juste un petit détail s'il est possible j'aimerai apporter une modification au code. Il serai pour moi beaucoup plus intéressante d'avoir le détail des articles, alors j'ai ajouté une frame avec des textboxs, et j'aimerai si possible que chaque fois que l'ont clic sur le bouton "ajouter à la liste" sa puisse s'ajouter dans la listbox comme actuellement et dans les textbox.

D'avance merci de votre aide.

Cordialement
Maval