Feuille de temps et analyse de production

lilou09200

XLDnaute Occasionnel
Bonsoir,

Je voudrais savoir s'il y a moyen de créer un fichier de saisie de temps pour une société prestataire de services.

Il faudrait que l'on puisse:
- créer deux ou trois utilisateurs,
- avoir des tâches différentes avec un coût horaire différent,
- avoir une liste avec l'ensemble des clients,
- avoir lapossibilité de comparer le coût de revient pour un client avec le montant facturé,...

Cdlt
 

nanajunior

XLDnaute Nouveau
Re : Feuille de temps et analyse de production

Bonsoir Alex,

Me revoilà.
J'avais fait un petit break car cette formule commencait à m'agacer sensiblement:cool:

J'ai repris ce soir et j'ai compris pourquoi ça ne marchait pas.
En faisant des essais en bloquant test cc, je me suis aperçue que ça fonctionnait avec :
Code:
.Range("o" & Nl).ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R5C14:RC[-1])"
.Range("q" & Nl).FormulaR1C1 = "=SUBTOTAL(9,R5C16:RC[-1])"
.Range("s" & Nl).FormulaR1C1 = "=SUBTOTAL(9,R5C18:RC[-1])"
.Range("u" & Nl).FormulaR1C1 = "=SUBTOTAL(9,R5C20:RC[-1])"
.Range("w" & Nl).FormulaR1C1 = "=SUBTOTAL(9,R5C22:RC[-1])"


cumuls avec filtres: ok

Si test cc non bloqué, cumuls avec filtres: pas ok

Je suppose donc que cette formule ne supporte pas le copier/coller et qu'elle a besoin "d'elle même" (je ne sais pas trop comment l'exprimer) et non d'une valeur pour fonctionner.

Je suis donc aller remplacer dans module3, sub test cc :
Code:
Application.ScreenUpdating = False
With Sheets("ANALYSE DE PRODUCTION")
    Columns[COLOR="Red"]("K:W").[/COLOR]Select
Par
Code:
Application.ScreenUpdating = False
With Sheets("ANALYSE DE PRODUCTION")
    Columns[COLOR="red"]("K:M").[/COLOR]Select

et j'ai réactivé test cc

Au début,lors d'enregistrements, j'ai eu un message d'erreur parlant de problème de taille non identiques et me renvoyant à
Code:
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

puis plus rien, donc j'imagine et j'espere fortement que tout va bien.

Le seul hic dans tout ça, c'est lorsque je filtre, il me laisse systematiquement la dernière ligne saisie.
Si, sur cette dernière ligne, j'écrase la formule (qui forcement apparait maintenant) dans la cellule en y tapant directement le chiffre, là, le filtre ne tiend plus compte de cette dernière ligne.

Mais bon, je crois que je vais m'y faire et lorsque j'aurais besoin de faire des impressions pour un client X, j'irais saisir le chiffre sur la dernière ligne enregistrée du tableau et hop, on en parlerera plus.;)

La formule du prix de revient fonctionne impec.
Je me suis même rajouté (toute seule comme une grande:p) un code pour la bloquer lorsque je saisie une facture.

Voilà, grâce à toi, je suis quasi au bout de mon projet.

J'aurais toutefois une dernière requête à te demander.
J'aurais voulu quand on est au niveau 2 et qu'on clic sur l'image en haut à gauche des tableaux (subimage1) que l'on puisse revenir à la page de saisie du niveau 2 et non du niveau 1.

J'ai crée dans le module2 un "subimage2" en copiant collant le "subimage1". Mais je ne trouve pas ce que je peux modifier pour que ça fonctionne. les 2 pages de saisies venant du même usf.

Code:
Sub Image1_QuandClic()
Application.ScreenUpdating = False
Worksheets("TEMPS").Visible = xlSheetVisible
Worksheets("FACTURATION").Visible = xlSheetVisible
Worksheets("ANALYSE DE PRODUCTION").Visible = xlSheetVisible
Worksheets("BDD").Visible = xlSheetVisible
Application.ScreenUpdating = True

UserForm1.Show
End Sub

Sub Image2_QuandClic()
Application.ScreenUpdating = False
Worksheets("TEMPS").Visible = xlSheetVisible
Worksheets("FACTURATION").Visible = xlSheetVisible
Worksheets("ANALYSE DE PRODUCTION").Visible = xlSheetVisible
Worksheets("BDD").Visible = xlSheetVisible
Application.ScreenUpdating = True

UserForm1.Show
End Sub

Peut être que ce n'est pas possible sans créer 2 usf différents et dans ce cas, on oublie mon idée.

Je te remercie encore beaucoup pour ton aide.
Bonne soirée, heu plutôt bonne nuit.
http://cjoint.com/?mqbwUyBGPP

J'ai vidé mon tableau client, ainsi ceux qui voudront récupérer le fichier pour s'aider n'auront pas à le faire.
Mot de passe : vero
 

alex67800

XLDnaute Impliqué
Re : Feuille de temps et analyse de production

Bonsoir Véro,

C'est très bien tu as trouvée toute seule, cela m'enlève un mal de crâne!!:D

Pour ta question c'est très simple en fait, tu double clic sur le bouton Visualiser Niveau2 puis tu bloques "masquer", et remplace Unload Me, par Userform1.hide

Hide masque le formulaire sans le décharger, contrairement à unload Me.

Et le tour est joué, pas besoin d'image supplémentaire.;)

Attention quand tu auras fini tes saisies niveau2, pense à repasser en niveau 1 sinon ils auront accès comme toi à ton niveau2 avec l'image!!:rolleyes:, ou passe par le bouton quitter l'application qui lui décharge le formulaire avant de fermer le fichier.:p

Tu n'as pas encore procédée aux modifs que je t'ai refilé, pas bien:eek:
Je te le remet en copie, avec quelques modifs supplémentaires.

Bonne nuit!

A te lire.
 

Pièces jointes

  • GESTION DES TEMPS modif.xls
    21.5 KB · Affichages: 200
  • GESTION DES TEMPS modif.xls
    21.5 KB · Affichages: 196
  • GESTION DES TEMPS modif.xls
    21.5 KB · Affichages: 199
Dernière édition:

nanajunior

XLDnaute Nouveau
Re : Feuille de temps et analyse de production

Bonsoir Alex,

Pour ta question c'est très simple en fait, tu double clic sur le bouton Visualiser Niveau2 puis tu bloques "masquer", et remplace Unload Me, par Userform1.hide

Hide masque le formulaire sans le décharger, contrairement à unload Me.
C'est nickel, ça marche impec.

En fait, pour tes modifs, j'avais fait celle du milieu "concatener".
Pour celle de droite "controle des valeurs numériques", je l'avais faite puis enlevée car je ne pouvais plus saisir avec le "poin" du pavé numérique, obligation de passer par la touche "virgule" (les comptables ont la facheuse tendance d'être mariés avec le pavé numérique:D) et ma fameuse formule de cumul ne fonctionnait plus. On aurait dit qu'elle reconnaissait pas le chiffre retranscrit en tant que chiffre.

Je n'ai pas voulu t'embêter avec ça, tu as déjà fait beaucoup pour moi sur ce projet.

Pour celle de gauche, "bonjour", en faisant la modif, ça m'a donné l'idée d'y inscrire "Nathalie" quelque soit le collaborateur car c'est cette personne qui va saisir les feuilles de temps de tous les collaborateurs.
Je ne m'en suis occupée qu'aujourd"hui.

Merci

Véro
 

alex67800

XLDnaute Impliqué
Re : Feuille de temps et analyse de production

Bonsoir Véro,
Ok pour le format nomber, j'avais vaguement lu quelque chose dans ce genre, mais pensé que cela passerait avec nos version excel.

Pour le textbox , il s'agit d'un gadget que tu peu adapter à ta guise, je le met just en Enabled, afon que l'in ne puisse pas modifier le texte affiché.

Heureux d'avoir pu te rendre service, et t'apporter mes maigres connaissances, afin de parfaire les tiennes. En tous cas cela a été un plaisir, d'autant que tu t'es également impliqué à trouver tes propres solutions aux problèmes rencontrés.

Bonne continuation.
 

nanajunior

XLDnaute Nouveau
Re : Feuille de temps et analyse de production

Re,

Je vais aller le mettre en Enabled de ce pas.
Je suis contente du visage final de ce projet.
J'essaie toujours de comprendre ce que je fait, c'est pourquoi j'essaie de ne pas me contenter de "recopier" les choses.
Je déposerai demain la version finale pour ceux qui pourrait en avoir besoin.
Vu l'aide dont j'ai bénéficié sur ce forum, c'est le moins que je puisse faire.

Bonne continuation à toi aussi.
;)
Véro
 

alex67800

XLDnaute Impliqué
Re : Feuille de temps et analyse de production

Boinsoir tout le monde,

je post ici le fichier, afin de permettre au forumeurs de s'en inspirer.
Il est vrai que les liens ne dure qu'un temps.

Quelle meilleure récompense que d'en faire profiter les autres.
 

Pièces jointes

  • GESTION DES TEMPS V4.zip
    141.3 KB · Affichages: 302

Discussions similaires