Tableau recapitulatif excel

Résolu/Fermé
PomC - 12 janv. 2010 à 11:19
 PomC - 20 janv. 2010 à 19:36
Bonjour,

je voudrais s'il vous plait faire un recap! je m'explique:

j'ai un classeur avec plusieurs feuilles (qui represente une anné :Feuil1 =2009 feuil2=2010...)
Dans chaque feuille j'ai une liste (toujours la meme) des agents qui travaillent !
Je recense par an le nombre de congés qu'ils prennent. Avec une macro je creais une nouvelle page qui s'incremente (New Feuil n = nom dernière Feuil + 1)
Je souhaite maintenant faire une feuille qui recapitule ma liste des agents avec les congés qu'ils ont pris depuis le debut (2009+2010+20....+20nn)

si l'agent existe, et à chaque nouvelle feuille, son compteur de congés (du récapitulatif) doit s'incrémenter !
voila j'espère être assez clair !
(je travaille sur Excel 97 et bientôt sur Calc vive la crise !) Merci d'avance

http://www.cijoint.fr/cjlink.php?file=cj201001/cijXm3sgtR.xls

16 réponses

Le Pingou
Messages postés
11062
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
28 juin 2022
1 290
15 janv. 2010 à 22:22
Bonjour,
Est-ce se que vous cherchez : https://www.cjoint.com/?bpw0jyYfKN
1
je vois en gros le principe algo mais je ne sais pas par quel bout l'attraper en vba excel 97 (c'est vieux pour moi le vba ^^) voila ce que je pense vouloir dire :

Pour chaque cellule 'rtt' (cellule D)
| Pour chaque feuille
| | (n est le num du la cellule : première cellule D2)
| | Dn <-- concaténer [Dn + RechercheV(An;'feuil x'!$A$2:$D$15000;3)]
| | x<--x+1
| FinPour
| n<--n+1
FinPour

j'ai besoin de votre aide merci !!!!!
0
PomC
Messages postés
6
Date d'inscription
vendredi 15 janvier 2010
Statut
Membre
Dernière intervention
5 février 2010

18 janv. 2010 à 11:05
voici le bout de code qui me tarabuste ^^ car visiblement rien ne s'inscrit dans les cases ?!

Sub LancementRecap()
Dim n As Integer
Dim cell As Range
Dim cell1 As String
Dim cell2 As String
Dim plage As Range
Dim nbsheet As Integer
Dim nom As String
Dim Feuille As Worksheet


n = 2

cell1 = "C2"
cell2 = "A2"


nbsheet = Sheets.Count 'compte le nombre de feuille
For i = 4 To nbsheet
'Pour chaque cellule 'rtt' (cellule D)
nom = Sheets(i).Name
Set plage = Worksheets(nom).Range("C2:C15000")
cell1 = "C2"
cell2 = "A2"

'For Each cell In plage.Cells
' Pour chaque feuille

'(n est le num du la cellule : première cellule D2)
' Dn <-- concaténer [Dn + RechercheV(An;'feuil x'!$A$2:$D$15000;3)]
Dim a As Integer
Dim b As Integer

a = Worksheets(nom).Range(cell1).Value
' b = Range(cell2).Value
While a <> 0
a = Worksheets(nom).Range(cell1).Value
b = Range(cell2).Value

cell1 = "'Recapitulatif'!D" & n
cell2 = "A" & n
cell1 = "=concatener(" & cell1 & "+RechercheV(" & cell2 & ";'" & nom & "'!$A$2:$D$15000;3))"""
n = n + 1
cell1 = "C" & n
cell2 = "A" & n
Wend

Next




End Sub
0
Le Pingou
Messages postés
11062
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
28 juin 2022
1 290
18 janv. 2010 à 11:17
Bonjour,
Concernant :
presque je cherche qu'a chaque page nouvellement créée avec le bouton de la page d'accueil le" cumul " s'incremente seul avec les nouvelles valeur ! je prends tout ce qui est macro & Co. J'ai un bts d'informatique (récent j'ai pas codé avec des cartes perforées ^^) voilou ! merci de vous intéressé à mon petit soucis !
C’est trop vague pour vous donnez une proposition, désolé.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Le Pingou
Messages postés
11062
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
28 juin 2022
1 290
18 janv. 2010 à 12:13
Bonjour,
Je vais regarder votre code.
Est-il possible d'avoir une réponse à ma proposition du poste 2 concernant la feuille [Recapitulatif] ?
Note: votre code pour l'ajout d'une nouvelle année ne fonctionne pas correctement, il génère une erreur 1004.
0
PomC
Messages postés
6
Date d'inscription
vendredi 15 janvier 2010
Statut
Membre
Dernière intervention
5 février 2010

18 janv. 2010 à 16:14
http://www.cijoint.fr/cjlink.php?file=cj201001/cijPWhDnLa.xls

voila le fichier avec tout qui marche !! et sur le feuillet recap je vous ai mis plus précisément ce que j'aimerais obtenir ! voila en espérant que cela vous aide à mieux me comprendre !

merci !
0
Le Pingou
Messages postés
11062
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
28 juin 2022
1 290
18 janv. 2010 à 16:30
Bonjour,
Votre code pour la récapitulation ne donne aucun résultat.
Selon vos explications et se que j'ai compris se code n'est pas nécessaire il peut-être remplacé par les fonctions RECHERCHEV et INDIRECT.
J'attends les réponses aux postes 2 et 10 pour vous faire une proposition adéquate.
0
PomC
Messages postés
6
Date d'inscription
vendredi 15 janvier 2010
Statut
Membre
Dernière intervention
5 février 2010

18 janv. 2010 à 16:41
désolé j'ai oublié que mon post répondant à la réponse 2 à été supprimée par un modo (je ne sais pas pourquoi ?) donc je disais que la réponse 2 était proche du but mais je souhaite n'avoir qu'une colonne cumul des congés et j'ai pensé à modifier ce qui était dans la cellule de chacun des agents!
du style 1 A aze |A1 + RechercheV(A1;'2008'!$A$2:$D$15000;3)] + [A1 + RechercheV(A1;'feuil x'!$A$2:$D$15000;3)] | pôle formation.

pour la reponse 10 chez moi auxune erreur de generation de nouvelle feuille!

L'erreur 1004 est une erreur très standard qui stipule un débordement de l'indice de l'objet.

effectivement je cherche une solution pour des gens qui ne sont pas informaticiens et qui marche en toutes circonstances c'est pourquoi je passe par une macro mais si vous avez une solution permanente avec fonction.
0
Le Pingou
Messages postés
11062
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
28 juin 2022
1 290
18 janv. 2010 à 22:49
Bonjour,
J’ai oublié, pour ceci :
pour la reponse 10 chez moi auxune erreur de generation de nouvelle feuille! 

L'erreur 1004 est une erreur très standard qui stipule un débordement de l'indice de l'objet.


Eh bien là, c’est normal car la procédure n’est pas la même que celle contenue dans votre premier fichier.
Elle était générée par la positon de la nouvelle feuille qui se trouvait en première position.
0
PomC
Messages postés
6
Date d'inscription
vendredi 15 janvier 2010
Statut
Membre
Dernière intervention
5 février 2010

19 janv. 2010 à 14:06
Merci beaucoup vous me sauvez la vie ! j'etudie un peu le code pour l'integrer au projet final !
Merci milles fois ! je vais étudier cette fonction que je ne connaissais pas !! merci encore !
0
PomC
Messages postés
6
Date d'inscription
vendredi 15 janvier 2010
Statut
Membre
Dernière intervention
5 février 2010

19 janv. 2010 à 16:14
j'ai un peu des soucis à tout comprendre vous pourriez m'expliquer le principe s'il vous plait !

voici mon projet final :

http://www.cijoint.fr/cjlink.php?file=cj201001/cijrC7c6Xu.xls

j'ai un peu des soucis quand j'ajoute de nouveaux agents !^^ Merci encore!
0
Le Pingou
Messages postés
11062
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
28 juin 2022
1 290
19 janv. 2010 à 16:36
Bonjour,
Je vais regarder votre projet, réponse pour demain!
Une question : la source des noms est bien la feuille [Noms] ... ?
Le critère de recherche que vous utilisez est le [nom] ou le [num] ....?
Merci de la réponse.
0
Merci beaucoup! (demain je suis en cours je risque de ne pas pouvoir me connecter mais j'essayerais !)
la source des noms est bien la feuille [Noms] : OUI
Le critère de recherche que vous utilisez est le [nom] ou le [num] ....? de preference le num il est unique !

A demain (si je peux vous contacter c'est mon anniversaire donc je risque d'etre prise !)

Merci pour tou encore !
0
Le Pingou
Messages postés
11062
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
28 juin 2022
1 290
19 janv. 2010 à 23:03
Bonjour,
J'ai un peu d'avance : https://www.cjoint.com/?btxdaV3OwD
Merci aussi de votre réponse au poste précédent !
0
Le Pingou
Messages postés
11062
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
28 juin 2022
1 290
19 janv. 2010 à 23:16
Bonjour,
Bon Anniversaire.
Je n'avais pas vue votre réponse .......
0
Le Pingou
Messages postés
11062
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
28 juin 2022
1 290
20 janv. 2010 à 17:47
Bonjour,
A l’occasion de cette journée particulière pour vous, voici ma participation :
http://www.cijoint.fr/cjlink.php?file=cj201001/cijVNcwgTH.xls
Bonne reprise.
0
merci beaucoup je vais etudier ça !!!! merci encore ! (je pars souffler mes bougies !!!)
0
Le Pingou
Messages postés
11062
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
28 juin 2022
1 290
18 janv. 2010 à 21:21
Bonjour,
Une solution avec un minimum de procédure : https://www.cjoint.com/?bsvtxasIeE
Note : les colonnes annuelles permettent aussi une vue de l’ensemble si vraiment elles peuvent être masquées.
Et en plus le récapitulatif sera toujours à jour automatiquement dès la notification d'un congé.
-1