(RESOLUTO)forcer TextBox en Format personnalisé et numerique

[Ilino]

Bonjour Forum
Dans mon USF j’ai ce code de TextBox11( Format personnalisé)

Private Sub TextBox11_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox11 = Format(CDbl(TextBox11.Value), "#,##0.00"" ml""")
End Sub

Ce textbox est affecté a la cellule AC par ce code

....................
  .Cells(Lgn, 29) = TextBox11
..........................

Seulement, voila, la valeur numérique inscrite dans la textbox apparait dans la cellule de destination sous un format texte, ce qui empêche le calcul automatique de la colonne AC en question.
grazie

 

[mapomme]

Re : forcer TextBox en Format personnalisé et numerique

Bonjoir Ilino,

peut-être en essayant cela:

....................
.Cells(Lgn, 29).NumberFormat = "#,##0.00"" ml"""
.Cells(Lgn, 29) = CDbl(TextBox11)
..........................

 

[job75]

Re : forcer TextBox en Format personnalisé et numerique

Bonjour Ilino, mapomme,

CDbl sur un texte non numérique renvoie forcément une erreur...

Private Sub TextBox11_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox11 = Format(Val(Replace(TextBox11, ",", ".")), "#,##0.00"" ml""")
End Sub

et :

'-------
  .Cells(Lgn, 29).NumberFormat = "#,##0.00"" ml""" 'facultatif...
  .Cells(Lgn, 29) = Val(Replace(TextBox11, ",", "."))

fonctionneront toujours, quel que soit le séparateur décimal de l'ordi et dans la TextBox.

A+

 

[Ilino]

Re : forcer TextBox en Format personnalisé et numerique

Bonjour Mapomme, Maitre
grazie , ça fonctionne parfaitement🙂
Problème RESOLUTO😎
A+