En VBA gain de la saisie

Résolu

Cluses74 Messages postés 243 Statut Membre -
Cluses74 Messages postés 243 Statut Membre - 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

Afficher la suite

2 réponses

Résumé de la discussion

Un utilisateur cherche à automatiser l'affectation de S4 à partir de TextBox8 dans une UserForm Excel afin d'éviter toute saisie manuelle, S4 devant refléter la valeur de TextBox8 déjà présente en L5.

Plusieurs réponses évoquent des paramètres de séparateur décimal et des formats monétaires, ainsi que des ajustements potentiels du code VBA tels que Val(TextBox8), le formatage de T4 et la gestion des erreurs dans les formules.

En cas de divergences sur l'affichage des décimales, des échanges portent sur le séparateur décimal point ou virgule et sur l'influence des paramètres régionaux Windows; plusieurs intervenants testent des solutions pratiques sans consensus clair.

Réponse 1 / 2
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717
Bonjour,
Dans votre code:
```
[S4] = Val(TextBox8) 
```
Normalement ca doit le faire......
0
1. Cluses74 Messages postés 243 Statut Membre
  
  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
2. f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717
  
  Bonjour,
  Y a pas d'lezard
  
  Qu'est- ce qui ne fontionne pas???
  Probleme de separateur de decimal ou ????
  
  0
3. Cluses74 Messages postés 243 Statut Membre
  
  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
4. f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717
  
  Re,
  
  Pas claire vos explications!!!
  Mettez votre fichier a dispo https://mon-partage.fr/
  
  0
5. Cluses74 Messages postés 243 Statut Membre
  
  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 17417 Date d'inscription Statut Membre Dernière intervention 1 717

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
1. Cluses74 Messages postés 243 Statut Membre
  
  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
2. f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717
  
  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
3. Cluses74 Messages postés 243 Statut Membre
  
  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
4. f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717
  
  Bonjour,
  
  je progresse pas vite mais j'avance quand même.
  Peu importe la "vitesse", l'essentiel est la progression
  
  0
5. Cluses74 Messages postés 243 Statut Membre
  
  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

En VBA gain de la saisie

2 réponses

Discussions similaires

Newsletters