conversion de format dans textbox

Version imprimable

bonjour,
je suis confronté a un Pb dont la solution m'échappe depuis trois jours .
je suis certain que la solution est d'une telle simplicité.

exposé de mon problème:
j'ai un Userform dans lequel la TextBox4 reçoit a l'initialisation de l'Usf la somme des cellules d'une colonne B (numérique a deux décimales) si dans une deuxième colonne J le contenu des cellules est "Abcd".
j'arrive a afficher le résultat presque correct a ceci pres que j'ai un point et non une virgule dans ma TextBox
alors que si j'envoie le résultat dans un MsgBox cela est correct.
j'ai essayé plusieurs ligne de code mais cela marche pas.
voici mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Sub UserForm_initialize() TextBox4 = "0,00" With Sheets("Comptabilité") TextBox4.Value = Application.SumIf(.Columns("J"), "Abcd", .Columns("B")) ' me donne en résultat 23.58 ' MsgBox Application.SumIf(.Columns("J"), "Abcd", .Columns("B")) ' me donne en résultat 23,58 End With End Sub
merci de votre aide

22/01/2020, 08h41
Menhir

Citation:

Envoyé par arthur83fr

j'arrive a afficher le résultat presque correct a ceci pres que j'ai un point et non une virgule dans ma TextBox

Code:

TextBox4.Value = Replace(CStr(Application.SumIf(.Columns("J"), "Abcd", .Columns("B"))), ".", ",")
22/01/2020, 08h43
ARTURO83

Bonjour,

Chez moi, ça marche bien. Avez-vous essayez de substituer le point par la virgule?

Code:

TextBox4.Value = Replace(Application.SumIf(.Columns("J"), "Abcd", .Columns("B")), ".", ",")

Cdlt

Edit : désolé Menhir (salutation), pas vu que vous aviez déjà répondu.
22/01/2020, 13h41
arthur83fr

bonjour,

je viens d'essayer vos deux réponses, l'une comme l'autre me donne toujours 23.58 au lieu de 23,58

je précise que les données de la colonne B sont stockées au format nombre à 2 décimales

si vous avez d'autres idées je suis preneur

merci pour votre aide

pour ma part je continue mes essais/recherches
22/01/2020, 15h49
mfoxy
Bonjour

Peut-être non tester, attribuer ta valeur à une variable et puis l indiquer dans ton textbox en forçant le format ?
Code:

1 2 3 4 Dim finalSum as double FinalSum = ton calcul Me.textboxX.Value = Format(finalSum, "00,00")
22/01/2020, 17h16
arthur83fr

merci de ton aide mais cela ne fonctionne pas non plus.

avec ton code j'ai "0 024" dans matextbox
et en insérant un msgbox finalsum j'ai bien "23,58"

si je mets format(finalsum, "00.00") là j'ai "23.58" dans la textbox

donc je planche encore dessus
24/01/2020, 12h37
OrDonc

Bonjour …

Pas de problème chez moi, à tout hasard (qui parfois fait bien les choses), dans le formulaire supprime le contrôle TextBox4 puis réinstalle le même type en le renommant le comme précédemment.

Nota : la ligne TextBox4 = "0,00" est inutile.
24/01/2020, 14h19
Menhir

Comme OrDonc ( :coucou: ), je te conseille de supprimer l'initialisation à "0,00" qui ne peut servir à rien d'autre qu'à mettre la grouille.

Citation:

Envoyé par mfoxy

Code:

Me.textboxX.Value = Format(finalSum, "00,00")

Citation:

Envoyé par arthur83fr

avec ton code j'ai "0 024" dans matextbox

Ce qui est normal puisque VBA considère la virgule comme le séparateur de milliers.

En désespoir de cause, tu peux essayer de tester ça :

Code:

TextBox4.Value = Replace(Format(Application.SumIf(.Columns("J"), "Abcd", .Columns("B")), "#0.00"), ".", ",")

Mais si le reste n'a pas fonctionné, il est peu probable que ça fonctionne (mais on ne sait jamais...).
24/01/2020, 16h05
pijaku

Bonjour,

A tout hasard, pourrais-tu nous placer le code complet de ton UserForm, notamment d'éventuelles procédures événementielles relatives au TextBox4...
29/01/2020, 17h18
arthur83fr

Citation:

Envoyé par pijaku

Bonjour,

A tout hasard, pourrais-tu nous placer le code complet de ton UserForm, notamment d'éventuelles procédures événementielles relatives au TextBox4...

bonjour,

ci dessous le code il n'a rien de secret, mais ne me clouez pas au pilori je sais que mon code n'est certainement pas très propre.

bonjour, je m'aperçois que j'ai oublié le code mais bon il n'a rien d'extraordinaire

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
Private Sub CommandButton3_Click()      ' retour accueil
 
'UserForm3.Hide
 
Unload Me
 
End Sub
 
 
 
Private Sub UserForm_Initialize()
 
'For i = 1 To 31
'Me.Controls("TextBox" & i).Value = "0.00"
'Next i
 
CalculUsf3
 
 
End Sub
 
 
Sub CalculUsf3()
 
 
 
With Sheets("Comptabilité")
'TextBox4.Value = "0,00"
 
 
' fait la somme de la colonne Recette/dépense  en fonction du contenu de la colonne L Catégorie
 
 
 
TextBox3.Value = Application.SumIf(.Columns("L"), "706200", .Columns("B")) + Application.SumIf(.Columns("L"), "706200", .Columns("D")) + Application.SumIf(.Columns("L"), "706200", .Columns("F"))
TextBox4.Value = Application.SumIf(.Columns("L"), "708800", .Columns("B")) + Application.SumIf(.Columns("L"), "708800", .Columns("D")) + Application.SumIf(.Columns("L"), "708800", .Columns("F"))
TextBox5.Value = Application.SumIf(.Columns("L"), "740000", .Columns("B")) + Application.SumIf(.Columns("L"), "740000", .Columns("D")) + Application.SumIf(.Columns("L"), "740000", .Columns("F"))
TextBox6.Value = Application.SumIf(.Columns("L"), "747000", .Columns("B")) + Application.SumIf(.Columns("L"), "747000", .Columns("D")) + Application.SumIf(.Columns("L"), "747000", .Columns("F"))
TextBox7.Value = Application.SumIf(.Columns("L"), "754110", .Columns("B")) + Application.SumIf(.Columns("L"), "754110", .Columns("D")) + Application.SumIf(.Columns("L"), "754110", .Columns("F"))
TextBox8.Value = Application.SumIf(.Columns("L"), "756000", .Columns("B")) + Application.SumIf(.Columns("L"), "756000", .Columns("D")) + Application.SumIf(.Columns("L"), "756000", .Columns("F"))
 
TextBox25.Value = Application.SumIf(.Columns("L"), "512000", .Columns("C")) + Application.SumIf(.Columns("L"), "512000", .Columns("E")) + Application.SumIf(.Columns("L"), "512000", .Columns("G"))
TextBox26.Value = Application.SumIf(.Columns("L"), "602230", .Columns("C")) + Application.SumIf(.Columns("L"), "602230", .Columns("E")) + Application.SumIf(.Columns("L"), "602230", .Columns("G"))
TextBox12.Value = Application.SumIf(.Columns("L"), "602250", .Columns("C")) + Application.SumIf(.Columns("L"), "602250", .Columns("E")) + Application.SumIf(.Columns("L"), "602250", .Columns("G"))
TextBox13.Value = Application.SumIf(.Columns("L"), "605000", .Columns("C")) + Application.SumIf(.Columns("L"), "605000", .Columns("E")) + Application.SumIf(.Columns("L"), "605000", .Columns("G"))
TextBox14.Value = Application.SumIf(.Columns("L"), "606100", .Columns("C")) + Application.SumIf(.Columns("L"), "606100", .Columns("E")) + Application.SumIf(.Columns("L"), "606100", .Columns("G"))
TextBox15.Value = Application.SumIf(.Columns("L"), "606800", .Columns("C")) + Application.SumIf(.Columns("L"), "606800", .Columns("E")) + Application.SumIf(.Columns("L"), "606800", .Columns("G"))
TextBox16.Value = Application.SumIf(.Columns("L"), "607000", .Columns("C")) + Application.SumIf(.Columns("L"), "607000", .Columns("E")) + Application.SumIf(.Columns("L"), "607000", .Columns("G"))
TextBox17.Value = Application.SumIf(.Columns("L"), "613510", .Columns("C")) + Application.SumIf(.Columns("L"), "613510", .Columns("E")) + Application.SumIf(.Columns("L"), "613510", .Columns("G"))
TextBox18.Value = Application.SumIf(.Columns("L"), "615000", .Columns("C")) + Application.SumIf(.Columns("L"), "615000", .Columns("E")) + Application.SumIf(.Columns("L"), "615000", .Columns("G"))
TextBox19.Value = Application.SumIf(.Columns("L"), "615600", .Columns("C")) + Application.SumIf(.Columns("L"), "615600", .Columns("E")) + Application.SumIf(.Columns("L"), "615600", .Columns("G"))
TextBox20.Value = Application.SumIf(.Columns("L"), "616100", .Columns("C")) + Application.SumIf(.Columns("L"), "616100", .Columns("E")) + Application.SumIf(.Columns("L"), "616100", .Columns("G"))
TextBox27.Value = Application.SumIf(.Columns("L"), "622600", .Columns("C")) + Application.SumIf(.Columns("L"), "622600", .Columns("E")) + Application.SumIf(.Columns("L"), "622600", .Columns("G"))
TextBox28.Value = Application.SumIf(.Columns("L"), "623400", .Columns("C")) + Application.SumIf(.Columns("L"), "623400", .Columns("E")) + Application.SumIf(.Columns("L"), "623400", .Columns("G"))
TextBox29.Value = Application.SumIf(.Columns("L"), "625100", .Columns("C")) + Application.SumIf(.Columns("L"), "625100", .Columns("E")) + Application.SumIf(.Columns("L"), "625100", .Columns("G"))
TextBox30.Value = Application.SumIf(.Columns("L"), "625600", .Columns("C")) + Application.SumIf(.Columns("L"), "625600", .Columns("E")) + Application.SumIf(.Columns("L"), "625600", .Columns("G"))
TextBox31.Value = Application.SumIf(.Columns("L"), "626100", .Columns("C")) + Application.SumIf(.Columns("L"), "626100", .Columns("E")) + Application.SumIf(.Columns("L"), "626100", .Columns("G"))
TextBox32.Value = Application.SumIf(.Columns("L"), "626200", .Columns("C")) + Application.SumIf(.Columns("L"), "626200", .Columns("E")) + Application.SumIf(.Columns("L"), "626200", .Columns("G"))
TextBox33.Value = Application.SumIf(.Columns("L"), "627100", .Columns("C")) + Application.SumIf(.Columns("L"), "627100", .Columns("E")) + Application.SumIf(.Columns("L"), "627100", .Columns("G"))
TextBox34.Value = Application.SumIf(.Columns("L"), "631000", .Columns("C")) + Application.SumIf(.Columns("L"), "631000", .Columns("E")) + Application.SumIf(.Columns("L"), "631000", .Columns("G"))
TextBox35.Value = Application.SumIf(.Columns("L"), "635400", .Columns("C")) + Application.SumIf(.Columns("L"), "635400", .Columns("E")) + Application.SumIf(.Columns("L"), "635400", .Columns("G"))
TextBox36.Value = Application.SumIf(.Columns("L"), "641100", .Columns("C")) + Application.SumIf(.Columns("L"), "641100", .Columns("E")) + Application.SumIf(.Columns("L"), "641100", .Columns("G"))
TextBox37.Value = Application.SumIf(.Columns("L"), "658200", .Columns("C")) + Application.SumIf(.Columns("L"), "658200", .Columns("E")) + Application.SumIf(.Columns("L"), "658200", .Columns("G"))
 
 
 
End With
 
End Sub

j'ai un point a la place de la virgule 23.56 au lieu de 23,56 mais bon cela fonctionne
mais c'est par principe pour apprendre et comprendre ou cela coince
merci d'avance pour vos conseils