Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 format personnalisé dans formulaire

Lone-wolf

XLDnaute Barbatruc
Re : format personnalisé dans formulaire

Bonsoir letroubadour


TextBox1 = Format(TextBox1, "00 00 00 00 00")

TextBox2 = Format(TextBox2, "00 00 00 000 000")
 
Dernière édition:

Paf

XLDnaute Barbatruc
Re : format personnalisé dans formulaire

Bonjour letroubadour, Lone-wolf,

en complément de Lone-wolf, le formatage pourrait être effectué

Dans Private Sub enregistrer() pour mettre en forme (sur la feuille) des données nouvellement saisies:
Code:
 ....
      .Cells(i, 5) = Format(TBtel, "00 00 00 00 00")
      .Cells(i, 6) = TBmail
      .Cells(i, 7) = Format(TBneph, "00 00 00 000 000")
....

Dans Private Sub LBnum_Click() pour un affichage correct dans la Userform

Code:
      ....
      UserForm1.TBtel = Format(.Cells(i, 5), "00 00 00 00 00")
      UserForm1.TBmail = .Cells(i, 6)
      UserForm1.TBneph = Format(.Cells(i, 7), "00 00 00 000 000")
      ....

A+
 

Lone-wolf

XLDnaute Barbatruc
Re : format personnalisé dans formulaire

Re

EDIT: Bonsoir Paf

dans TBtel_Change()

Private Sub TBtel_Change()
TBtel = Format(TBtel, "00 00 00 00 00")
End sub

Fait de même pour N° NEPH
 

Lone-wolf

XLDnaute Barbatruc
Re : format personnalisé dans formulaire

Re

Dans ce cas il faut faire un format personnalisé des cellules. Mais il faut d'abord les convertir en nombre, ensuite tu applique le format.
 
Dernière édition:

Discussions similaires

Réponses
12
Affichages
373
Réponses
3
Affichages
685
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…