XL 2010 Format userform

v_b_a · 7 Juillet 2021

Bonjour à tous

Première userform pour moi et je galère pour changer le format des textbox. J'ai essayé plusieurs solutions en cherchant sur le forum.
Je me demande si le problème vient du code vba ou du paramétrage Excel 2007.
Sur la feuille ou sont insérer les données j'ai un message d'erreur '' nombre au format texte ou précède d'une apostrophe ''

Merci de votre aide experte

VB:

Private Sub Btn_Valider_Aliment_Click()

Sheets("Aliments").Select
    Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

    TextVolumeAlim.Value = Format(TextVolumeAlim.Value, "# ##0")
 
    Range("A2") = TextDateAlim
    Range("B2") = ListFournAlim
    Range("C2") = ListFormuleAlim
    Range("D2") = ListeCompoAlim
    Range("E2") = TextVolumeAlim
    Range("F2") = TextPrixAlim
 
    ListFormuleAlim = ""
    ListeCompoAlim = ""
    TextVolumeAlim = ""
    TextPrixAlim = ""
   
    ListFormuleAlim.SetFocus
 
End Sub

job75 · 7 Juillet 2021

v_b_a à dit:
J'ai mis ça dans le code :

VB:

TextVolumeAlim.Value = Format(TextVolumeAlim.Value, "# ##0")

Ce code est inutile, pour entrer une valeur numérique en E2 utiliser :

VB:

Range("E2") = Val(Replace(TextVolumeAlim, ",", "."))

Et mettre E2 au format nombre désiré.

Salut patricktoulon.

job75 · 7 Juillet 2021

Bonjour v_b_a, bienvenue sur XLD,

v_b_a à dit:
Sur la feuille ou sont insérer les données j'ai un message d'erreur '' nombre au format texte ou précède d'une apostrophe ''

Ce n'est pas un message d'erreur mais une simple alerte qu'on peut éviter en décochant l'option Excel.

A+

v_b_a · 7 Juillet 2021

Donc l'erreur vient du code vba ?

job75 · 7 Juillet 2021

Quelle erreur ?

v_b_a · 7 Juillet 2021

Dans la feuille Excel je n'arrive pas à passer en format numérique les saisies via textbox. Pour l'instant j'essaie avec la textbox '' TextVolumeAlim'' que je voudrais en numérique avec séparateur de millier et sans décimal.
J'ai mis ça dans le code :

VB:

TextVolumeAlim.Value = Format(TextVolumeAlim.Value, "# ##0")

patricktoulon · 7 Juillet 2021

re
bonjour

Dans la feuille Excel je n'arrive pas à passer en format numérique les saisies via textbox. Pour l'instant j'essaie avec la textbox '' TextVolumeAlim'' que je voudrais en numérique avec séparateur de millier et sans décimal.

ben c'est normal
ton textbox n'a pas de numberformat comme les cellules , là tu applique un format au texte numerique que tu a tapé dans ton textbox c'est pas la même chose
et si tu veux envoyer la valeur du textbox dans une cellule , ben en fait tu envoie du texte et non la valeur numérique
laisse les textbox sans séparateur tu aura moins de problème oublie cette idée

job75 · 7 Juillet 2021

v_b_a à dit:
J'ai mis ça dans le code :

VB:

TextVolumeAlim.Value = Format(TextVolumeAlim.Value, "# ##0")

Ce code est inutile, pour entrer une valeur numérique en E2 utiliser :

VB:

Range("E2") = Val(Replace(TextVolumeAlim, ",", "."))

Et mettre E2 au format nombre désiré.

Salut patricktoulon.

v_b_a · 7 Juillet 2021

Merci beaucoup job75, ça marche pour le format nombre.
Je bute encore pour le format date ?

v_b_a · 7 Juillet 2021

Pour comprendre, à quoi correspondent les variables "," et "." ?

job75 · 7 Juillet 2021

En VBA le séparateur décimal est le point.

Le code de mon post #7 remplace la virgule par le point.

v_b_a à dit:
Je bute encore pour le format date ?

VB:

If IsDate(TextDateAlim) Then Range("A2") = CDate(TextDateAlim) Else Range("A2") = ""

v_b_a · 8 Juillet 2021

Merci, avec le If Else... ça fonctionne pas du coup j'ai simplifié et c'est nickel

VB:

Range("A2") = CDate(TextDateAlim)

job75 · 8 Juillet 2021

Bonjour v_b_a,

v_b_a à dit:
Merci, avec le If Else... ça fonctionne pas du coup j'ai simplifié et c'est nickel

VB:

Range("A2") = CDate(TextDateAlim)

Bah avec votre code si le texte dans la TextBox n'est pas convertible en date il y aura bug !

Mon code qui fonctionne très bien l'évite...

A+

patricktoulon · 8 Juillet 2021

Bonjour @job75
mais pourquoi ces petits en font toujours qu'a leur tête
c'est pas possible ça !!!!

XL 2010 Format userform

v_b_a

XLDnaute Nouveau

job75

job75

XLDnaute Barbatruc

v_b_a

XLDnaute Nouveau

job75

XLDnaute Barbatruc

v_b_a

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

v_b_a

XLDnaute Nouveau

v_b_a

XLDnaute Nouveau

job75

XLDnaute Barbatruc

v_b_a

XLDnaute Nouveau

job75

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Discussions similaires