Re : Compiler plusieur feuille en un récapitulatif pour TCD
Bonjour Chris,
Effectivement je n'avais pas vu cette parti du message c'est la folie c'est temps-ci j'ai completement zapper.
Ce qui fait que j'ai tous recommencer avec les Tableau comme tu as dis j'ai pu m'initier aux VBA xD
J'ai crée des boutons pour actualisation des TCD et du récapitulatif que j'ai créer gràce a une Macro
J'ai pourtant un problème:
je souhaite que mon Recap Mensuel fonctionne comme les tableaux avec filtres cependant quand je le cree
aux récapitulatif les données ne s'enregistre pas a l'interieur mais après que faire ?
Voici Mon code VBA pour le recap:
Sub RécapitulatifMensuel()
With Sheets("RécapitulatifMensuel")
.Range("A3:Q65536").ClearContents
For Each sh In Sheets
If sh.Name <> "2012 Predalles" And sh.Name <> "Tableaux Comparatif" And sh.Name <> "Vierge" Then
Select Case sh.Name
Case "RécapitulatifMensuel", "Tarif_Transport"
Case Else
For lg = 3 To sh.Range("A65536").End(xlUp).Row
LgS = .UsedRange.Rows.Count + 1
.Cells(LgS, 1) = sh.Cells(lg, 2)
.Cells(LgS, 3) = sh.Cells(lg, 3)
.Cells(LgS, 4) = sh.Cells(lg, 4)
.Cells(LgS, 5) = sh.Cells(lg, 5)
.Cells(LgS, 6) = sh.Cells(lg, 6)
.Cells(LgS, 7) = sh.Cells(lg, 7)
.Cells(LgS, 8) = sh.Cells(lg, 8)
.Cells(LgS, 9) = sh.Cells(lg, 9)
.Cells(LgS, 10) = sh.Cells(lg, 10)
.Cells(LgS, 11) = sh.Cells(lg, 11)
.Cells(LgS, 12) = sh.Cells(lg, 12)
.Cells(LgS, 13) = sh.Cells(lg, 13)
.Cells(LgS, 16) = sh.Cells(lg, 16)
.Cells(LgS, 17) = sh.Cells(lg, 17)
.Cells(LgS, 2) = sh.Cells(lg, 1)
Next
End Select
End If
Next
End With
End Sub