Que signifie afterupdate dans un code?

Bonjour,

J'ai pris le code ci-dessous sur le forum et je l'ai adapté sur mon
formulaire. Il me sert à calculer mon prix de vente par rapport à
mon prix d'achat. Le problème, c'est que cela ne fonctionne pas à
tous les coups. Je
voudrais savoir qu'est ce qui déclenche le calcul? Que veut dire
afterupdate?
Quand, je valid avec la touche entrée ma saisie du prix d'achat , le
prix de
vente(TXTTARIF) ne se calcule pas et récupère la même valeur que le
prix d'achat (TXTPA) mais la marge (TXTMARG)se calcule bien.(ex:
prix achat 12? marge:3.60? le prix de vente se calcul à 12?!)
Quand, je valid en cliquant avec la souris, le prix de vente se
retrouve avec prix d'achat + taux de marge (ex: prix achat:12? taux
marge 0.3, le prix de vente calculer sera de 12+3 au lieu de
15.6?) Je vous remercie d'avance pour vos conseils
Morganne

Ci dessous code:

Private Sub Txtmarg_AfterUpdate()
Txttarif.Value = Val(Txtpa.Value) + Val(Txtmarg.Value)
Txtmarg.Value = Val(Txtpa.Value) * Val(Txtmarge.Value)
End Sub

Private Sub Txtmarge_AfterUpdate()
Txtmarg.Value = Val(Txtpa.Value) * Val(Txtmarge.Value)
End Sub

Private Sub Txtpa_AfterUpdate()
Txttarif.Value = Val(Txtpa.Value) + Val(Txtmarg.Value)
Txtmarg.Value = Val(Txtpa.Value) * Val(Txtmarge.Value)
End Sub

Private Sub Txttarif_AfterUpdate()
Txttarif.Value = Val(Txtpa.Value) + Val(Txtmarg.Value)
End Sub

Bonjour,

J'ai pris le code ci-dessous sur le forum et je l'ai adapté sur mon
formulaire. Il me sert à calculer mon prix de vente par rapport à mon prix
d'achat. Le problème, c'est que cela ne fonctionne pas à tous les coups. Je
voudrais savoir qu'est ce qui déclenche le calcul? Que veut dire
afterupdate?
Quand, je valid avec la touche entrée ma saisie du prix d'achat , le prix
de
vente(TXTTARIF) ne se calcule pas et récupère la même valeur que le prix
d'achat (TXTPA) mais la marge (TXTMARG)se calcule bien.(ex: prix achat 12?
marge:3.60? le prix de vente se calcul à 12?!)
Quand, je valid en cliquant avec la souris, le prix de vente se retrouve
avec prix d'achat + taux de marge (ex: prix achat:12? taux marge 0.3, le
prix de vente calculer sera de 12+3 au lieu de 15.6?)

Je vous remercie d'avance pour vos conseils
Morganne

Ci dessous code:

Private Sub Txtmarg_AfterUpdate()
Txttarif.Value = Val(Txtpa.Value) + Val(Txtmarg.Value)
Txtmarg.Value = Val(Txtpa.Value) * Val(Txtmarge.Value)
End Sub

Private Sub Txtmarge_AfterUpdate()
Txtmarg.Value = Val(Txtpa.Value) * Val(Txtmarge.Value)
End Sub

Private Sub Txtpa_AfterUpdate()
Txttarif.Value = Val(Txtpa.Value) + Val(Txtmarg.Value)
Txtmarg.Value = Val(Txtpa.Value) * Val(Txtmarge.Value)
End Sub

Private Sub Txttarif_AfterUpdate()
Txttarif.Value = Val(Txtpa.Value) + Val(Txtmarg.Value)
End Sub

Bonjour à toutes à tous et à morganne qui nous a tapoter de ses petits
doigt ce qui suit :

Bonjour,

J'ai pris le code ci-dessous sur le forum et je l'ai adapté sur mon
formulaire. Il me sert à calculer mon prix de vente par rapport à mon
prix
d'achat. Le problème, c'est que cela ne fonctionne pas à tous les coups.
Je
voudrais savoir qu'est ce qui déclenche le calcul? Que veut dire
afterupdate?
Quand, je valid avec la touche entrée ma saisie du prix d'achat , le
prix de
vente(TXTTARIF) ne se calcule pas et récupère la même valeur que le prix
d'achat (TXTPA) mais la marge (TXTMARG)se calcule bien.(ex: prix achat
12?
marge:3.60? le prix de vente se calcul à 12?!)
Quand, je valid en cliquant avec la souris, le prix de vente se retrouve
avec prix d'achat + taux de marge (ex: prix achat:12? taux marge 0.3, le
prix de vente calculer sera de 12+3 au lieu de 15.6?)

Je vous remercie d'avance pour vos conseils
Morganne

Ci dessous code:

Private Sub Txtmarg_AfterUpdate()
Txttarif.Value = Val(Txtpa.Value) + Val(Txtmarg.Value)
Txtmarg.Value = Val(Txtpa.Value) * Val(Txtmarge.Value)
End Sub

Private Sub Txtmarge_AfterUpdate()
Txtmarg.Value = Val(Txtpa.Value) * Val(Txtmarge.Value)
End Sub

Private Sub Txtpa_AfterUpdate()
Txttarif.Value = Val(Txtpa.Value) + Val(Txtmarg.Value)
Txtmarg.Value = Val(Txtpa.Value) * Val(Txtmarge.Value)
End Sub

Private Sub Txttarif_AfterUpdate()
Txttarif.Value = Val(Txtpa.Value) + Val(Txtmarg.Value)
End Sub

Essaie peut etre de faire ton calcul sur l'evenement Change du textbox.
JLuc

--
Pour m'ecrire directement :
jeanluc.laurent@free.fr
Tomorrow is another day

Bonsoir Jean-Luc,

Dèjà merci d'avoir pris la peine de lire toute ma prose. Je pense que le code
que j'ai recopié du forum n'est peut-être pas tout à fait adapté à mes
calculs.
Peut-tu me donner plus d'indications sur l'événements change du text box car
je suis petite débutante...et j'ai encore un peu de mal.

Merci d'avance
Morganne

Bonjour à toutes à tous et à morganne qui nous a tapoter de ses petits
doigt ce qui suit :

Bonsoir Jean-Luc,

Dèjà merci d'avoir pris la peine de lire toute ma prose. Je pense que le
code que j'ai recopié du forum n'est peut-être pas tout à fait adapté à
mes calculs.
Peut-tu me donner plus d'indications sur l'événements change du text box
car je suis petite débutante...et j'ai encore un peu de mal.

Merci d'avance
Morganne

C'est "l'evenement" qui doit se produire dés que tu "Change" le contenu de
l'objet (ici, un Textbox)
Sur ton Userform, place deux TextBox (TextBox1, TextBox2)
Double clic sur TextBox1 pour acceder au code (tu es automatiquement dans
l'evenement "Change", mais tu en a d'autres par la liste deroulante en
haut a droite de la fenetre) et tape ce code :
Private Sub TextBox1_Change()
TextBox2 = Val(TextBox1) * 1.196
End Sub
Tu lance ton UserForm et tu tape une valeur dans TextBox1,
automatiquement, TextBox2 prend la valeur que tu tapes et rajoute la tva
Bonne continuation
JLuc

--
Pour m'ecrire directement :
jeanluc.laurent@free.fr
Tomorrow is another day