TextBox lié à un cellule

[Delirium]

Bonsoir a tous.

J'ai un Userform avec 2 TextBox et un label.

Je voudrais qu’à l'ouverture de mon userform les données des cellules liées (A1 et A2 de la feuille'Déperditions' par exemples') au deux TextBox soient automatiquement affichées et que lorsque l'utilisateur modifie les données des TextBox, les données des cellules liées soient automatiquement modifiées.

Mon Label affiche la valeur de la cellule A3, qui est le résultat d'un calcul entre A1 et A2. Je voudrais que cette valeur s'affiche instantanément dans mon Userform et non pas à son initialisation.

Si quelqu’un pouvait me donner un coup de main.

Merci.

 

[Eric C]

Bonjour le forum
bonjour Délirium

Dans le code de ton USF

Private Sub UserForm_Initialize()
TextBox1.Value = Range('A1')
TextBox2.Value = Range('A2')
Label1.Caption = Val(TextBox1.Value) + Val(TextBox2.Value)
End Sub

Dans le code de ta feuille

Private Sub Worksheet_Calculate()
UserForm1.TextBox1.Value = Range('A1')
UserForm1.TextBox2.Value = Range('A2')
UserForm1.Label1.Caption = Val(UserForm1.TextBox1.Value) + Val(UserForm1.TextBox2.Value)
End Sub

Code de ton bouton d'appel (si Btn de feuille)

Private Sub CommandButton1_Click()
UserForm1.Show 0
End Sub

Bon appétit

 

[Delirium]

Bonsoir Eric et merci pour ton aide.

J'ai testé ton code.

A l'ouverture de l'userform les données des cellules s'affiche bien dans les TextBox mais lorsque je modifie les valeurs dans les textBox les valeurs des cellules ne se modifie pas.

merci et @+

 

[Eric C]

Bonjour le forum
Bonjour Délirium

Eh bien pour avoir en direct live les valeurs de tes TextBox mises à jour, tu agis sur leur perte de focus :

Private Sub TextBox1_Change()
Range('A1') = TextBox1.Value
End Sub
                    Ou
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Range('A1') = TextBox1.Value
End Sub

Bonne journée

 

[Delirium]

Merci de ton aide sa marche nickel chrome !!!!!



@+