conversion de format dans textbox

**arthur83fr** · 21/01/2020, 23h20

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Menhir** · 22/01/2020, 08h41

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**ARTURO83** · 22/01/2020, 08h43

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    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.

**arthur83fr** · 22/01/2020, 13h41

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

**mfoxy** · 22/01/2020, 15h49

Bonjour

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Dim finalSum as double 
FinalSum = ton calcul
Me.textboxX.Value = Format(finalSum, "00,00")

**arthur83fr** · 22/01/2020, 17h16

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

**OrDonc** · 24/01/2020, 12h37

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.

**Menhir** · 24/01/2020, 14h19

Comme OrDonc (

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

Envoyé par mfoxy

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...).

**pijaku** · 24/01/2020, 16h05

Bonjour,

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

**arthur83fr** · 29/01/2020, 17h18

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.

**arthur83fr** · 07/02/2020, 16h04

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

conversion de format dans textbox

Macros et VBA Excel

Discussions similaires

Partager

Partager