Re : Feuille de temps et analyse de production
Bonjour Alex,
Hé ben, c'est pas facile le VBA, j'ai chopé un bon mal de crane mais je persévère.
Déjà double merci car précédement j'avais bien vu tes gadgets comme tu dis mais je n'avais pas encore vu qu'il y en avais aussi dans la présentation de l'usf1, ils étaient à droite et je ne les voyais pas sur mon écran.
Je les ai donc bougés pour pouvoir les savourer pleinement.
Pour ce qui est de tes dernières modifs je pense les avoir trouver dans usf3:
End With
UserForm1.TextBox11.Value = FormatDateTime(Now(), vbShortTime)
UserForm1.ComboBox2.AddItem TextBox14.Text
UserForm1.ComboBox4.AddItem TextBox5.Text
UserForm1.ComboBox1.AddItem TextBox6.Text
L1 = .Range("C65536").End(xlUp).Row + 1 'Dans quelle ligne je vais écrire
J'ai fait une modif au niveau de l'usf3 à :
.Range("I" & Nl).Value = TextBox28.Value 'PORTABLE
.Range("Q" & Nl).Value = ComboBox1.Value 'AGA/GCA
Il y avait 2 fois le I
En ce qui concerne mes formules, j'ai réusi à "coder" le solde de mes heures (heures prévues à la mission - heures effectuées) : pas trop dur à faire
J'ai un problème avec le prix de revient.
J'ai ma formule qui marche si je la mets dans les cellules de la colone k dans le tableau ANALYSE DE PRODUCTION (exemple elle est dans la cellule K7)
Mais quand j'essaie de la "coder" dans l'usf1, rien ne va plus.
'With Sheets("ANALYSE DE PRODUCTION")
' Nl = .Range("A65536").End(xlUp).Row + 1 'ligne ou j'écris
' .Range("k" & Nl).FormulaR1C1 = _
' "=IF(OR(RC[3]<>0,RC[5]<>0,RC[7]<>0,RC[9]<>0,RC[11]<>0),RC[3]*BDD!R3C11+RC[5]*BDD!R4C11+RC[7]*BDD!R5C11+RC[9]*BDD!R6C11+RC[11]*BDD!R7C11,"""")" 'prix de revient
'End With
J'ai fait des tonnes d'essais, macro, pas macro, RC quelquechose ou RquelchoseCquelquechose....
A tel point que je me suis retrouvée avec un fichier qui faisait 2.7MO sans même comprendre pourquoi.
Heureusement je "bidouille" sur des copies et suis donc repartie de la version "allégée" et on recommence les essais.
Il y a surement une truc que je n'ai pas compris mais je n'arrive pas à trouver quoi, ni où.
Aurais tu la gentillesse de m'aider à trouver ?
Ci dessous le lien de ma dernière version
http://cjoint.com/?mmm2SeWxE7
Bonne journée
Véro