Bonjour,
je suis entrain de créer un formulaire de saisie en Userform pour faire mes devis; je n'arrive pas à faire les calculs du montant de la TVA à 20%, du montant TTC et de l'acompte de 10 %.
Je voudrais que dès que je rentre le montant HT que la TVA, le TTC et l'acompte ce calcul tout seul.
- le HT est en € en "TexteBox20"
- la TVA est un label qui s'appel "TVA"
- le TTC est un label qui s'appel "TTC"
- l'acompte est aussi un label qui s'appel "acompte"
Bonjour
Oui on doit pouvoir t'aider, mais il serait bien de poster un fichier avec ce que tu as déjà fait ( sans données confidentielles)
cela nous évitera à moi ou d'autres de te répondre à coté et nous évitera de recréer le contexte
merci
Bonsoir
A priori tu es débutante , on va t'aider à créer un userform qui se tient.
dans un premier temps tu vas ( si tu le souhaites ) renommer tout tes objets.
cela va te faciliter grandement ton développement.
Par exemple
TextBox2 sera TxtTéléphone
TextBox3 sera TxtEmail
ComboBox2 sera ComboDistance
CommandButton2 sera CmbValider
Tu vas voir cela va te faciliter la vie.
On traitera ton pb de TVA par la suite
Pour info : pour travailler dans une cellule pos besoin de l'activer par des select ou activate
Dim DerlignePlusUn As Long
With Sheets("ARCHIVES_DEVIS")
DerlignePlusUn = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Range("A" & DerlignePlusUn) = NumDevis
' etc
End With
et quand je vois cela ?
End With
End With
End With
End With
Je suis un peu surpris
Pour info :
Me.TxtTva= CDBL(Me.txtTarifHT)*0.2
Me.txtTTC=CDBL(Me.txtTarifHT)+CDBL(Me.TxtTva)
Me.LbAcompte.caption=cdbl(Me.txtTTC)*0.1
Bonsoir
A priori tu es débutante , on va t'aider à créer un userform qui se tient.
dans un premier temps tu vas ( si tu le souhaites ) renommer tout tes objets.
cela va te faciliter grandement ton développement.
Par exemple
TextBox2 sera TxtTéléphone
TextBox3 sera TxtEmail
ComboBox2 sera ComboDistance
CommandButton2 sera CmbValider
Tu vas voir cela va te faciliter la vie.
On traitera ton pb de TVA par la suite
Pour info : pour travailler dans une cellule pos besoin de l'activer par des select ou activate
Dim DerlignePlusUn As Long
With Sheets("ARCHIVES_DEVIS")
DerlignePlusUn = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Range("A" & DerlignePlusUn) = NumDevis
' etc
End With
et quand je vois cela ?
End With
End With
End With
End With
Je suis un peu surpris
les "End With" c'est parce que sur mon fichier de base je ne l'ai pas fini et pour l'envoyé j'ai effacé les données que j'avais copiées d'un autre Userform.
Tu peux voir dans l'userform "SaisieDevisNextories" que tous les objets sont nommés.
c'est vrai que cela est plu facile, je vais le faire de suite.
pour travailler dans une cellule, je vais pas le cacher j'ai trouvé des vba sur internet et sa fonctionné, du coup je me suis pas trop cassé la tête à chercher le pourquoi du comment...