XL 2010 format personnalisé dans formulaire

[letroubadour]

boujour

je cherche à avoir un format personnalisé lors de la saisie dans le formulaire du N° de telephone (00 00 00 00 00) et lors de la saisie du N° NEPH( 00 00 00 000 000 ) pour que se soit correctement affiché dans la feuille 1 .

Le mot de passe 0000

http://www.sendbox.fr/8d9b7f3c4d26c864/ECB.xlsm

merci

Le troubadour

 

[Lone-wolf]

Re : format personnalisé dans formulaire

Bonsoir letroubadour


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

TextBox2 = Format(TextBox2, "00 00 00 000 000")

 

[letroubadour]

Re : format personnalisé dans formulaire

merci Lone-wolf

mais je dois mettre cette ligne à quel niveau ?

merci

 

[Paf]

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:

 ....
      .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

      ....
      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]

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

 

[letroubadour]

Re : format personnalisé dans formulaire

merci à tous les deux

les deux fonctionnent parfaitement dans les textbox , mais pas au niveau de la feuille 1 dans les colonnes E et G

merci

Le troubadour

 

[Lone-wolf]

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.