Format Label

[maval]

Bonjour,

Je suis à la recherche du code pour mettre le résultat entre parenthèse dans un label.

J'ai mis mon comme ceci :

Public Sub TextBox5_change()
 Label24.Caption = Trim(TextBox5.Text)
  Label24.Caption = Format(Label24.Value, "()")
End Sub

Message d'erreur?

Je vous remercie d'avance et vous souhaite une bonne journée

Cordialement

Max

 

[JCGL]

Re : Format Label

Bonjour à tous,

Peux-tu essayer :

Label24.Caption = "(" & Label24.Value & ")"

A+ à tous

 

[maval]

Re : Format Label

Bonjour JC,

Merci d'avoir répondu. J'ai un message d'erreur "Membre de méthode ou de données introuvable"

Je joint mon fichier

Bonne journée

@+

Max

 

[maval]

Re : Format Label

Re,

C'est bon j'ai trouvé j'ai changer "Value par Caption"

 Label24.Caption = "(" & Label24.Caption & ")"

Merci bonne journée

Max

 

[maval]

Re : Format Label

Bonjour Jean-Marcel,

Oui sa fonctionne et le code et plus court que le mien !

Bonne journée

@+

Max

 

[Guest]

Re : Format Label

Bonjour,

Hello mon JC, Salut Jean-Marcel

Si ton textBox ne contient QUE des chiffres ou un nombre décimal tu peux le faire avec FORMAT:

Label24.Caption = Format(Replace(Trim(TextBox5.Text), ",", "."), "(#)")

La fonction Replace, remplace la Virgule décimale par un Point (séparateur décimal de VBA)

A+

 

[maval]

Re : Format Label

Bonjour Hasco,

Je confirme mon label & TextBox ne contient que des chiffres.

Je te remercie et te souhaite une bonne journée.

@+
Max