Texbox

BOCARAMEL

XLDnaute Occasionnel

• 23 Juillet 2009

• #2

Re : Texbox

Bonsoir MacMac

essai ça
a mettre dans

Private Sub UserForm_Activate() 'ouverture de l'userform


UserForm1.TextBox1.Value = Sheets("feuil1").Range("a1").Value
TextBox1.Value = format(TextBox1.Value, "# ###.#0")

Bocaramel 🙂

 

Vote positif 0 Vote négatif

M

MacMac

XLDnaute Occasionnel

• 23 Juillet 2009

• #3

Re : Texbox

Bonsoir ,


Merci pour ton aide Bocaramel

mais je viens de coller le code adaptez a mes parametre mais cela ne fonctionne pas sa me plante le truc

Merci ,,,,,

 

Vote positif 0 Vote négatif

BOCARAMEL

XLDnaute Occasionnel

• 23 Juillet 2009

• #4

Re : Texbox

re,
regarde le fichier ci-joint

cdlt 😉

 

Pièces jointes

• affichage textbox.xls

  40 KB · Affichages: 65
• affichage textbox.xls

  40 KB · Affichages: 75
• affichage textbox.xls

  40 KB · Affichages: 68

Vote positif 0 Vote négatif

M

MacMac

XLDnaute Occasionnel

• 23 Juillet 2009

• #5

Re : Texbox

Merci BOCARAMEL


cela fonctionne tres biens je viens de l'adpter avec une texbox

mais question est ce possible de le faire avec une label au lieu d'une Texbox




je viens d'essayer ceci mais sa ne vas pas

Private Sub UserForm_Activate()
UserForm2.Label31.Value = Sheets("Calcul").Range("B4").Value
Label31.Value = Format(Label31.Value, "# ###.#0")

End Sub


Merci

 

Vote positif 0 Vote négatif

BOCARAMEL

XLDnaute Occasionnel

• 23 Juillet 2009

• #6

Re : Texbox

re,
oui biensur 🙂

comme ceci

UserForm1.Label1.Caption = Sheets("feuil1").Range("a1").Value
Label1.Caption = Format(Label1.Caption, "# ###.#0")

fichier ci-joint

a+
bocaramel 😉

 

Pièces jointes

• affichage textbox.xls

  38 KB · Affichages: 58
• affichage textbox.xls

  38 KB · Affichages: 58
• affichage textbox.xls

  38 KB · Affichages: 58

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 24 Juillet 2009

• #7

Re : Texbox

Bonjour,

on peut également le faire directement ainsi, code à utiliser dans le module de ton USF :

Code:

Label1.Caption = Format(Sheets("Feuil1").Range("a1").Value, "# ###.#0")

bonne journée
@+

 

Vote positif 0 Vote négatif