Tableau recapitulatif excel Résolu/Fermé

Question

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

PomC · Answer

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 !!!!!

Le Pingou · Answer

Bonjour,
Est-ce se que vous cherchez : https://www.cjoint.com/?bpw0jyYfKN

PomC · Answer

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

Le Pingou · Answer

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é.

Le Pingou · Answer

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.

PomC · Answer

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 !

Le Pingou · Answer

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.

PomC · Answer

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.

Le Pingou · Answer

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é.

Le Pingou · Answer

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.

PomC · Answer

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 !

PomC · Answer

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!

Le Pingou · Answer

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.

Le Pingou · Answer

Bonjour,
J'ai un peu d'avance : https://www.cjoint.com/?btxdaV3OwD
Merci aussi de votre réponse au poste précédent !

Le Pingou · Answer

Bonjour,
Bon Anniversaire.
Je n'avais pas vue votre réponse .......

Le Pingou · Answer

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.