Format combobox NOMBRE

[pierrof]

Rebonjour forum
G toujour un petit problème avec ces format de combobox
voici mon code:

Private Sub ComboBox1_Change()
ComboBox1.AddItem Format(Cells(i, 1), '#,##0.00')
End Sub

mais il ne marche le format qui en sort est toujours un format texte

Merci d'avance de vos explications

 

[Spitnolan08]

Re : Format combobox NOMBRE

Re,

Tu aurais pu continuer sur le même fil...
Sinon, en essayant de faire simple : Un contrôle (TextBox, Combobox,...) ne contient que des données sous forme string. Même si tu leur applique un format numérique, il ne s'agit que de mise en forme.
Il faut donc lorsque tu les récupères dans une feuille ou autre les transformer via différentes astuces dont la plus simple est d'utiliser une formule de conversion : Cdate, Cdbl, Cint ..... dont tu trouveras toutes les possibilités dans l'aide VBA en tapant conversion.

Cordialement

 

[pierrof]

Re : Format combobox NOMBRE

Merci beaucoup
Désolé pour le new fil

 

[Catrice]

Re : Format combobox NOMBRE

Bonjour,

Ci-joint un exemple qui ajoute les données formatées dans la Combo.

 

[pierrof]

Re : Format combobox NOMBRE

Voila je n'arrive toujours pas à donner le bon format à ma cellule
ci joint mon fichier
dans un premier temps lancer la macro
renseigner les champs et les valider et sur ma feuille fab il y a une erreur de format je comprends pas
merci d'avance de vos explication

 

[Catrice]

Re : Format combobox NOMBRE

Re,

Modifie cette ligne :

Sheets("fab").Range("bh65536").End(xlUp).Offset(1, 0) = UserForm2.ComboBox3

en

Sheets("fab").Range("bh65536").End(xlUp).Offset(1, 0) = CDbl(UserForm2.ComboBox3)

 

[pierrof]

Re : Format combobox NOMBRE

Merci c cool
😉