Vba / formulaire

Fermé
guerando Messages postés 331 Date d'inscription mercredi 31 mars 2010 Statut Membre Dernière intervention 6 mai 2023 - 19 oct. 2018 à 12:23
guerando Messages postés 331 Date d'inscription mercredi 31 mars 2010 Statut Membre Dernière intervention 6 mai 2023 - 22 oct. 2018 à 13:41
Bonjour,

Sur un formulaire (excel) la vba doit récupérer un montant sur un tableau (par exemple sur le formulaire on choisit le produit et la quantité, sur le tableau qui récupere ces données le montant unitaire x quantité est calculé et ce montant remonte sur le formulaire)
Cela fonctionne bien le montant remonte mais je suis obligée de taper une lettre ou un chiffre dans la zone du montant pour que la somme arrive. Comment faire pour que cela se fasse sans mon intervention ?
Merci d'avance,
voici ma formule :

Private Sub TB8total2_Change()
Me.TB8total2.Value = Feuil6.Range("j8").Value
End Sub

j'ai essayé aussi :

Private Sub TB6total1_AfterUpdate()
'récupérer les informations calculées sur le tableau excel
Me.TB6total1.Value = Feuil6.Range("g8").Value
End Sub

merci de votre aide

1 réponse

fabien25000 Messages postés 673 Date d'inscription mercredi 5 octobre 2016 Statut Membre Dernière intervention 28 juillet 2022 59
19 oct. 2018 à 15:44
Bonjour,
code la mise à jour de ta textbox total sur l'évènement
_Exit()
de la textbox quantité
0
guerando Messages postés 331 Date d'inscription mercredi 31 mars 2010 Statut Membre Dernière intervention 6 mai 2023 6
19 oct. 2018 à 15:58
bonjour fabien25000
escuse moi pourrais tu etre plus précis svp ? (je ne connais pas trop la vba) de l'endroit ou mettre ce _Exit()
0
fabien25000 Messages postés 673 Date d'inscription mercredi 5 octobre 2016 Statut Membre Dernière intervention 28 juillet 2022 59
Modifié le 19 oct. 2018 à 16:05
un exemple :
Private Sub TB5Quantite_Exit() 
'récupérer les informations calculées sur le tableau excel 
If TB5Quantite.value  <>"" Then TB6total1.Value = Feuil6.Range("g8").Value 

End Sub
0
guerando Messages postés 331 Date d'inscription mercredi 31 mars 2010 Statut Membre Dernière intervention 6 mai 2023 6
22 oct. 2018 à 13:41
Bonjour fabien25000,

j'ai mis la formule mais j'ai un message d'erreur en sélectionant la premiere ligne en jaune : private sub tb...exit "()

Microsoft Visual Basic pour Applications
Erreur de compilatio
La déclaration de la procédure ne correspond pas à la description de l’évenement ou de la procédure de même nom



voici les formules :

Private Sub TB2quantité1_Exit()
'récupérer les informations calculées sur le tableau excel
If TB2quantité1.Value <> "" Then TB6total1.Value = Feuil6.Range("g8").Value
End Sub


Private Sub TB2quantité1_Change()
Feuil6.Range("f8").Value = TB2quantité1.Value
End Sub

Private Sub TB6total1_Change()
'récupérer les informations calculées sur le tableau excel
Me.TB6total1.Value = Feuil6.Range("g8").Value
End Sub

vois tu pourquoi ? merci :)
0