POINT apres troisieme chiffre

Bonsoir tout le monde

Svp si vous pouvez m'aider a savoir comment faire cette maniere :

TextBox3.Text = TextBox1.Text + TextBox2.Text

Comment faire pour que le resultat dans TextBox3 s'affiche de cette maniere (4.587,58) ou (54.587,58) ou (554.587,58) ..etc

Merci d'avance pour l'aide

ABIDINE

Bonjour tout le monde

SVP aucune idee pour ce sujet

Cordialement

ABIDINE

Bonsoir ABIDINE,

un essai

Format(TextBox3.Value, "#\.##0.00 €")

cdt

Henri

Bonjour Henri

Merci beaucoup pour votre aide et pour votre code

C'est effectivement ce que j'ai voulu faire simlement il ne me reste qu'un petit probleme ..

SVP si vous pouvez voir l'image ci dessous comment faire pour appliquer le point séparateur pour tous les milliers ..exemple ici dans cette image est ce qu'on peut avoir dans TextBox3 le chiffre de cette maniere :

7.931.357.776,57

Merci beaucoup .. beaucoup d'avance pour l'aide

Sincerement

ABIDINE

re,

Tout simplement comme ceci:

"#\.###\.###\.##0.00"

Bonne soirée

Henri

Bonsoir Henri

Tres gentil de votre part

Merci pour cet excellent code .. mais comme meme un petit soucis et se sera formidablement resolu

Comment eviter ce point au debut du de chiffre du resultat

Cordialement

ABIDINE

Re

J'ai répondu à tes exemples mais comme le résultat n'a pas toujours le même nombre de chiffres devant la virgule, il faudra surement une petite macro du genre:

Si les chiffres devant la virgule sont >3 et <7 alors format "#\.##0.00"

si >6 et <10 alors

et ainsi de suite

Mais je ne sais pas faire.

Désolé

Henri

Merci Henri pour tes efforts et pour l'aide

Je vais considerer comme resolu

Merci encore

ABIDINE

Bonjour ABADINE

Avec ce petit bout de code ça devrait marcher.

Dim nbre As Long
nbre = TextBox3
    If nbre > 999.99 And nbre < 999999.99 Then
        TextBox3.Value = Format(TextBox3.Value, "#\.##0.00")
    Else
    If nbre > 999999.99 And nbre < 999999999.99 Then
        TextBox3.Value = Format(TextBox3.Value, "#\.###\.##0.00")
    Else
    If nbre > 999999999.99 And nbre < 999999999999.99 Then
        TextBox3.Value = Format(TextBox3.Value, "#\.###\.###\.##0.00")
    End If
    End If
    End If

A tester

Cdt

Henri

Bonjour Henri

Merci beaucoup pour votre super suivi de ce sujet

Merci aussi pour votre code et que vous ne m'avez pas oublié ..tres gentil de votre part

J'ai essayé avec ce code mais dés que je commence a tapper un chiffre dans TextBox1 ..svp si vous pouvez voir ces 2 images :

Cordialement

ABIDINE

Re

Je pense qu'il faudrait mettre le code dans

Private Sub TextBox3_Change()

et non pas dans TextBox1

Mais comme je ne connais pas votre fichier, éventuellement mettez-le en P.J.

Cdt

Henri

Bonjour Henri

Merci beaucoup pour votre aide

Voila mon fichier ..en réalite dés le debut j'ai rien fais dans ce fichier sauf 3 TextBox

Merci Henri beaucoup d'avance si vous pouvez voir ce malheureux fichier

Amicalement

ABIDINE

Bonjour

Une idée (un peu tordue ?)

Juste ces 2 procédures dans le code de l'userform

Private Sub TextBox1_Change()
  Me.TextBox3.Text = Replace(Format(Val(Replace(Me.TextBox1, ",", ".")) + Val(Replace(Me.TextBox2, ",", ".")), "#,##0.00"), Chr(160), ".")
End Sub
Private Sub TextBox2_Change()
  Me.TextBox3.Text = Replace(Format(Val(Replace(Me.TextBox1, ",", ".")) + Val(Replace(Me.TextBox2, ",", ".")), "#,##0.00"), Chr(160), ".")
End Sub

Bonjour Banzai64

Merci .. je ne sais pas quoi vous dire sauf :

Bravo .. c'est plus que parfait

C'est totalement et completement et formidablement résolu

Sans oublier de dire merci beaucoup Henri pour tes supers efforts

Merci a vous deux

Amicalement

ABIDINE

Merci et bravo à Banzai64 comme d'hab

Voici ma dernière contribution sans formulaire.

Bonne soirée

Henri

Bonsoir Henri

Du fond du coeur merci beaucoup

Tres amicalement

ABIDINE