Microsoft 365 Grouper - plan automatique

[Bichette001]

Bonjour
j'aimerais svp, créer un plan automatique en fonction à chaque changement de donnée dans des colonnes choisies. groupe plan automatique ne fonctionne pas .
pourquoi d'après vous . en Pj le fichier exemple grouper à chaque changement de données colonne C.
merci
Bichette

 

[sylvanu]

Bonjour Bichette,
Un essai en PJ, J'ai préféré filtrer sur la colonne F c'es plus simple et pareil. Il suffit de repérer les "1".

Sub Grouper()
Dim DerLig%, L%
Application.ScreenUpdating = False
Cells.ClearOutline
DerLig = Sheets("STEPS 2B").Range("I65500").End(xlUp).Row
L = 3 ' init 3 car 1 à L=2
While L < DerLig
    Ldébut = L
    While Cells(L, "I") <> 1
        L = L + 1
    Wend
    Rows(Ldébut - 1 & ":" & L - 2).Rows.Group
    L = L + 1
Wend
ActiveSheet.Outline.ShowLevels RowLevels:=1
End Sub
Sub Dégrouper()
Application.ScreenUpdating = False
Cells.ClearOutline
End Sub

 

[Bichette001]

c'est super! j'aimerais bien comprendre votre formule pour être capable de recréer la macro sur un autre fichier
auriez vous qques explications de cette formule svp?
un grand merci !

 

[sylvanu]

Voilà :

Sub Grouper()
Dim DerLig%, L%
Application.ScreenUpdating = False                          ' Figer l'écran pour être plus rapide
Cells.ClearOutline                                          ' Supprimer tous les groupements existant
DerLig = Sheets("STEPS 2B").Range("I65500").End(xlUp).Row   ' Calcul de le dernière ligne de la feuille
L = 3                                                       ' L : N° de ligne, init à 3 car on a 1 en L=2
While L < DerLig                                            ' Pour toutes les lignes
    Ldébut = L                                              ' De la ligne de début
    While Cells(L, "I") <> 1                                ' Tant qu'on n'a pas 1 en colonne I
        L = L + 1                                           ' On incrémente le N° de ligne
    Wend
    Rows(Ldébut - 1 & ":" & L - 2).Rows.Group               ' On groupe les lignes de Ldébut à L
    L = L + 1                                               ' On passe à la ligne suivante
Wend                                                        ' Et on continue tant que pas fini
ActiveSheet.Outline.ShowLevels RowLevels:=1                 ' On affiche la feuille groupée
End Sub
Sub Dégrouper()
Application.ScreenUpdating = False                          ' Figer l'écran pour être plus rapide
Cells.ClearOutline                                          ' Supprimer tous les groupements existant
End Sub

 

[Bichette001]

merci ! il y a juste L= 3 je ne saisis pas bien l'explication ?
et si je veux par ex que le groupement se fasse par la colonne G comment je le programme ?
et si je veux grouper 2 colonnes ?
pardon pour le dérangement

 

[sylvanu]

En fait je recherche les cellules en colonne I qui contienne 1. Et je me sers de ça pour finir le groupe précédent en utilisant la ligne N-1.
Sauf qu'au début si je commence à 2 j'ai déjà 1. Donc je commence à la ligne 3.
C'est juste un problème d'initialisation de la variable.

 

[Bichette001]

En fait je recherche les cellules en colonne I qui contienne 1. Et je me sers de ça pour finir le groupe précédent en utilisant la ligne N-1.
Sauf qu'au début si je commence à 2 j'ai déjà 1. Donc je commence à la ligne 3.
C'est juste un problème d'initialisation de la variable.

il faut donc en pré requis qu'il y ait au moins 2 lignes pr que cela fonctionne ?c'est bien cela ?

 

[sylvanu]

Pour Grouper, oui.
Mais même en manuel, sans au moins deux lignes vous ne pourrez pas grouper.