Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Regroupement de quantité et longueur VBA ou Power Query

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion netparty
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
N

netparty

XLDnaute Occasionnel
Bonjour à tous
Pourriez-vous m'aider pour mon fichier dans lequel j'aimerais avoir le rassemblement des données de l'onglet "Données" vers l'onglet "Recap", je ne sais pas ce qui est le mieux VBA ou Power Query pour faire cela.
Je vous explique en deux mots,
Dans l'onglet "Données" j'ai plusieurs tableaux T_DATA_1, T_DATA_2 qui reprennent des quantités et longueurs et j'aimerais regrouper tous cela dans un seul tableaux avec le détails de chaques tableaux et les totaux généraux.
Je joint mon fichier pour avoir un aperçu de ce que je souhaite avoir comme résultat dans l'onglet "Recap"
Merci d'avance pour votre aide.
 

Pièces jointes

Trier par date Trier par votes
Bonjour netparty, le forum,

En remplaçant "Quantité" par "Qte" et "Longueur" par "Long." Columns.Autofit réduit la largeur des colonnes, l'effet n'est pas très bon.

Par ailleurs s'il y a un grand nombre de tableaux la fusion c.Resize(, 2).Merge prend beaucoup trop de temps.

J'ai donc modifié la fin de la macro :
VB: 
'---restitution---
Application.ScreenUpdating = False
Cells.Delete 'RAZ
ub = UBound(resu)
With [C2] '1ère cellule de destination
    .Resize(UBound(resu), UBound(resu, 2)) = resu
    .Cells(3).Resize(ub - 2).Borders.Weight = xlThin 'bordures de la 1ère colonne
    .Cells(1).Resize(ub).Borders(xlEdgeRight).LineStyle = xlDouble 'bordure double à droite
    .Cells(1, 2 * n + 2).Resize(ub).Borders(xlEdgeRight).LineStyle = xlDouble 'colonne de séparation
    .Cells(1, 2).Resize(ub, UBound(resu, 2) - 1).HorizontalAlignment = xlCenter
    For Each c In .EntireRow.SpecialCells(xlCellTypeConstants)
        c.Resize(, 2).HorizontalAlignment = xlCenterAcrossSelection 'plus rapide que la fusion
        c.Resize(ub, 2).Borders.Weight = xlThin
        c.Resize(ub).Borders(xlEdgeRight).LineStyle = xlDot 'bordure en pointillés
        c.Resize(ub, 2).Borders(xlEdgeRight).LineStyle = xlDouble 'bordure double à droite
    Next c
    Union(.Cells(1), .Cells(1, 2 * n + 2)).EntireColumn.AutoFit 'largeurs de la 1ère colonne et de la colonne de séparation
End With
End Sub
Pour tester j'ai recopié le 1er tableau pour obtenir un total de 8189 tableaux structurés, c'est le maximum possible dans la feuille "Recap".

La macro s'exécute chez moi en 5,7 secondes, c'est très acceptable.

A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Merci @job75 pour les modifications

Est-il aussi possible de modifier les bordures comme l'exemple du post #19
Bonne journée
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

F
  • Résolu(e)
XL 2021 VBA et Power Query : ecrire des requetes avec variables
2
Réponses
28
Affichages
2 K
Florent74
F
M
  • Résolu(e)
Microsoft 365 Power Query - Regroupement date début/date de fin
Réponses
9
Affichages
1 K
Maxou69
M
M
  • Question Question
XL 2010 Récupération de données et les transformer avec Power Query ?
Réponses
3
Affichages
647
DJunqueira
D
  • Question Question
Power Query Premiers Pas Power Query, combiner tableaux provenant de différents onglets
Réponses
8
Affichages
1 K
vgendron
  • Question Question
XL 2016 Pilotage via VBA d'une connexion Power Query à Salesforce
Réponses
6
Affichages
1 K
Hasco
M
  • Question Question
XL 2016 Récupérer la planification d'un excel et la croiser avec un planning d'un autre Excel
Réponses
5
Affichages
976
vgendron
T
  • Résolu(e)
Power Query Regroupement de table et addition
2
Réponses
15
Affichages
2 K
tuonoman
T
D
  • Question Question
Microsoft 365 Combiner requetes Power Query ou VBA
Réponses
6
Affichages
2 K
chris
S
  • Question Question
XL 2010 VBA - macro avec 1 boucle qui alterne 1 action à conditions et 1 action sans conditions
2 3 4
Réponses
58
Affichages
8 K
Scorp0211
S
L
  • Question Question
XL 2013 [Analytique] Comment faire ceci avec Power Query... ou VBA ?
Réponses
12
Affichages
2 K
Leguyl
L
D
  • Question Question
VBA et regroupement de données
2
Réponses
26
Affichages
4 K
Dranreb
K
  • Question Question
Regroupement de colonnes automatisé par macro VBA
Réponses
0
Affichages
3 K
kokosei
K
M
[REF] Wiki 4 de MichelXld (Fonctions, Evenements, Dates et calendriers, Flash , Ooo)
Réponses
0
Affichages
35 K
MichelXld
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…