XL 2010 Format userform

[v_b_a]

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

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]

Bonjour v_b_a, bienvenue sur XLD,

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]

Donc l'erreur vient du code vba ?

 

[job75]

Quelle erreur ?

 

[v_b_a]

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 :

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

 

[patricktoulon]

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]

J'ai mis ça dans le code :

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

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

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

Et mettre E2 au format nombre désiré.

Salut patricktoulon.

 

[v_b_a]

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

 

[v_b_a]

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

 

[job75]

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

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

Je bute encore pour le format date ?

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

 

[v_b_a]

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

Range("A2") = CDate(TextDateAlim)

 

[job75]

Bonjour v_b_a,

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

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]

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