Ilino XLDnaute Barbatruc 12 Octobre 2014 #1 Bonjour Forum Dans mon USF j’ai ce code de TextBox11( Format personnalisé) Code: 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 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 Dernière édition: 13 Octobre 2014
Bonjour Forum Dans mon USF j’ai ce code de TextBox11( Format personnalisé) Code: 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 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 XLDnaute Barbatruc Supporter XLD 12 Octobre 2014 #2 Re : forcer TextBox en Format personnalisé et numerique Bonjoir Ilino, peut-être en essayant cela: Code: .................... .Cells(Lgn, 29).NumberFormat = "#,##0.00"" ml""" .Cells(Lgn, 29) = CDbl(TextBox11) .......................... Vote positif 0 Vote négatif
Re : forcer TextBox en Format personnalisé et numerique Bonjoir Ilino, peut-être en essayant cela: Code: .................... .Cells(Lgn, 29).NumberFormat = "#,##0.00"" ml""" .Cells(Lgn, 29) = CDbl(TextBox11) ..........................
job75 XLDnaute Barbatruc 12 Octobre 2014 #3 Re : forcer TextBox en Format personnalisé et numerique Bonjour Ilino, mapomme, CDbl sur un texte non numérique renvoie forcément une erreur... Code: Private Sub TextBox11_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox11 = Format(Val(Replace(TextBox11, ",", ".")), "#,##0.00"" ml""") End Sub et : Code: '------- .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+ Vote positif 0 Vote négatif
Re : forcer TextBox en Format personnalisé et numerique Bonjour Ilino, mapomme, CDbl sur un texte non numérique renvoie forcément une erreur... Code: Private Sub TextBox11_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox11 = Format(Val(Replace(TextBox11, ",", ".")), "#,##0.00"" ml""") End Sub et : Code: '------- .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 XLDnaute Barbatruc 13 Octobre 2014 #4 Re : forcer TextBox en Format personnalisé et numerique Bonjour Mapomme, Maitre grazie , ça fonctionne parfaitement Problème RESOLUTO A+ Vote positif 0 Vote négatif
Re : forcer TextBox en Format personnalisé et numerique Bonjour Mapomme, Maitre grazie , ça fonctionne parfaitement Problème RESOLUTO A+