Microsoft 365 Grouper ligne en VBA

[bibbip35]

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]

Bonsoir bibbip35, bonne année à vous aussi,

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

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]

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]

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 :

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

 

[bibbip35]

Merci job75 ça fonctionne parfaitement
Bonne soirée

Bibbip35