Discussion :

[dafchap]

Bonjour,

j'aimerais que dans ma TextBox_2 s'affiche la valeur "1-TextBox1.Value" sans demander à l'utilisateur de valider cette valeur. Est-ce possible ?
J'ai vu que l'évènement Change permettait d'adapter la valeur d'une TextBox en fonction d'une autre, mais il ne semble le faire qu'une fois. Est-ce qu'il faut passer par l'évènement KeyPress ?

Merci d'avance pour vos réponses.

David

[Thautheme]

Bonjour Dafchap, bonjour le forum,

Pour des entiers je verrais ça comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub TextBox1_Change()
Dim V As Integer
If Me.TextBox1.Value = "" Then V = 0 Else V = Cint(Me.TextBox1.Value)
Me.TextBox2.Value = CInt(1 - V)
End Sub
 
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 8
End Sub

[Philippe Tulliez]

Bonjour,
Autre solution qui place la valeur après avoir quitté le contrôle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  TextBox2.Text = TextBox1.Text
End Sub

Attention : L'utilisateur pourrait écraser la valeur placée dans le contrôle Text2. Il faut alors placer la valeur de la propriété Enabled à False et/ou Locked à True soit manuellement soit par VBA

[dafchap]

Bonjour Philippe et Thautheme,

désolé pour ma réponse très tardive. J'avais lâché l'affaire et oublié que j'avais posté un message auquel des âmes secourables avaient sans doute répondu.
Donc merci pour vos réponse que je vais étudier avec attention.