L letroubadour XLDnaute Occasionnel 8 Juin 2016 #1 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
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 XLDnaute Barbatruc 8 Juin 2016 #2 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: 8 Juin 2016 Vote positif 0 Vote négatif
Re : format personnalisé dans formulaire Bonsoir letroubadour TextBox1 = Format(TextBox1, "00 00 00 00 00") TextBox2 = Format(TextBox2, "00 00 00 000 000")
L letroubadour XLDnaute Occasionnel 8 Juin 2016 #3 Re : format personnalisé dans formulaire merci Lone-wolf mais je dois mettre cette ligne à quel niveau ? merci Vote positif 0 Vote négatif
Re : format personnalisé dans formulaire merci Lone-wolf mais je dois mettre cette ligne à quel niveau ? merci
Paf XLDnaute Barbatruc 8 Juin 2016 #4 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+ Vote positif 0 Vote négatif
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 8 Juin 2016 #5 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 Vote positif 0 Vote négatif
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
L letroubadour XLDnaute Occasionnel 8 Juin 2016 #6 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 Vote positif 0 Vote négatif
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 XLDnaute Barbatruc 8 Juin 2016 #7 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: 8 Juin 2016 Vote positif 0 Vote négatif
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.