Convertir le contenu d'un label [Résolu]

Signaler
Messages postés
576
Date d'inscription
samedi 14 octobre 2006
Statut
Membre
Dernière intervention
27 janvier 2014
-
ucfoutu
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
-
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.

7 réponses


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
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
220
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
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
220
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
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
220
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

Oui c'est vrai... je ne sais pas pourquoi je me suis compliqué la vie également...


Cordialement


CF2i - Guadeloupe
Ingénierie Informatique
Messages postés
576
Date d'inscription
samedi 14 octobre 2006
Statut
Membre
Dernière intervention
27 janvier 2014
2
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.
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
220
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