En VBA gain de la saisie

Résolu/Fermé

Cluses74 Messages postés 240 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 240 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

A voir également:

En VBA gain de la saisie
Gain mp3 - Télécharger - Édition & Montage
Saisie gestuelle iphone - Guide
Saisie vocale sms - Guide
Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Google Docs
Gboard saisie vocale - Accueil - Applications & Logiciels

2 réponses

Réponse 1 / 2

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
7 janv. 2019 à 07:07

Bonjour,
Dans votre code:

[S4] = Val(TextBox8)

Normalement ca doit le faire......

Cluses74 Messages postés 240 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

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
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 ????

Cluses74 Messages postés 240 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

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
14 janv. 2019 à 15:14

Re,

Pas claire vos explications!!!
Mettez votre fichier a dispo https://mon-partage.fr/

Cluses74 Messages postés 240 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

Réponse 2 / 2

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
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

Cluses74 Messages postés 240 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

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
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….

Cluses74 Messages postés 240 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

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
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

Cluses74 Messages postés 240 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.

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Je n' arrive pas a activer la saisie vocale

Erreur d'exécution 13 Incompatibilité de type

exo pix

saisie vocale sur redmi note 9