Vba / formulaire

guerando Messages postés 364 Statut Membre -
guerando Messages postés 364 Statut Membre - 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

Afficher la suite

1 réponse

Réponse 1 / 1
fabien25000 Messages postés 697 Statut Membre 59
Bonjour,
code la mise à jour de ta textbox total sur l'évènement
```
_Exit()
```
de la textbox quantité
0
1. guerando Messages postés 364 Statut Membre 6
  
  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
2. fabien25000 Messages postés 697 Statut Membre 59
  
  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
3. guerando Messages postés 364 Statut Membre 6
  
  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

Vba / formulaire

1 réponse

Discussions similaires

Newsletters