XL 2010 Format userform

v_b_a

XLDnaute Nouveau
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
 
Dernière édition:

v_b_a

XLDnaute Nouveau
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

XLDnaute Barbatruc
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 ;)
 
Haut Bas