Microsoft 365 Grouper ligne en VBA

bibbip35 · 18 Janvier 2022

Bonjour à tous

Tous d'abord mes meilleurs vœux a tous et au forum

Je viens vers vous car je souhaiterais regrouper des lignes en VBA selon la valeur en colonne A pour une extraction de mon ERP
qui permet de visualiser l'arborcence de mes ordres de fabrication ... L'idée étant que l'utilisateur pour développer / réduire selon son besoin

Dans l'exemple , ci-dessus je souhaiterais regrouper en VBA la 4-5-6

Autre question , , je souhaiterais faire un Tri croissant sur 2 champs en même temps
la colonne C Filtre qui donne arborescences et la colonne K Date_Confirmée

Est-ce que vous auriez une idée pour m'aider ?

Merci encore pour votre aide

Bibbip35

job75 · 18 Janvier 2022

Bonsoir bibbip35, bonne année à vous aussi,

Testez en exécutant ces 3 macros dans le code de la 1ère feuille :

VB:

Sub Grouper()
Dim a As Range
On Error Resume Next
Rows.Hidden = False 'affiche tout
Rows.Ungroup
For Each a In Columns(1).SpecialCells(xlCellTypeBlanks).Areas
    a.EntireRow.Group
Next
End Sub

Sub Degrouper()
On Error Resume Next
Rows.Hidden = False 'affiche tout
Rows.Ungroup
End Sub

Sub Tri()
Degrouper
With ListObjects(1).Range 'tableau structuré
    .Sort .Columns(3), xlAscending, .Columns(11), , xlAscending, Header:=xlYes 'tri sur les 2 colonnes C et K
End With
End Sub

Edit : ajouté Rows.Hidden = False 'affiche tout

A+

bibbip35 · 18 Janvier 2022

Merci JOB75 ca fonctionne parfaitement !
Par contre , mon tableau commence a la cellule A7 dans le fichier définitif
Est-il possible de commencer la macro grouper a partir de cette cellule

Merci encore

job75 · 18 Janvier 2022

bibbip35 à dit:
Par contre , mon tableau commence a la cellule A7 dans le fichier définitif
Est-il possible de commencer la macro grouper a partir de cette cellule

Le tableau étant un tableau structuré il suffit d'utiliser :

VB:

For Each a In ListObjects(1).Range.Columns(1).SpecialCells(xlCellTypeBlanks).Areas '1ère colonne du tableau structuré

bibbip35 · 19 Janvier 2022

Merci job75 ça fonctionne parfaitement
Bonne soirée

Bibbip35

Microsoft 365 Grouper ligne en VBA

bibbip35

XLDnaute Occasionnel

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

bibbip35

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Pièces jointes

bibbip35

XLDnaute Occasionnel

Discussions similaires

Microsoft 365 Grouper ligne en VBA

bibbip35

XLDnaute Occasionnel

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

bibbip35

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Pièces jointes

bibbip35

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency