Zone texte

[stevevda]

Bonsoir à tous,

Voilà je crée ma première useform et pour l'instant sa fonctionne pas trop mal grâce à tout ceux ici qui ont mis du temps à m'aider pour franchir ce que hier encore me semblait impossible je vous en remercie encore.
Je cale sur un format monétaire avec une zone texte dans un useform.
J'introduis un chiffre qui en réalité doit être en format monétaire dans la cellule appropriée et déjà préparée à ce format , le montant introduit après validation se transforme en format texte et j'aimerai savoir ce qu'il faut changer dans le code dont voici une copie....

Private Sub TextBox3_Change()

[F8] = UserForm1.TextBox3
End Sub

Si vous pouviez me dire quoi changer dans ce code car je ne voit pas malgré une recherche dans le forum...

 

[13GIBE59]

Re : Zone texte

Salut Steve

Essaie :

[F8] = Format(UserForm1.TextBox3,"#,##0.00 $")

 

[stevevda]

Re : Zone texte

Non la sa ne fonctionne pas il indique bien le nombre monétaire mais comme format texte. car une cellule calcule le montant des chiffres ( filtre ) mais ne prend pas en compte la donnée introduite.

 

[13GIBE59]

Re : Zone texte

Rien compris à ta réponse.

Mais essaie :

[F8] = Format(UserForm1.TextBox3,"#,##0.00 $")
[F8] = [F8] * 1

 

[stevevda]

Re : Zone texte

Non pas de résultat je vais créer un fichier exemple pour que tu puisses mieux juger...

 

[stevevda]

Re : Zone texte

Merci ,

Je vais chercher de ce côté une piste intéressante.

 

[stevevda]

Re : Zone texte

Voici un petit fichier exemple afin de mieux faire comprendre mon problème pour insertion au format monétaire...
J'espère que cela sera mieux compréhensible.
Merci de vérifier et de donner votre avis sur la formule à compléter dans l'useforme.

Merci merci encore...

 

[Pierrot93]

Re : Zone texte

Bonjour à tous,

essaye peut être ainsi :

Private Sub Bt_Valider_Click()
Range("A5").Value = CCur(TextBox1)
End Sub

bonne journée
@+

 

[stevevda]

Re : Zone texte

La fonctionne super bien...

Merci beaucoup pierrot.

 

[Pyrof]

Re : Zone texte

Bonjour

J'ai testé avec ccur et j'ai eu un problème si je saisi le point du clavier numérique 45.10 qui devrait se transformer en 45,10

ce problème est résolu avec val comme ci-dessous

Private Sub TextBox1_Change()
[a5] = Val(UserForm1.TextBox1)
End Sub


bonne journée