cumulé des données dans un tableau récap

[jean-yves-auneau]

Bonjour
j'ai besoin d'un p'tit coup de main car je sèche sur une macro ou fonction pour
récupéré dans un tableau récap, les données, situées dans différents onglets.

voir l'exemple ci-joint
Merci pour votre aide

Jean Yves

 

[Mytå]

Re : cumulé des données dans un tableau récap

Salut le forum

La formule suivante en E5 à recopier vers la droite et vers le bas

=DECALER($B$2;(LIGNES($2:2)-1)*9+COLONNE()-4;0)

Mytå

 

[jean-yves-auneau]

Re : cumulé des données dans un tableau récap

Merci pour ta réponse

Celle-ci fonctionne parfaitement mais mon fichier est configuré avec des onglets un par départemnent) et j'ai du mal à faire évoluer ta formule en y ajoutant les onglets.
si tu pouvais me la complèter à partir de mon fichier joint.

Merci d'avance

Jean Yves

 

[ChTi160]

Re : cumulé des données dans un tableau récap

Salut jean-yves-auneau
Bonjour le fil

En pièce jointe une version Vba

le Fichier : Regarde la pièce jointe tabrecupgeneral.zip


Bonne Journée

 

[gilbert_RGI]

Re : cumulé des données dans un tableau récap

Bonjour

voir le résultat avec une petite macro

 

[ChTi160]

Re : cumulé des données dans un tableau récap

Re
Le fichier adapté à la nouvelle configuration .

Le Fichier : Regarde la pièce jointe Classeur2(1).zip

Bonne Journée

 

[ChTi160]

Re : cumulé des données dans un tableau récap

Re
Le code modifié pour tenir compte du nom des feuilles Département

Sub RecupTabGeneral()
Application.ScreenUpdating = False
Set Ws_source = Worksheets("tableau récap")
x = -1
With Ws_source
[COLOR=Green]'ici on récupère le tableau des entêtes[/COLOR]
  TabEntete = .Range("A2:G4").Value 
End With
 [COLOR=Green]'pour chaque feuille[/COLOR]
For Each Ws In Worksheets
[COLOR=Green]'si son nom contient dept[/COLOR]  
 If InStr(1, Ws.Name, "dept") <> 0 Then
[COLOR=Green]'on vide le tableau temporaire[/COLOR][COLOR=Green] [/COLOR]
    Set Tabtemp = Nothing 
        With Ws 'avec cette feuille
 [COLOR=Green]'on détermine la dernière ligne[/COLOR]
         DerLgn = .Range("A65536").End(xlUp).Row
 [COLOR=Green]'on détermine la dernière colonne[/COLOR]
          DerCol = .Range("IV2").End(xlToLeft).Column
 [COLOR=Green]'on récupère les donnees de la[/COLOR][COLOR=Green] plage ainsi définie dans un tableau[/COLOR]
           Tabtemp = .Range(.Cells(2, 1), .Cells(DerLgn, DerCol)).Value
        End With
 '[COLOR=Green]on incrémente[/COLOR]
        x = x + 1
 [COLOR=Green]'pour chaque ligne du tableau[/COLOR]
    For Lgn = 1 To UBound(Tabtemp, 1)
 [COLOR=Green]'on redimensionne le tableau[/COLOR]
      ReDim Preserve TabRecup(UBound(TabEntete, 2), x)
 '[COLOR=Green]et on y colle les données[/COLOR]
        TabRecup(Lgn - 1, x) = Tabtemp(Lgn, 2)
           
    Next Lgn [COLOR=Green]'autre ligne[/COLOR]
   
   End If

Next
[COLOR=Green]'ici dans la feuille on colle les données ainsi récupérées[/COLOR]
Ws_source.Range("A5").Resize(UBound(TabRecup, 2) + 1, _
        UBound(TabRecup, 1)) = Application.Transpose(TabRecup)
Application.ScreenUpdating = True
End Sub

Bonne journée

 

[ChTi160]

Re : cumulé des données dans un tableau récap

Re
un nouveau fichier qui trie les données au cas où les onglets ne seraient pas triés

Le fichier : Regarde la pièce jointe Classeur2(2).zip

Bonne Journée