Format de text label
Bonjour,
J'utilise des formats de cellule personnalisées pour certaines cellules de mon tableau.
Le USERFORM reprend des données du tableau.
J'ai des soucis de format pour les trois label indiqués ci dessous
J'aimerais ne pas afficher les chiffres après les virgules
ci joint le code
Private Sub UserForm_Initialize()
Label2 = Worksheets("PARAMETRE").Range("e17").Value
Label4 = Worksheets("SAISIE").Range("g3").Value
Label6 = Worksheets("SAISIE").Range("br3").Value
Label8 = Worksheets("SAISIE").Range("bn3").Value
Label10 = Worksheets("SAISIE").Range("bt3").Value
Label14 = Worksheets("SAISIE").Range("p3").Value
Label15 = Worksheets("SAISIE").Range("k3").Value
Label27 = Worksheets("VENTIL").Range("e5").Value
Label26 = Worksheets("VENTIL").Range("e3").Value * 100
Label30 = Worksheets("VENTIL").Range("c5").Value
Label29 = Worksheets("VENTIL").Range("c3").Value * 100
Label24 = Worksheets("VENTIL").Range("k5").Value
Label23 = Worksheets("VENTIL").Range("k3").Value * 100
Label33 = Worksheets("VENTIL").Range("h5").Value
Label32 = Worksheets("VENTIL").Range("h3").Value * 100
Label17 = Worksheets("VENTIL").Range("i5").Value
Label20 = Worksheets("VENTIL").Range("i3").Value * 100
Label19 = Worksheets("VENTIL").Range("d5").Value
Label21 = Worksheets("VENTIL").Range("d3").Value * 100
End SubQuest-ce que je dois mettre pour ne plus afficher les chiffres après les virgules ?
bonjour,
Les labels n'ont pas de propriété Value : Je doute un peu que ce soit possible...
Essaie d'utiliser des TextBox avec la propriété :
Locked = True
et
SpecialEffect = 0 (fmSpecialEffectFlat)
A+
J'ai fait un textbox avec les propriétés
Locked = True
et
SpecialEffect = 0 (fmSpecialEffectFlat)
ça me renvoi les mêmes valeurs
Après il faut que tu joues sur le format
TextBox1 = Format(22.256789, "00.00").
D'ailleurs on obtient le même résultat avec un label (22.26)
Donc tu peux surement conserver tous tes Label...
Edit donc si tu veux pas de virgule :
Label15 = CInt(Worksheets("SAISIE").Range("k3").Value)A+
Merci galopin01
