Format d'une TextBox dans une UserForm

Question

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 &lt; 0, vbRed, vbRed) Else MsgBox "Erreur de saisie", 64, "Saisie incorrecte" End If End With End Sub Avez vous une idée ? merci...

MFerrand · Answer

Tu dois prendre conscience que le type de données des valeurs affectées à une TextBox, de même pour les ComboBox et ListBox, sont par définition de type String, quel que soit le type antérieur à l'affectation dans le contrôle. En outre la fonction Format te permettant de présenter un nombre sous un format particulier, produit du texte. Quand on extrait les données de ces contrôles, pour les utiliser, les redoter éventuellement d'un format, ou les affecter à Excel, il faut souvent les reconvertir... Cordialement...

MFerrand · Answer

Tu testes si le contenu d'une TextBox est numérique. Puis tu veux formater cette valeur en utilisant .Value : c'est CCur(.Value) qu'il te faut formater, soit convertir la valeur de la TextBox en valeur numérique, qui elle pourra être formatée (alors qu'une valeur texte restera inchangée, sauf pour les textes ayant un format de date qui font l'objet de conversion sauvage et posent un autre problème....).

Cordialement.

MFerrand · Answer

Reprends ton code : .Value = format(CCur(.Value), "# ##0.00 EURO") Là où il te faut un nombre... Cordialement...

MFerrand · Answer

Désolé, vérification faite, ça fonctionne pour la TextBox. Ton erreur vient d'ailleurs !

Une façon un peu meilleure d'écrire ta procédure :

Private Sub TextBox19_AfterUpdate()
    Dim v@
    With TextBox19
        If IsNumeric(.Value) Then
            v = CCur(.Value)
            .Value = Format(v, "# ##0.00 EURO")
            .ForeColor = IIf(v < 0, vbRed, vbGreen)
        Else
            MsgBox "Erreur de saisie", vbInformation, "Saisie incorrecte"
        End If
    End With
End Sub

NB- Indente ton code si tu veux pouvoir le lire sans effort !

Cordialement.

NB2- Je ne te dirai pas ce que je pense des Userform plus grands que le quart de mon écran...

Le tien dépasse la taille de mon écran !

MFerrand · Answer

Ah ! Mais là c'est normal ! L'évènement AfterUpdate ne s'est pas produit !

Ce que tu peux essayer, c'est à la suite de l'affectation de la valeur à TextBox19, placer la commande :

UserForm2.TextBox19_AfterUpdate

soit le nom de la procédure pour l'appeler, sans oublier de faire précéder du nom du userform, car tu la lances à partir d'un autre.

Cordialement.

MFerrand · Answer

Au temps pour moi ! La procédure est privée, et d'évènement. Il faut la lancer à partir du même module, donc :

Sub MajFormat()
    TextBox19_AfterUpdate
End Sub

Ceci dans userform2 (dans la zone (General) en tête du Module).

Et dans la proc. de Userform1:

    [...]
    UserForm2.MajFormat
    [...]

Cordialement.

MFerrand · Answer

Oui ! Procédure commune appelée en lui passant numéro de TextBox.

Dans la proc. commune : Controls("TextBox" & num)

Ou mieux un module de classe, regroupant les TextBox concernés...

Mais je n'interviens pas sur tes Userforms, comme je l'ai dit, je ne peux les afficher en entier, je ne vois pas les boutons, et c'est impraticable de travailler dans ces conditions.

Cordialement.

archer · Answer

Déjà pour les chiffres dans les textbox il faut mettre un keyPress A voir Private Sub TextBox18_keyPress(ByVal KeyAscii As MSForms.ReturnInteger) If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0: Beep End Sub Private Sub TextBox19_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 'TRANSFORMER LE POINT PAR UNE VIRGULE If KeyAscii = 46 Then KeyAscii = 44 'ACCEPTER UNIQUEMENT UNE SEULE VIRGULE ET LES CHIFFRES ENTRE 0 ET 9 If InStr("1234567890,", Chr(KeyAscii)) = 0 Or (InStr(TextBox19.Value, ",") &lt;&gt; 0 And Chr(KeyAscii) = ",") _ Or (TextBox19.SelStart = 0 And Chr(KeyAscii) = ",") Then KeyAscii = 0: Beep End Sub A+ Maurice...