2 instances Private Sub TextBox1 Change

Pierrot93

XLDnaute Barbatruc

• 5 Mai 2012

• #2

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
@+

 

Vote positif 0 Vote négatif

K

Kim75

XLDnaute Occasionnel

• 5 Mai 2012

• #3

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.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 5 Mai 2012

• #4

Re : 2 instances Private Sub TextBox1 Change

Re,

bah... faire un test :

Code:

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

bon après midi
@+

 

Vote positif 0 Vote négatif

K

Kim75

XLDnaute Occasionnel

• 5 Mai 2012

• #5

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.

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 5 Mai 2012

• #6

Re : 2 instances Private Sub TextBox1 Change

Salut

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

Code:

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

 

Vote positif 0 Vote négatif

K

Kim75

XLDnaute Occasionnel

• 5 Mai 2012

• #7

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.

 

Vote positif 0 Vote négatif