Discussion :

[arthur83fr]

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]

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]

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]

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]

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]

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]

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]

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

Code :

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

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

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