Copie automatique des données de TextBox avec calcul

Bonjour,

bon voilà mon problème, je crée un tableau sous VBA de excel, c'est à dire sans utiliser les feuilles de calculs mais que avec des textbox . J'ai des cas, l'un avec privilège fiscale et l'autre sans, donc il y a deux colonnes.

Mon problème:
il y a deux tableaux avec des texbox1 et texbox2, lorsque je rentre les valeurs dans la texbox1 je souhaite que dynamiquement il copie (sans bouton et sans rien faire) les données de texbox1 à texbox2 mais qu'il me laisse encore modifier texbox2 au cas ou je souhaite avoir des données différentes dans texbox un et deux. Le truc en plus c'est que je souhaite que texbox2 = 1 - texbox 1 et là, ça coince.

Comment faire?
j'ai pour l'instant

Code:

---

1 2 3

Private Sub TextBox1_Change() TextBox2.Text = TextBox1.Text End Sub

---

j'ai essayé mais ce la ne marche pas

Code:

---

1 2 3

Private Sub TextBox1_Change() TextBox2.Text = 1 - TextBox1.Text End Sub

---

Cordialement,

merci d'avance


mon niveau: débutant
système excel 2007

Bonjour,

Dans ce cas, il vaudrait mieux ne pas saisir un caractère autre que numérique

Code:

---

1 2 3

Private Sub TextBox1_Change() TextBox2.Text = 1 - val(TextBox1.Text) End Sub

---

Pour autoriser uniquement la saisie numérique dans Tetxbox1

Code:

---

1 2 3

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 End Sub

---