transfert données dans tableau unique

[lywood]

Salut,

Je bidouille sous excel et suis face à un problème:
Dans mon classeur j'ai des feuilles nominatives qui font état d'un nombre d'heures de présence sous 3 critères en fonction d'un numéro de semaine.

Je souhaiterais récupérer les données des différentes feuilles nominatives sous un tableau unique dans une nouvelle feuille.

ci joint le fichier de base (où le transfert est fait manuellement!!! )

Merci
lywood

 

[ROGER2327]

Re : transfert données dans tableau unique

Bonjour lywood

Un essai dans le classeur joint. (Formule matricielle unique pour les lignes réunion1 à réunion3, formule matricielle spécifique pour la ligne réunion4)

La cohérence des tableaux est à revoir : difficile de compléter la colonne BB de la feuille récapitulatif car elle n'a pas d'homologue dans les autres feuilles...​

ROGER2327
#4230

Mardi 24 Absolu 138 (Saints Rakirs et Rastrons, porte-côtelettes, SQ)
10 Vendémiaire An CCXIX
2010-W39-5T14:25:42Z

 

[job75]

Re : transfert données dans tableau unique

Bonjour lywood, salut Roger,

Avec cette macro dans le code de la feuille récapitulatif (clic droit sur l'onglet et Visualiser le code) :

Private Sub CommandButton1_Click()
Dim cel As Range, w As Worksheet, Target As Range
Application.ScreenUpdating = False
Set cel = ActiveCell
Workbooks.Add
With ActiveWorkbook.Sheets(1)
  For Each w In ThisWorkbook.Worksheets
    If w.Name <> Me.Name Then
      Set Target = Me.Columns(1).Find(w.Name, LookIn:=xlValues, LookAt:=xlWhole)
      If Not Target Is Nothing Then
        w.Range("A:F").Copy .[A1]
        .[F3:F54].Copy
        .[E3].PasteSpecial xlPasteValues, Operation:=xlAdd
        .[B3:E54].Copy
        Target.Offset(, 2).PasteSpecial xlPasteValues, Transpose:=True
      End If
    End If
  Next
End With
Application.CutCopyMode = False
ActiveWorkbook.Close False
cel.Select
End Sub

Clic sur le bouton Transfert pour la lancer.

Edit : il fallait copier chaque feuille jusqu'à la ligne 54 (il peut y avoir une semaine de plus à cet endroit).

A+

 

[lywood]

Re : transfert données dans tableau unique

Merci à vous deux,
Je regarde tout ça

Désolé pour le délai de réponse

Lywood