Discussion :

[yassine0]

Bonjour les amis,

J'ai besoin de votre aide.
Je suis débutant en VBA et ces calculs nécessite un peu de maitrise.
Je voudrais créer un formulaire de calcul de plusieurs valeurs.
Je m'explique:
Je dois créer une textbox dans laquelle je dois saisir une valeur et une textbox dans laquelle je vais mettre un taux une autre textbox dans laquelle le résultat doit s'afficher lorsque je clique sur un bouton de commande calculer.
Je voudrais aussi mettre une condition à ce calcul si par exemple le calcule effectué est supérieur à une valeur mettre la valeur maximal applicable comme résultat du calcul.
disant si 150 * 80%=120 et seuil maximum applicable 100 donc le seuil qui doit ressortir comme résultat est 100.

[Transitoire]

Bonsoir,
arretez moi si je me trompe, mais j'ai l'impression que vous voudriez que l'on vous fasse tout?
Le UserForm, les contenus, les divers codes etc. ???
C'est pas la philosophie générale de ce site qui est fait pour aider, pas pour faire à la place.
Cordialement

[unparia]

Bonjour
Nul ou non en VBA (ou n'importe quel langage de développement, d'ailleurs), tu peux peut-être commencer par nous montrer ce que tu saurais écrire au moins en pseudo code en utilisant les variables suivantes :
v1 (la valeur de la textbox 1), v2 (la valeur du taux en textbox3), v3 (la valeur de la textbox du résultat du calcul)
et avec les conditions exprimées ainsi :
si ...(la condition)........ alors .......
et les opérateurs suivants : x (pour la multiplication), : (pour la division) < (plus petit que), > (plus grand que) et = (égal)
Comme tu le vois, ce qui t'est demandé là ne nécessite aucune connaissance de quelque code informatique que ce soit.
Merci de bien vouloir faire d'abord cet "effort".

[Transitoire]

Re bonsoir,
sera-ce un truc comme cela que vous eussiez aimé que je vous fisse ?

Mais il y a un problème, la valeur maximum, est elle unique ou se modifie t-elle avec le produit proposé? Parceque cela va faire une sacré différence au niveau du travail. Et je sais que trop comment les choses se passent. on pense avoir 15min et on fini avec 3 jours.
Alors, ayez l'amabilité de répondre à cette question S'il vous plait. Valeur maximum
Cordialement

[yassine0]

Merci pour ta réponse unparia.
ce que j'ai essayé de faire en code est un peux cela

le code du bouton commande

j'ai commencé par mettre la condition qui est si le résultat est supérieur au maximum applicable alors application du maximum

textbox1= valeur numérique
textbox2= taux
textbox3= maximum applicable
textbox4= résultat
bouton de commande
dans le code bouton de commande j'ai commencé par la condition
if textbox1.value*textbox2.value> Textbox3.value then
textbox4=textbox3.value
else
textbox4= textbox1.value*textbox2.value
end if

ceci ne fonctionne pas peut être que c'est dû à la particularité qu'il s'agit d'un pourcentage.

Bonjour
Nul ou non en VBA (ou n'importe quel langage de développement, d'ailleurs), tu peux peut-être commencer par nous montrer ce que tu saurais écrire au moins en pseudo code en utilisant les variables suivantes :
v1 (la valeur de la textbox 1), v2 (la valeur du taux en textbox3), v3 (la valeur de la textbox du résultat du calcul)
et avec les conditions exprimées ainsi :
si ...(la condition)........ alors .......
et les opérateurs suivants : x (pour la multiplication), : (pour la division) < (plus petit que), > (plus grand que) et = (égal)
Comme tu le vois, ce qui t'est demandé là ne nécessite aucune connaissance de quelque code informatique que ce soit.
Merci de bien vouloir faire d'abord cet "effort".

[yassine0]

Merci pour ta réponse ça ressemble un peu à ca sauf que je n'ai mis qu'un maximum applicable et j'ai mis un champs textbox dans lequel le résultat doit être affiché et si mon calcul est plus important que le maximum applicable alors il faut que que le résultat soit le maximum applicable.

Re bonsoir,
sera-ce un truc comme cela que vous eussiez aimé que je vous fisse ?

Mais il y a un problème, la valeur maximum, est elle unique ou se modifie t-elle avec le produit proposé? Parceque cela va faire une sacré différence au niveau du travail. Et je sais que trop comment les choses se passent. on pense avoir 15min et on fini avec 3 jours.
Alors, ayez l'amabilité de répondre à cette question S'il vous plait. Valeur maximum
Cordialement

[Transitoire]

Bonjour, Il y a un truc que je ne comprend pas.
Vous parlez de seuil maximum applicable et vous le présentez dans votre exemple comme le prix maximum. Mais en y réfléchissant bien, êtes vous sur de ne pas vouloir en fait une remise maximum applicable, ce qui induirait un prix non pas maximum mais minimum à payer?
Par ailleurs, ce "maximum" vous allez le rentrer à la main dans le textbox?
Par ailleurs dans votre réponse à Unparia, vous semblez utiliser la valeur de pourcentage. mais je crois que vous devez passer par une variable pour obtenir la valeur divisée par cent

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim Pourcentage As Double
Private Sub TextBox2_Change()
If TextBox2.Value <> "" Then
Pourcentage = TextBox2.Value / 100
End If
End Sub

Vous remplacez dans votre code TextBox2.value par Pourcentage
Cordialement

[yassine0]

Merci pour ton aide
j'ai pu créer un petit bout de code qui fonctionne mais j'ai toujours un souci
j'ai voulu mettre que si le résultat est inférieur à un minimum applicable donc ressortir le montant minimum dans la case résultat
après plusieurs essais je n'y arrive pas.

ci-dessous le bout de code et la capture écran du formulaire réalisé:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CommandButton1_Click()
 
txttaux = txttaux / 100
 
txtres = (-((txtfrse * txttaux) - txtfrse) - ((txtfrse * txttaux) - txtfrse)) / 2
 
If txtres = (-((txtfrse * txttaux) - txtfrse) - ((txtfrse * txttaux) - txtfrse)) / 2 > txtmin Then
 
    txtres = (-((txtfrse * txttaux) - txtfrse) - ((txtfrse * txttaux) - txtfrse)) / 2
 
Else
 
    txtres = txtmin
 
End If
 
End Sub

[Transitoire]

Bonjour,
Faudrait essayer de faire des efforts de compréhension. On essaye de vous aider, mais vous nous envoyez des réponses sans queue ni tête. un bout de code dans lequel nous devons tout deviner

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.txttaux = txttaux / 100

txttaux, est-ce une variable ou le nom du TextBox concernant le taux.
Si Nous souhaitons répondre a votre attente, il faut prévoir les deux possibilités.
dans le premier textbox vous entrez le prix initial, dans le deuxième le pourcentage, le troisième la valeur minimum du prix rectifiable, et dans le quatrième viendra s'inscrire le prix définitif qui sera le prix rectifié si Prix rectifié<prix rectifiable auquel cas le prix rectifié deviendra égal au prix rectifiable. exemple s'il s'agit de variables.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
txttaux = txttaux/100
txtrectifié = txtdépart*txttaux
if txtrectifié > txtrectifiable
textboxRectifié = txtrectifié
else
textboxRectifié = txtrectifiable
end if

Il ne vous reste plus qu'a transposer avec vos noms a vous. N'ayant pas pu le vérifier, j'espère n'avoir pas une erreur?
Cordialement

[yassine0]

Merci pour ta précieuse aide.
J'ai bien pu trouver la solution grâce à ton orientation.