Discussion :

[DeathLighT]

Bonjour,

Je reviens vers vous avec une nouvelle question.

Je cherche actuellement à créer un formulaire de saisie afin d'uniformiser le tout.

J'ai réussi à créer le formulaire, à transposer les données saisies dans les cellules concernées, et faire que tout fonctionne en classeur partagé.

Mais un problème demeure.
Dans un TextBox, je saisis un numéro de téléphone à dix chiffres. Ce numéro est transposé dans une colonne ou le format Cellule est "Spécial : Numéro de téléphone".
Seulement, ça n'enregistre pas comme je le souhaite ; quand je valide ma saisie, le numéro est amputé du zéro et je me retrouve avec des # en lieu et place du numéro. Quand je clique dans la cellule, le numéro est présent avec neuf chiffres ; quand je survole la cellule ça m'indique le numéro à dix chiffres, en rouge.

Etant un grand débutant (pas d'apprentissage, notion de développement et de programmation proche de zéro), j'ai lu ici et là qu'on peut utiliser des masques de saisie.
Est-ce la solution ?
Dois-je l'intégrer dans le Userform ou dans une macro ?

Merci de votre patience et vos réponses.
Cordialement, Jérôme D

[grisan29]

bonjour

si tu as un textbox sur un formulaire doubleclic dessus et inscrit ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Me.TextBox1.Value = Format(Me.TextBox1.Value, "00 00 00 00 00")
End Sub

cordialement

Pascal

[DeathLighT]

Bonjour,

Merci pour votre réponse, le code fourni adapté au nom de ma TextBox fait des merveilles.

J'étais sur ce problème depuis mardi matin et quelques tentatives s'approchait de celà, mais je ne savais jamais où intégrer ces quelques lignes.

Problème résolu

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Telephone_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Me.Telephone.Value = Format(Me.Telephone.Value, "00 00 00 00 00")
End Sub