Sujet Précédent Sujet Suivant

En VBA gain de la saisie

Résolu/Fermé
Cluses74 Messages postés 241 Date d'inscription dimanche 4 janvier 2015 Statut Membre Dernière intervention 22 août 2023 - Modifié le 23 janv. 2019 à 18:31
Cluses74 Messages postés 241 Date d'inscription dimanche 4 janvier 2015 Statut Membre Dernière intervention 22 août 2023 - 29 janv. 2019 à 00:07
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

2 réponses

Réponse 1 / 2
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
7 janv. 2019 à 07:07
Bonjour,
Dans votre code: 
[S4] = Val(TextBox8)

Normalement ca doit le faire......
0
Cluses74 Messages postés 241 Date d'inscription dimanche 4 janvier 2015 Statut Membre Dernière intervention 22 août 2023
14 janv. 2019 à 08:46
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 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié le 14 janv. 2019 à 11:15
Bonjour,
Y a pas d'lezard

Qu'est- ce qui ne fontionne pas???
Probleme de separateur de decimal ou ????
0
Cluses74 Messages postés 241 Date d'inscription dimanche 4 janvier 2015 Statut Membre Dernière intervention 22 août 2023
14 janv. 2019 à 12:08
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 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
14 janv. 2019 à 15:14
Re,

Pas claire vos explications!!!
Mettez votre fichier a dispo https://mon-partage.fr/
0
Cluses74 Messages postés 241 Date d'inscription dimanche 4 janvier 2015 Statut Membre Dernière intervention 22 août 2023
14 janv. 2019 à 21:56
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
Réponse 2 / 2
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
21 janv. 2019 à 09:00
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 241 Date d'inscription dimanche 4 janvier 2015 Statut Membre Dernière intervention 22 août 2023
22 janv. 2019 à 02:10
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 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
22 janv. 2019 à 06:51
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 241 Date d'inscription dimanche 4 janvier 2015 Statut Membre Dernière intervention 22 août 2023
23 janv. 2019 à 01:07
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 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
23 janv. 2019 à 08:35
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 241 Date d'inscription dimanche 4 janvier 2015 Statut Membre Dernière intervention 22 août 2023
23 janv. 2019 à 18:26
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

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
Je n' arrive pas a activer la saisie vocale
Anna011290 -
Anna011290 -

4 réponses
formule de calcule
daniel4577 -
Gyrus -

1 réponse
saisie vocale sur redmi note 9
neby64 -
Lully -

14 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses