Saisie de données avec VBA - mauvais enregistrement

Question

Bonjour à tous et merci de m'accueillir sur le forum qui m'a déjà tellement aidé !

Je m'adresse à vous car je rencontre un problème que je n'arrive pas à résoudre grâce aux discussions déjà postées.

Je joins au post le fichier qui me pose le problème que je vais tenter de vous expliquer. N'hésitez pas à me demander des infos supplémentaires si ce n'est pas assez clair.

Le fichier :

Ce fichier doit servir au suivi de production d'une entreprise. Afin de faciliter la saisie de données par les opérateurs, j'ai créé un formulaire de saisie qui doit enregistrer les informations sur la bonne feuille et dans la bonne ligne (une ligne = une journée).

Si une journée est éloignée de plus d'un jour de la dernière date dans le tableau, les dates intermédiaires sont rajoutées par macro (ceci me permettra de regrouper les infos par semaine dans un TCD).

Le problème :

L'enregistrement des données se passe plutôt bien SAUF dans la colonne F (feuilles "4faces" et "Dimter"). Il semblerait qu'il y ait une formule dedans et je ne la trouve nulle part ! Je n'arrive pas à déterminer d'où cela vient...

Pourriez-vous faire quelque chose pour moi, s'il-vous-plaît

Je vous remercie du temps passé sur ce fichier et espère que vous ne trouverez pas mon code trop ridicule ^^

47suivi-production.xlsm (63.37 Ko)

gmb · Answer

A la fin du code ''Sub modif_4faces'' on trouve une instruction qui écrase les données que la macro vient d'écrire quelques lignes plus haut : Sheets("4faces").Range("D" & ligne).Value = UserForm1.TextBox_pause1.Value Sheets("4faces").Range("E" & ligne).Value = UserForm1.TextBox_chgtserie1.Value Sheets("4faces").Range("F" & ligne).Value = UserForm1.TextBox_MO1.Value Sheets("4faces").Range("G" & ligne).Value = UserForm1.TextBox_matiere1.Value Sheets("4faces").Range("H" & ligne).Value = UserForm1.TextBox_activite1.Value Sheets("4faces").Range("I" & ligne).Value = UserForm1.TextBox_manutention1.Value Sheets("4faces").Range("J" & ligne).Value = UserForm1.TextBox_lamesrepasser1.Value Sheets("4faces").Range("K" & ligne).Value = UserForm1.TextBox_lgincorrecte1.Value Sheets("4faces").Range("L" & ligne).Value = UserForm1.TextBox_empilage1.Value Sheets("4faces").Range("M" & ligne).Value = Sheets("4faces").Range("B" & ligne).Value - (Sheets("4faces").Range("C" & ligne).Value + Sheets("4faces").Range("D" & ligne).Value + Sheets("4faces").Range("E" & ligne).Value + Sheets("4faces").Range("F" & ligne).Value + Sheets("4faces").Range("G" & ligne).Value + Sheets("4faces").Range("H" & ligne).Value + Sheets("4faces").Range("I" & ligne).Value + Sheets("4faces").Range("J" & ligne).Value + Sheets("4faces").Range("K" & ligne).Value) Sheets("4faces").Range("F" & ligne).Value = Sheets("4faces").Range("M" & ligne).Value / Sheets("4faces").Range("B" & ligne).Value End If...