Debutant recherche aide !!

[gwen]

Bonsoir je suis perdu qui peux m'aider voila j'ai un planing pour gerer mes heures par semaine et je cherche a faire un cumul sur autre page mais je n'y arrive pas pouvez vous m'aider les pros ??? le total des heurs ne fonctionne pas !!

 

[gwen]

Re : Debutant recherche aide !!

Merci skoobi pour la rectification du cumul !! par contre j'ai encore autre chose qui me tracasse !!
Tu as choisi la feuille cumul pour allé vers année ca rame dure dure quand on fait mettre a jour ( P41.7 GO)
Dans la page année les cellules 3 a 11 c'est ok par contre il me faudrais aussi la cellule 14 peux etre pourais t'on recuperer la valeur en T13 sur les feuilles de semaines formule a mettre dans la feuille modele mais il faudrais suprimer la somme de T7 a T 12 et garder uniquement la somme de C13 a J13 dans cette feuille car au dessus de 35 hoo je met mes heures soit en heures compteur ou h sup

bref c'est une usine a gaz mon truc !!!

Bon courage et merci d'avance !

 

[fred65200]

Re : Debutant recherche aide !!

bonsoir

bref c'est une usine a gaz mon truc !!!

je te trouve gonflé

fred

 

[gwen]

Re : Debutant recherche aide !!

Hum pourquoi gonflé ?? si je dit que c'est une usine a gaz mon truc c'est que je sais que ce n'est pas simple a réaliser !!! et je remercie toutes les personne qui se penche sur ce probleme !!

 

[skoobi]

Re : Debutant recherche aide !!

Re,
j'ai modifié le post gwen, va voir le nouveau fichier (je pensais pas que tu verrai l'ancien)

 

[gwen]

Re : Debutant recherche aide !!

Merci skoobi ca a l'ai r de beaucoup mieux fonctionner !!! la nouvelle version 6
Par contre il me faudrais aussi la cellule 14 de la feiulle année peux etre pourais t'on recuperer la valeur en T13 sur les feuilles de semaines formule a mettre dans la feuille modele mais il faudrais suprimer sur la feuille modele la somme de T7 a T 12 et garder uniquement la somme de C13 a J13 dans cette feuille

 

[skoobi]

Re : Debutant recherche aide !!

Re,
voilà la V6.1 🙂

 

[gwen]

Re : Debutant recherche aide !!

Merci skoobi on y est presque!!! je n'ai toujours pas la somme de la colonne J dans la feuille cumul je ne sais pas pourquoi ca me marque total jours alors que j'ai tapper 21 dans la colonne J Autre chose aussi a revoir c'est dans la feuille année la ligne 6 temps de trajet ne fonctionne pas !! et pour finir si le total heures travaillées pouvait etre en ligne 14 et 30 se serait le top car en se moment il est en ligne 15 et 31

Ps j'ai supprimer la S40 pour pouvoir poster le fichier je pense que tu te debrouillez avec la feuille modele !!

Merci encore une fois de ton aide !!

 

[gwen]

Re : Debutant recherche aide !!

Zu t Je viens de m'appercevoir que c'est moi qui est fait la boullette !! j'ai supprimer dans la feuille cumul la ligne RTT a prendre ligne qui ne me sert pas et je pense que c'est cela qui a fait le decalage !!!

 

[skoobi]

Re : Debutant recherche aide !!

Re,
il y avait un autre soucis dans les codes "Woorksheet_Change" de chaque feuille que je n'avais pas vu.
Là je pense que c'est bon. 🙂

 

[gwen]

Re : Debutant recherche aide !!

Un grand grand merci a skoobi ca a l'air de marcher je teste !!

 

[gwen]

Re : Debutant recherche aide !!

j'ai tester ca fonctionne super un peux long la mise a jour de la page année mais ca fonctionne un grand merci a skobbi et banzai 64 qui m'ont beaucoup aidé !

 

[skoobi]

Re : Debutant recherche aide !!

Re,
pour diminuer le temps d'execution de la mise a jour de la page année, remplace le code du module 3 par celui-ci:

Sub recap()
Dim plage As Range, semaine As Range, sem As Range
'Application.EnableEvents = False
Application.ScreenUpdating = False
For Each feuille In Sheets
    If feuille.Name Like "s*" Then
        With feuille
            Set plage1 = .Range(.Range("K13"), .Range("S13"))
            Set hrtr = .Range("T13") 'Heures travaillées
        End With
        Set sem = Cells.Find(feuille.Name, LookIn:=xlValues, lookat:=xlWhole)
        If Not sem Is Nothing Then
            Range(sem.Offset(1, 0), sem.Offset(9, 0)) = Application.Transpose(plage1)
            sem.Offset(12, 0) = hrtr.Value
        End If
    End If
Next feuille
Application.ScreenUpdating = True
'Application.EnableEvents = True

End Sub

 

[gwen]

Re : Debutant recherche aide !!

Bonsoir j'etais absent quelques jours je viens de retester tout est ok par contre si je rajoute une ligne dans ma feuille année(ligne 15 ) est ce que je ne vais pas tout chanbouler ??

 

[skoobi]

Re : Debutant recherche aide !!

bonjour gwen,

non, il n'y aura de problème.