TCD de base de données diverses
bonjour ou bonsoir,
Je tiens à vous comment j'apprécie ce forum et le travail d'entre-aide qui s'y fait.
aujourd'hui, quelqu'un pourrait-il m'aider à m'en sortir de ma problématique?
En fait, je dois faire un TCD reprenant mes informations contenu sur plusieurs feuilles (12 feuilles). l'En-tête des tableaux est identique sur chaque feuille. Alors comment faire un récapitulatif rapide de tous ces éléments chacun dans leur table respective que je retrouverai dans la liste des champs dans mon TCD ou si autres solution.
En fait, à partir du tcd, je dois pouvoir créer des segments "date" ou "autres" pour accéder aux éléments choisis à partir du mois ou de la date choisi.
j'essaie de vous envoyer le fichier, malheureusement après plusieurs tentatives , j'échoue (taille fichier trop grosse).
En attente, je vous remercie d'avance!
Lucien
Bonjour,
passe le fichier par http://cjoint.com
sinon, pourquoi mettre les données sur des onglets différents, pourquoi ne pas tout rassembler dans le même ? avec l'indication du mois dans une colonne !
Bonjour,
Je vous remercie de prêter attention à ma demande et de m'avoir indiquer comment faire parvenir le fichier.
Vous le trouverez dans le lien ci-joint.
Soit dit en passant, il contient plus de colonne que celui envoyé.
Bonjour,
Un exemple à étudier dans le fichier joint.
Cdlt.
Option Explicit
Public Sub ConsoldateData()
Dim ws As Worksheet, wsData As Worksheet
Dim lRow As Long
Application.ScreenUpdating = False
Set wsData = ActiveWorkbook.Worksheets("Consolidation")
With wsData.ListObjects(1)
If Not .DataBodyRange Is Nothing Then .DataBodyRange.Delete
End With
lRow = 2
For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> wsData.Name Then
ws.ListObjects(1).DataBodyRange.Copy
wsData.Cells(lRow, 1).PasteSpecial xlPasteValues
lRow = wsData.Cells(Rows.Count, 1).End(xlUp).Row
Application.CutCopyMode = False
End If
Next ws
Set wsData = Nothing
End SubWahou, un petit bijou !
Bonsoir,
Je remercie tous ceux qui ont voulu m'apporter leur aide.
Malheureusement, mon problème demeure, je ne m'y connais pas trop en VBA.
Alors s'il existe une solution explicite qui pourrais me débloquer je serai ravi
Merci d'avance
L. M
Bonjour,
Je te renvoie le fichier avec la procédure VBA commentée.
J'ai de plus ajouté une sécurité dans l'éventualité d'un tableau sans données.
A te relire.
Cdlt.
Option Explicit
Public Sub ConsoldateData()
'Declaration des variables
Dim ws As Worksheet, wsData As Worksheet
Dim lRow As Long
'Optimisitation procedure
Application.ScreenUpdating = False
'On Initialise la variable (Feuille Consolidation)
Set wsData = ActiveWorkbook.Worksheets("Consolidation")
'On reinitialise (RAZ) le tableau en conservant les formules
'et la mise en forme
With wsData.ListObjects(1)
If Not .DataBodyRange Is Nothing Then .DataBodyRange.Delete
End With
'Ligne de départ pour la copie des données
lRow = 2
'Pour chaque feuille du classeur
For Each ws In ActiveWorkbook.Worksheets
'Si la feuille n'est la feuille Consolidation
If ws.Name <> wsData.Name Then
'Si le tableau de la feuille n'est pas vide
If ws.ListObjects(1).InsertRowRange Is Nothing Then
'On copie le tableau de la feuille sans les en-tetes de colonne
ws.ListObjects(1).DataBodyRange.Copy
'Dans la feuille consolidation
wsData.Cells(lRow, 1).PasteSpecial xlPasteValues
'On definit la prochaine ligne pour la prochaine copie
lRow = wsData.Cells(Rows.Count, 1).End(xlUp).Row + 1
Application.CutCopyMode = False
End If
End If
Next ws
'On reinitialise les variables
Set wsData = Nothing
End SubBonjour,
je voudrais vous remercier une fois de plus pour l'aide.
Cependant, j'ai essayé les propositions formulées, je n'ai pas réussi à les faire fonctionner.
je vous propose mon fichier qui nécessite de l'approfondissement. je crois qu'il des erreurs dans mes formules.
Quelqu'un pourrait-il me venir au secours, SVP?
Dans l'attente, Merci
L.
Bonjour,
C exactement ce que j cherche
En effet, cela répond à mes attentes.
Je tiens à vous remercier pour votre dévouement et votre patience,
Une fois de plus, merci beaucoup!