Discussion :

[bouduch]

Bonjour,

Je cherches à grouper des lignes. Je souhaites en faite grouper les niveaux hiérarchique 2 entre eux qui sont entre chaque niveau 1 je les fais pour que vous voyez ce que je souhaite mais il me faut automatiser tout ca et la je coince. Quelqu'un pourrait m'aider svp ?

Merci d'avance

Marion

[casefayere]

Bonjour,

avec ce peu d'explication, j'ai envie de te poser cette question : sais-tu ce qu'est un tri ? car il suffit, au vu de ton fichier de trier sur la colonne "Niveau hiérarchique"

[Invité]

Tu peux utiliser ce code:

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
Public Sub Grouper()
 
    Dim intLignes As Integer, i As Integer
 
    With Worksheets("Table_Tâches")
 
        intLignes = .Range("A" & .Rows.Count).End(xlUp).Row
        For i = 11 To intLignes Step 2
            .Rows(i).OutlineLevel = .Cells(i, 2).Value
            .Rows(i + 1).OutlineLevel = .Cells(i, 2).Value
        Next i
 
    End With
 
End Sub

[bouduch]

Merci vcottineau c'est ca que je cherchais.
Et pour casefayere, je ne pouvais pas faire un tri car mes données sont indépendantes les unes des autres !!

[bouduch]

sans abuser je cherches aussi à "figer" la fin calculée des cellules qui ont le % achevé égal à 100% une idée de comment faire?