En VBA gain de la saisie

Résolu
Cluses74 Messages postés 240 Date d'inscription   Statut Membre Dernière intervention   -  
Cluses74 Messages postés 240 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
Voilà mon code:
Private Sub TextBox8_AfterUpdate()   
    [S4] = Val(TextBox8)
    [S4:T4].NumberFormat = "#,##0.00 $"
    Range("T4").FormulaR1C1 = "=IFERROR(RC[-2]*RC[-1],"""")"
End Sub

Dans mon tableur la valeur de la TextBox8 est déjà renseignée dans la cellule L5. Donc S4=L5.
Comment modifier ce code pour éviter la saisie en manuel de la valeur de S4.
Merci de votre réponse.
Je suis sur EXCEL 2010



Configuration: Windows / Internet Explorer 11.0
A voir également:

2 réponses

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,
Dans votre code:
[S4] = Val(TextBox8) 

Normalement ca doit le faire......
0
Cluses74 Messages postés 240 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,
Excusez le retard pour répondre mais après essais de [L5] =Val(TextBox8 je m'aperçois que cela ne fonctionne pas. Pourtant c'est pour cela que je pose cette question car c'est la solution que j'avais déjà essayer.
Merci
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,
Y a pas d'lezard

Qu'est- ce qui ne fontionne pas???
Probleme de separateur de decimal ou ????
0
Cluses74 Messages postés 240 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,
L'affichage dans la Textbox ne se fait pas au choix de Ø.
Ce chiffre monétaire peut comporter jusqu'à 4 chiffres après la virgule j'ai modifié le nombre de # et de zéro mais toujours pas d'affichage.
Merci
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,

Pas claire vos explications!!!
Mettez votre fichier a dispo https://mon-partage.fr/
0
Cluses74 Messages postés 240 Date d'inscription   Statut Membre Dernière intervention  
 
Re,
Je vous fais parvenir le lien afin de voir le prix de la matière s'afficher dans les textbox 3 et 8 en automatique à partir du tableau réception sur chaque diamètre.
https://mon-partage.fr/f/qJfuDo8s/
D'avance merci
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

Avais un peu de temps, ai modifie le fichier pour les deux Userforms.
https://mon-partage.fr/f/zl6gUO70/

Commande_Reception: a vous de voir si test(s) supplementaire(s) a ajouter
Stockage_Matiere: avais oublie le format prix, idem pour test(s) sup, voir dans le code Commande_Reception
0
Cluses74 Messages postés 240 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,
J'ai effectué des essais mais dans la version 2 lorsque je sélectionne dans l'userforme Commande_réception le Ø il ne m'amène pas la feuille correspondante à celui ci.
Je continue mes essais, modifie mes formules et vous informe si tout va bien.
Merci
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

Oups!! A l'insu de mon plein grès, en enlevant les parties de code devenues inutiles, j'ai vire ceci:

Private Sub ComboBox1_Change()
 Sheets(ComboBox1.Text).Select
End Sub


A remettre….
0
Cluses74 Messages postés 240 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,
J'avais déjà modifié ce code car je ne suis pas encore très doué dans ce genre de programme mais je m'étais aperçu de ce petit manque. Et oui je progresse pas vite mais j'avance quand même. J'en veux à mon ancien employeur pour ne m'avoir pas fait suivre une formation. Pour lui ce n'était pas dans ma fonction de faire du développement.
Je modifie mes formules et fais les essais en réel et vous informe sur la suite des opérations
Encore merci
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

je progresse pas vite mais j'avance quand même.
Peu importe la "vitesse", l'essentiel est la progression
0
Cluses74 Messages postés 240 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,
Je suis désolé de vous importuner une fois de plus mais lorsque je saisi le prix aussi bien en réception qu'en commande il ne tient pas compte de la virgule j'ai essayé pendant un moment de changer le format mais rien n'y fait jamais la virgule ne se trouve au bon endroit.
Avec le format qui devrait être le bon "### ##0.0000" en tapant 1.5258 j'ai comme résultat 15258.0000 je ne comprends pas.
0