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 :

Nom : vu10.png
Affichages : 988
Taille : 9,6 Ko

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 :

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
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?