Convertir le contenu d'un labelRésolu

Question

Bonjour,

je calcule automatiquement le total (lbltotal) du prix (txtprix) d'un produit par la quantité désirée (txtqte). Dans l'évènement Change de mon lbltotal j'ai mis le code suivant pour avoir le montant avec un séparateur de millier :

lbltotal.Caption = Format(Val(lbltotal.Caption), "### ### ##0")

Mon problème est que je souhaiterai convertir le contenu de mon label en entier (par exemple: avoir 15 500 en 15500).

J'ai bien essayé val(lbltotal.caption) mais ça ne marche malheureusement pas.

Merci d'avance.

Cordialement.

acive · Accepted Answer

Bonjour,
 Il ne peut pas avoir des décimales puisqu'il fait:
lbltotal.Caption =  Format( Val (lbltotal.Caption), "### ### ##0")


Je pense plutôt qu'il veut juste enlever les espaces, et dans ce cas:
Private Sub lbltotal_Change()
lbltotal.Caption  = Format(Val(lbltotal.Caption), "### ### ##0")
Dim St As String
Dim Total As Long
St = Replace(lbltotal.Caption, " ", "")
Total = St
Me.Caption = Total
End Sub

Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

ucfoutu · Answer

Bonjour,
val("15 500") donnant 15500,
je ne comprends pas ton problème
A moins que tu n'aies pas tout dit et que tu aies des décimales dans ton label !


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

pas besoin d'enlever les espaces ! Val s'en charge !
Il y a donc forcément autre chose, dont il ne parle pas. 


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

et la preuve ===>> et même en reprenant ce curieux mécanisme basé sur l'évènement change d'un label :
Private Sub Command4_Click()
  Label1.Caption = "15500"
  
  MsgBox Val(Label1.Caption)
End Sub

Private Sub Label1_Change()
 Label1.Caption = Format(Label1, "### ### ##0")
End Sub

on aura bien "15 500" dans le label et la msgbox affichera bien, elle, 15500.


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

acive · Answer

Oui c'est vrai... je ne sais pas pourquoi je me suis compliqué la vie également... 


Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

js8bleu · Answer

Bonjour ucfoutu et acive et Merci pour votre aide. Je vous prie de bien vouloir m'excuser car effectivement le code marche, c'est tout simplement moi qui me suis trompé dans ma formule de réutilisation de lbltotal. Je suis sincèrement confus et désolé.

Excellente après-midi et prenez bien soin de vous.

Cordialement.

ucfoutu · Answer

fiche un clic n'importe où sur le tag "réponse acceptée" (la tienne, si tu veux) ===>> libère ce sujet.

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Convertir le contenu d'un label

7 réponses

Votre réponse

Discussions similaires