Récapitulatif d'onglet

[samuelsultan]

Bonjour à tous,

Besoin de votre aide pour améliorer un fichier.
Je m'explique :
J'ai un fichier avec une centaine d'onglet.
Je voudrai faire un onglet récapitulatif de certaines informations contenues dans les mêmes cellules de chaque onglet.

Pour que ce soit plus concret, je joins un fichier.
Je voudrai que dans l'onglet récapitulatif, j'ai un tableau reprenant les noms des onglets, et en dessous le nombre d'heures globales pour chaque personne

 

[RENAUDER]

Re : Récapitulatif d'onglet

Bonjour,

Voilà une piste.

 

[kjin]

Re : Récapitulatif d'onglet

Bonjour,

For Each ws In Sheets
    Select Case ws.Name
    Case "Récapitulatif" 'mettre ici les feuilles à zapper séparées par une virgule
    Case Else
        With Sheets("Récapitulatif")
            i = i + 1
            .Cells(i, 1) = ws.Name
            'formule1
            .Cells(i, 2).Formula = "='" & ws.Name & "'!D12"
            'formule2
            .Cells(i, 3).Formula = "=INDIRECT(""'""&" & .Cells(i, 1).Address & "&""'!D12"")"
            'valeur
            .Cells(i, 4) = ws.Range("D12")
        End With
    End Select
Next

A+
kjin

 

[BOISGONTIER]

Re : Récapitulatif d'onglet

Bonjour,

Voir pj

JB

 

[samuelsultan]

Re : Récapitulatif d'onglet

Désolé mais je ne comprends rien à VB.
Peux-tu être plus précis sur la mise en place?
Merci