Bonjour,
Je cherche à partir d'un fichier excel à créer une macro permettant de grouper des lignes sur plusieurs niveaux. Une image sera plus clair que toute explication :
Concrétement, j'ai une colonne qui indique des valeurs et suivant cette valeur je groupe les lignes. J'ai créer un bout de code pour faire cela mais il me groupe toutes les lignes de mon tableau au même niveau :
J'ai conscience que l'exposé de mon problème est très peu clair donc n'hésitez pas à me poser des questions si ça peut vous aider?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 Function grouper(classeur, colonne, nombre) For vari = nombre To 1 Step -1 k = 2 Do Until Workbooks(classeur).Worksheets(1).Cells(k, colonne) = "" If Workbooks(classeur).Worksheets(1).Cells(k, colonne).Value = vari Then premier = k vu = Workbooks(classeur).Worksheets(1).Cells(k, colonne).Value Do Until vu = vari Or vu > vari k = k + 1 Loop dernier = k Rows(premier & ":" & dernier).Group k = k + 1 Else k = k + 1 End If Loop Next End Function
Partager