Afficher un résultat dans un label sans cliquer

Bonjour à tous,

j'aimerais afficher un résultat dans un label sans devoir cliquer. Voici mon code :

Private Sub UserForm_Activate()

Dim A As Variant

A = Replace(txtbx1, ".", ",")

Dim B As Variant

B = Replace(txtbx2, ".", ",")

Label01.Caption = A * B

End Sub

Bonjour,

Teste ceci

Option Explicit
Dim a As Variant
Dim b As Variant

Private Sub txtbx1_AfterUpdate()
  a = Replace(txtbx1, ".", ",")
End Sub

Private Sub txtbx2_Change()
  b = Replace(txtbx2, ".", ",")
  Label1.Caption = a * b
End Sub

Bonjour M12

Ton code fonction, mais j'ai un problème quand je change la valeur de ma variable A , le résultat du Label01 ne s'actualise pas.

Par contre ça fonctionne très bien pour ma varaible B.

Merci.

Re,

Un peu de réflexion

Option Explicit
Dim a As Variant
Dim b As Variant

Private Sub txtbx1_AfterUpdate()
  a = Replace(txtbx1, ".", ",")
  Label1.Caption = a * b
End Sub

Private Sub txtbx2_Change()
  b = Replace(txtbx2, ".", ",")
  Label1.Caption = a * b
End Sub

J'ai suivi ton conseil mais j'ai une Erreur d'éxécution 13 : Incompatibilité de type

Voilà

Re,

Teste

Ca fonction très bien. c'est moi qui avait fait une erreur, j'ai tapé txtbx1 au lieu de mettre le nom de la variable (ici A) dans la multiplication.

Merci