2 instances Private Sub TextBox1 Change

[Kim75]

Bonjour le forum,

Généralement j’épluche tous les sujets du forum avant de poster, la question ne s’est peut être pas posée, je la pose quand même au cas où quelqu’un l’aurait rencontré ou saurait la solutionner.

Le problème que je rencontre est que l'instance « Private Sub TextBox4_Change() » est effectuée 2 fois dans le même USF qui ne l'accèpte pas :

-1°. le changement de TextBox4 est instancié en produit avec TextBox6 pour donner la valeur stock dans le TextBox7
-2°. le changement de TextBox4 est instancié en soustraction avec TextBox3 pour donner la marge dans le TextBox5

Par avance merci, Kim.

 

[Pierrot93]

Re : 2 instances Private Sub TextBox1 Change

Bonjour,

tu ne peux avoir qu'un seul et même événement pour un objet.... il y a lieu de regrouper / adapter tes 2 codes en 1 seule procédure...

bonne journée
@+

 

[Kim75]

Re : 2 instances Private Sub TextBox1 Change

Bonjour Pierrot, le forum

Merci pour la réponse, mais je ne vois pas comment est-ce possible de regrouper ces deux procédures

Cordialement, Kim.

 

[Pierrot93]

Re : 2 instances Private Sub TextBox1 Change

Re,

bah... faire un test :

Private Sub TextBox4_Change()
  If Condition Then maro1 Else macro2
End Sub

bon après midi
@+

 

[Kim75]

Re : 2 instances Private Sub TextBox1 Change

Salut Pierrot, le forum,

A vrai dire, c'est à ça que j'ai pensé en premier lieu,
J'avoue que je ne vois pas quelle condition pourrait convenir,
Sans doute que je manque d'imagination, enfin je crois

Cordialement, Kim.

 

[Si...]

Re : 2 instances Private Sub TextBox1 Change

Salut

Si... ton système est configuré avec la virgule :

Private Sub TextBox3_Change()
  TextBox3 = Replace(TextBox3, ".", ",")
  Marge
End Sub
Private Sub TextBox4_Change()
  TextBox4 = Replace(TextBox4, ".", ",")
  Marge
  ValeurStock
End Sub
Private Sub TextBox6_Change()
  TextBox6 = Replace(TextBox6, ".", ",")
  ValeurStock
End Sub
Sub Marge()
  On Error Resume Next
  TextBox5 = TextBox4 - TextBox3
End Sub
Sub ValeurStock()
  On Error Resume Next
  TextBox7 = TextBox4 * TextBox6
End Sub

 

[Kim75]

Re : 2 instances Private Sub TextBox1 Change

Hello Sir, the forum

Merci, parfait, ça roule
Pour les présidentielles, je vote pour "excel-downloads", adjugé

Cordialement, Kim.