Problème de formats dans un userform

Bonjour,

(J'ai déjà eu ce problème, mais il s'agit d'un autre cas de figure.)

Mon classeur comporte un userform de saisie de coordonnées bancaires.

Je souhaite formater mes données sur un nombre de caractères donné.
Ex : si saisie 12 en code banque, alors il s'affiche "00012"

Pour cela, dans le code de mon userform :

Code:

---

1 2 3 4 5 6 7

Private Sub saisie_cd_banque_Exit(ByVal Cancel As MSForms.ReturnBoolean)   With Me.saisie_cd_banque .Value = Format(.Value, "00###") End With   End Sub

---

Même type de code pour les 3 autres données.

Si je saisis, mon code banque, l'affichage est respecté.
Mais dès que je saisis le code guichet, le code banque revient à 2 caractères.


Les 4 données du RIB ont leur controlsource placés sur une feuille "Données".

J'ai aussi tenté

Code:

---

.Value = Format(Sheets("Données").Range("cd_banque").Value, "00###")

---

J'ai remarqué d'autre part que si je supprimais la feuille "Banque" (lettre au client) initialement liée à la feuille "Données", l'affichage était bien respecté ? Et ce alors que j'avais supprimé dans un second temps toutes les références à la feuille "Données" ????

Y a-t-il une explication ?

Pour une meilleure illustration, je peux joindre un fichier (allégé)

Par avance, je vous remercie.

Marcel.

Bonsoir MarcelG, le forum,
Il faudrait plus d'explications. Dans ton USF, les données apparaissent t'elles dans une listbox ou combobox, si oui, la propriété rowsource est'elle donnée par les propriétés du combo ou list ou entrée par code ?

A +

Merci pour ta réponse.

Mes données sont de simples Textbox

Cordialement.

Marcel.

est-ce un texbox pour le cde guichet, un pour le code banque, etc. ou un seul textbox qui reprend les données de ta feuille, car tu parlais de source. Des solutions existent pour les deux cas, soit écrire dans les textbox et reporter sur la feuille, soit reprendre les données de ta feuille à inserer dans les textbox.

Précises encore et je pourrai certainement t'aider

Re bonsoir,

Il s'agit de 4 textbox (banque, guichet, numéro et clé).
Chaque textbox est lié (controlsource) à une cellule figurant dans la feuille "Données".
Initialement, à cette feuille "Données", était liée une deuxième feuille (Lettre Client)

Souhaites-tu que je te joignes un fichier simplifié ?

Encore Merci.

Marcel.

PS : je vais quitter le travail, et je te dis à demain avec plaisir.

Afin de gagner du temps, ton fichier sera utile car si la source est une feuille, j'imagine que tu fais tes saisies dans cette feuille.

En attendant, une solution parmi d'autres
j'ai imaginé tes saisies en "a2", "b2", "c2" et "d2" de ta feuille "données"
bien sur, mes noms de textbox sont a remplacer par les tiens

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub UserForm_Activate() cbanque = Mid("000", 1, 5 - Len(Range("a2"))) & Range("a2") 'si le code banque a 5 chiffres guichet = Mid("000", 1, 5 - Len(Range("b2"))) & Range("b2") 'si le code guicheta 5 chiffres compte = Mid("000", 1, 8 - Len(Range("c2"))) & Range("c2") 'si le numéro de compte a 8 chiffres 'même procédure avec la clé au besoin cle = Range("d2") End Sub   ' par contre, si tu interviens sur les textbox, adapter le code avec le bon évènement

---

PS : j'ai oublié de préciser que si tes cellules sont mise au format texte, tout ce code est inutile

Bonjour casefayere, Bonjour le forum

Casefayere,

J'ai appliqué ton code à l'évènement Exit des 4 Texbox banque, guichet, compte et clé.
Toujours le même problème,
Par contre, dès que je supprime la feuille "Changt_Banque" de mon classeur, alors les problèmes d'affichage sont résolus.
Pourquoi ?
Sauf erreur de ma part, j'ai effacé toute cellule dans cette dernière feuille
liée à la feuille "Données" qui comprend les controlsource de mon userform.

Comme convenu, ci-joint mon fichier.

Merci encore.

Cordialement.

Marcel.

Bonsoir,
je pense que tu es mal parti avec tes codes,
déjà quand tu cliques sur le bouton, tu effaces les données, ensuite tu exécutes ce code, pour moi illogique

Code:

---

1 2 3 4 5 6

Private Sub saisie_cd_banque_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim valbanque As String valbanque = Sheets("Données").Range("cd_banque")'donc rien à valbanque car plus de données, elles sont effacées saisie_cd_banque = Mid("00000", 1, 5 - Len(valbanque)) & valbanque'donc que des 0 à saisie_cd_banque   End Sub

---

rien qu'à ce stade,j'aimerais comprendre ce que tu cherches en sortant de ce textbox, quand j'aurai compris ça, je pourrais peut-être t'aider sur le reste car il est inutile que j'aille plus loin sans comprendre ta démarche

Bonne soirée

Bonjour Casefayere, Bonjour le Forum

Mon userform est à la disposition de mes collègues.

Ce qui m'intéresse, c'est l'ergonomie de chaque Texbox après leur saisie, d'où la gestion de l'évènement Exit.

Si l'utilisateur entre 50 comme code banque, alors le Textbox affiche "00050" lorsque l'utilisateur retourne cette valeur et que le focus se déplace sur le Textbox suivant (code guichet), et de même pour les autres données.

Ici les ControlSource se trouvent dans la feuille "Données".

Dans le fichier joint, tu verras que si tu supprimes la feuille "Changt_Banque" alors, après avoir chargé l'usf et saisi les données, tu obtiens des Textbox bien formatés. Et c'est là mon interrogation.

J'énonce peut-être une erreur, mais le fait d'effacer les données avant la saisie n'altère pas l'ergonomie de l'usf, puisque ce sont les évènements Exit, donc après l'information des ControlSource, qui gèrent ce format. Mais, je me répète, je peux me tromper.

En espérant avoir été plus clair.

Merci.

Marcel.

Bonjour MarcelG, le forum (mais c'est déjà fait)

Peu importe tes explications mais je t'ai expliqué que ta démarche est impossible
1- tu effaces les données
2- tu voudrais que les textboxs récupèrent les données
non c'est impossible sauf si tu passes par une variable qui va conserver ces données (avant de les avoir effacées)
3 - tu insistes pour me dire que les cellules concernées sont des controlsources pour tes textboxs, franchement je ne comprends pas car ces données sont effacées avant :
4- je préfère penser que :
- à l'origine, tes textboxs prennent les valeurs de ta feuille "données"
- ensuite, tu modifies ces informations et tu les valides, et là je pourrai t'aider.
5- l'évenement "exit" est facile à gérer pourvu que je comprenne
6- je pense que (comme tes textboxs n'ont qu'une valeur de modification), la feuille "données" est une destination après avoir été une source (dis-moi tout)

Excuses-moi d'insister mais je n'ai pas trop de temps, alors, pour t'aider, je réitère qu'il faut que je comprenne ta démarche

Mais je peux être aussi buté (ou un peu con, tout est possible dans un monde parfait) et ne rien comprendre, dans ce cas j'espère que quelqu'un, plus psychologue ou aguerri que moi pourra te répondre.

En conclusion, je veux bien (et j'espère) t'aider pourvu que tes explications soient claires.

Rien ne me sert d'avancer dans le programme (vu mon temps) si je ne saisis pas les premières lignes de code.

Dans l'espoir que tu comprendras mon insistance,
bon courage

Bonjour Casefayere, Bonjour le Forum

En effet.

Voilà mon processus

1 - mettre tous les controlsources à vide depuis la fenêtre "propriétés" de chaque TextBox (1 fois)

2 - au chargement de l'userform, vider tous les TextBox

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub UserForm_Initialize() Dim contr As Control For Each contr In Controls If TypeName(contr) = "TextBox" Then contr = "" End If Next contr saisie_cd_banque.SetFocus End Sub

---

3 - gérer les 2 évènements Exit et Change de mes TextBox
(exemple pour le code banque)

Code:

---

1 2 3 4 5 6 7

Private Sub saisie_cd_banque_Change() [cd_banque] = saisie_cd_banque End Sub   Private Sub saisie_cd_banque_Exit(ByVal Cancel As MSForms.ReturnBoolean) saisie_cd_banque = Mid("00000", 1, 5 - Len(saisie_cd_banque)) & saisie_cd_banque End Sub

---

Et là, PLUS DE PROBLEMES D'AFFICHAGE et ma feuille "Données" est bien informée.

Si d'autres remarques, je suis bien entendu preneur.

Merci.

Marcel