XL 2010 Format numérique Textbox USF, 2 chiffres après le point

E

Eric 45

XLDnaute Occasionnel

• 3 Avril 2017

• #2

Bonjour à tous
Bonjour Scorpio

Peut-être comme ceci :

Code:

'remplace le point par une virgule

Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 46 Then KeyAscii = 44
End Sub

si j'ai bien compris

Eric

 

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 3 Avril 2017

• #3

Re
J'ai fait comme ça, mais rien a faire

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 46 Then KeyAscii = 44
TextBox1.Value = (Format(val(Me.TextBox1.Value), "0,00"))
End Sub

 

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 3 Avril 2017

• #4

Excuse, j'ai oublié de dire bonjour
Bonjour Eric45

 

Vote positif 0 Vote négatif

E

Eric 45

XLDnaute Occasionnel

• 3 Avril 2017

• #5

Re
Pourquoi ajoutes tu :

Code:

TextBox1.Value = (Format(val(Me.TextBox1.Value), "0,00"))

c'est inutile

Eric

 

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 3 Avril 2017

• #6

Excuse, j'ai oublié de dire bonjour
Bonjour Eric45

Eric 45 à dit:

Re
Pourquoi ajoutes tu :

Code:

TextBox1.Value = (Format(val(Me.TextBox1.Value), "0,00"))

c'est inutile

Eric

Cliquez pour agrandir...

Re
J'ai fait l'essai, mais pareil,

 

Vote positif 0 Vote négatif

E

Eric 45

XLDnaute Occasionnel

• 3 Avril 2017

• #7

Re

En ne mettant que cela :

Code:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 46 Then KeyAscii = 44
End Sub

Sur quelle touche appuies-tu pour faire le "." ?

Eric

 

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 3 Avril 2017

• #8

Re salut Eric45
Alors voici le classeur, et ton code
Je n'arrive pas, c'est dingue

 

Pièces jointes

• ListBoxColonneNonContigueOK.xlsm

  27.9 KB · Affichages: 45

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 3 Avril 2017

• #9

Bonjour.
Maintenant qu'il y a un classeur joint, j'ai deux questions.
1) – Êtes vous sûr que ce ne serait pas plutôt un Label qu'il vous faudrait ?
2) – Êtes vous sûr du type Integer de Calc, qui ne supporte que des entiers ?

 

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 3 Avril 2017

• #10

Salut Dranreb,
Alors je suis pas sur d'un Label, mais pourquoi pas.
Et pour le code Integer de Calc, vous savez, je ne suis pas un as en BVA, alors voilà, j'aimerais bien une solution, qui fonctionne.
Merci Dranreb de ton aide

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 3 Avril 2017

• #11

VB:

'Somme colonne "D"
Private Sub CommandButton1_Click()
Dim I As Integer, Calc As Currency
With ListBox1
   For I = 0 To .ListCount - 1
   Calc = Calc + .List(I, 4)
   Next
End With
TextBox1.Text = Format(Calc, "### ### ##0.00")
'À terme, plutôt :
'LabSomme.Caption = Format(Calc, "### ### ##0.00")
End Sub

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 3 Avril 2017

• #12

Bonjour à tous

Tu peux aussi faire comme ceci

VB:

Private Sub ComboBox1_Change()
If ComboBox1.Text <> "" Then
Call Afficher
Else
Exit Sub
End If
End Sub

Private Sub Afficher()
Dim I As Single, k As Integer, Calc As Currency
Dim MyArray(20, 5)
ListBox1.ColumnCount = 5 'NB de colonne
ligne = 0
DerLigne = Range("A65535").End(xlUp).Row
For I = 2 To DerLigne
If Cells(I, 1) = ComboBox1 Then
MyArray(ligne, 0) = Cells(I, 1)
MyArray(ligne, 1) = Cells(I, 3)
MyArray(ligne, 2) = Cells(I, 6)
MyArray(ligne, 3) = Cells(I, 8)
MyArray(ligne, 4) = Cells(I, 9)
ligne = ligne + 1
End If
Next I
ListBox1.List() = MyArray

With ListBox1
   For k = 0 To .ListCount - 1
   Calc = Calc + .List(k, 4)
   Next
End With
TextBox1.Text = Format(Calc, "### ### ##0.00")
End Sub

 

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 3 Avril 2017

• #13

Re Dranreb,
Super, tu es un champion, formidable, c'est bon cette fois
Un grand merci à toi.

Salut Lone-Wolf,
Merci pour ton aide aussi, vous voyez, pour vous c'est facile tous ça, mais par pour moi, hai, hai, hai, dur , dur
Merci à vous 2
A++++

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 4 Avril 2017

• #14

Bonjour

Voir le fichier pour la demande faite ici !

 

Pièces jointes

• ListviewChoixColonnes.xlsm

  51 KB · Affichages: 42

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 4 Avril 2017

• #15

Si... à dit:

Bonjour

Voir le fichier pour la demande faite ici !

Cliquez pour agrandir...

Merci à toi Si..., Super, bon travail.
Super coup de main, a++++

 

Vote positif 0 Vote négatif