Probleme format Textbox

Fermé
Mtiuc Messages postés 5 Date d'inscription vendredi 15 janvier 2016 Statut Membre Dernière intervention 16 janvier 2016 - 15 janv. 2016 à 19:37
via55 Messages postés 14408 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 5 mai 2024 - 16 janv. 2016 à 18:35
Bonjour à tous,

Après plusieurs heure de recherche je n'arrive pas à trouver la solution à mon problème. je viens donc vers vous en espérant que vous pourrez m'aider.

Je voudrais que quand je tape 1 dans la textbox j'obtienne : 00117
Le Textbox se trouve dans un userform qui s'ouvre automatiquement à l'ouverture du fichier.

J'ai donc essayer le code suivant :

facture.value = Format(facture, "000"&"17")
avec facture : nom du textbox

Le problème : Quand je lance l'userform, un message me dis "erreur de compilation : projet ou bibliothèque introuvable" et Format est surligné en noir.

Pouvez-vous m'aider.

Merci d'avance
A voir également:

6 réponses

via55 Messages postés 14408 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 5 mai 2024 2 705
15 janv. 2016 à 23:34
Bonsoir

Essaie plutôt d'associer cette macro à ton textbox :
Private Sub facture_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
fac = Val(facture.Value) * 100 + 17
facture.Value = Format(fac, "00000")
End Sub


Cdlmnt
Via
0
Mtiuc Messages postés 5 Date d'inscription vendredi 15 janvier 2016 Statut Membre Dernière intervention 16 janvier 2016
16 janv. 2016 à 15:44
Bonjour,
Déjà merci pour la réponse.
J'ai essayer cette macro mais je n'obtiens pas le résultat voulu.
Je réexpique le problème :
J'ai un textbox qui recupere la valeur d'une cellule.
J'ai un autre textbox qui ajoute 1 au premier textbox en cliquant sur un bouton, de plus je voudrais aussi pouvoir rentrer une valeur manuellement dans le deuxième textbox.
Ensuite je recupère la valeur du deuxième textbox dans une cellule.
Je voudrais que les deux textbox soit au format :
00117 : pour la valeur 1
01017 : pour la valeur 10
02517 : pour la valeur 25
par exemple
Merci pour votre patience et vos réponse
0
Mtiuc Messages postés 5 Date d'inscription vendredi 15 janvier 2016 Statut Membre Dernière intervention 16 janvier 2016
16 janv. 2016 à 16:13
J'ai du nouveau:
J'ai essayé le code : TextBox1 = Format (TextBox1, "000")
dans un nouveau fichier et ça marche.
Je ne comprend plus rien
0
via55 Messages postés 14408 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 5 mai 2024 2 705 > Mtiuc Messages postés 5 Date d'inscription vendredi 15 janvier 2016 Statut Membre Dernière intervention 16 janvier 2016
16 janv. 2016 à 16:54
Re

C'est normal que ça marche puisque tu définis un format valide "000", ce qui n'était pas le cas dans ton premier exemple avec "000"&"17"
Le problème est l'ajout de ce 17 (qui vient d'où d'ailleurs ?) à la suite de la valeur entré dans le textbox c'est pour cela que je proposais dans ma macro, à la sortie du textbox de multiplier la valeur par 100 et d'ajouter 17 pour que si on rentre 25 dans le textbox, la nouvelle valeur devienne 2517 et qu'avec le format "00000" il s'affiche 02517
0
Mtiuc Messages postés 5 Date d'inscription vendredi 15 janvier 2016 Statut Membre Dernière intervention 16 janvier 2016
16 janv. 2016 à 17:06
Ok j'ai compris le " * 100 + 17 "
En fait je cherche à obtenir un numéro de facture et le 17 correspond à l'année.
J'ai donc ajouter la macro mais rien ne se passe.
Pourquoi utiliser BeforeUpdate ?

Merci beaucoup pour tes réponse
0
via55 Messages postés 14408 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 5 mai 2024 2 705
16 janv. 2016 à 17:12
L'évenement BeforUpdate se produit à la sortie du textbox à la différence de l'évenement Change qui se produit à chaque changement dans le textbox (donc après TAB ou Entrée)
Comme on effectue la multiplication par 100 et qu'on rajoute 17 cela ne peut se faire qu'à la fin lorsque la saisie est complète
Si on le faisait avec l'évenement Change en rentrant 25 cela donnerait 217 à l'entrée du 2 puis 217517 à l'entrée du 5 !
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Mtiuc Messages postés 5 Date d'inscription vendredi 15 janvier 2016 Statut Membre Dernière intervention 16 janvier 2016
16 janv. 2016 à 17:43
D'accord.
Il n'y a rien qui se passe.
Est-ce parce que je récupère une valeur dans une cellule ?
0
via55 Messages postés 14408 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 5 mai 2024 2 705
16 janv. 2016 à 18:35
Re

Peut être, sans connaitre ton fichier et sa macro impossible d'en dire plus
Postes un exemple de ton fichier sur cjoint.com, fais créer un lien, copies le et reviens le coller ici

Cdlmnt
Via
0