Consolider plusieurs tableaux similaires sans TCD
Hello tout le monde, bonjour le forum,
J'ai besoin de consolider plusieurs tableaux sur ma feuille principale "Aggregated" mais je ne parviens pas à l'écrire... L'objectif est de coller les données les unes à la suite des autres puis de sommer et supprimer les doublons. Puisque le nom des autres feuilles peut changer à tout moment j'ai pensé à une boucle For Each. Chaque tableau est similaire dans la forme (3 colonnes : Contract, Crude, Brent) et l'objectif serait de sommer les données pour chaque contrat identique et de supprimer les doublons (les tableaux peuvent évoluer, il se peut notamment qu'ils s'allongent à l'arrivée de nouveaux contrats).
Sub Aggregated()
Dim WS as Worksheet
Worksheets("Aggregated").Range("A1") = "Contract"
Worksheets("Aggregated").Range("B1") = "Crude"
Worksheets("Aggregated").Range("C1") = "Brent"
For Each WS In Sheets
If WS.Name <> "Aggregated" Then
...........
With WS.Range("A1:C" & lastrw)
.Value = .Value
.RemoveDuplicates Array(1, 2, 3), xlNo
End With
End If
Next
Bonjour
Pourquoi multi poster sur n forums ?
Pourquoi ouvrir un nouveau fil alors que tu en as déjà ici sur le même sujet ?
https://forum.excel-pratique.com/excel/formater-un-tableau-automatiquement-149833
Bonjour,
Il s'agit de choses différentes même si certains titres peuvent se ressembler