Bonjour,
J'ai un petit problème, j'ai réussis à crée un code pour que sa modifie le format en "euro" d'une TextBox.
Quand je clic sur la TextBox, je rentre un chiffre je fait "Enter" et ok le code fonctionne il change le format...
Mais le problème que j'ai c'est que j'ai aussi un second userform qui s'ouvre via un bouton sur le 1er userform.
Dans le second, j'ai une listbox avec donc la liste de mes produit. Une fois que je clic sur un d'entre eux il me le copie dans la textbox de l'userform1.
Et c'est ici que le format ne change pas ... le textbox reste en format classique...
Le code est placé dans l'userfom principal.
Private Sub TextBox19_AfterUpdate()
With TextBox19
If IsNumeric(TextBox19.Value) Then
.Value = format(.Value, "# ##0.00 EURO")
.ForeColor = IIf(.Value < 0, vbRed, vbRed)
Else
MsgBox "Erreur de saisie", 64, "Saisie incorrecte"
End If
End With
End Sub
Avez vous une idée ? merci
J'ai un petit problème, j'ai réussis à crée un code pour que sa modifie le format en "euro" d'une TextBox.
Quand je clic sur la TextBox, je rentre un chiffre je fait "Enter" et ok le code fonctionne il change le format...
Mais le problème que j'ai c'est que j'ai aussi un second userform qui s'ouvre via un bouton sur le 1er userform.
Dans le second, j'ai une listbox avec donc la liste de mes produit. Une fois que je clic sur un d'entre eux il me le copie dans la textbox de l'userform1.
Et c'est ici que le format ne change pas ... le textbox reste en format classique...
Le code est placé dans l'userfom principal.
Private Sub TextBox19_AfterUpdate()
With TextBox19
If IsNumeric(TextBox19.Value) Then
.Value = format(.Value, "# ##0.00 EURO")
.ForeColor = IIf(.Value < 0, vbRed, vbRed)
Else
MsgBox "Erreur de saisie", 64, "Saisie incorrecte"
End If
End With
End Sub
Avez vous une idée ? merci