Discussion :

[Adri47]

Bonsoir à tous,

Je souhaite grouper des lignes d'un tableau excel . J'ai a disposition deux colonnes qui peuvent me décrire le groupement :

Colonne C ---------Colonne D
Arbre-----------------Niveau
1----------------------1
2-----------------------1
3-----------------------1
3.1-----------------2
3.2-----------------2
3.3-----------------2
3.3.1-----------3
3.3.2---------- 3
3.3.3----------- 3
3.3.4----------- 3
3.4-----------------2
3.4.1----------- 3
3.4.2----------- 3
3.4.3----------- 3
3.4.4----------- 3
3.5----------------- 2
3.5.1----------- 3
3.5.2----------- 3
3.5.3----------- 3
3.5.4----------- 3
3.6----------------- 2
3.6.1----------- 3
3.6.2----------- 3
3.6.3----------- 3
3.6.4----------- 3
4---------------------- 1
5---------------------- 1

Je pensais utiliser La colonne niveau mais je n'arrive pas à le programmer en VBA (je débute).
Sur le forum il y a des pistes mais juste pour un seul niveau.

Quelqu'un à une idée ?

Merci beaucoup

[Philippe Tulliez]

Bonjour,
As-tu absolument besoin d'un code VBA ?
Parce-que si j'ai bien compris ce que tu veux voici une formule à placer en Colonne D.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=NBCAR(SUBSTITUE(C4;".";""))

Recopier ensuite vers le bas
en C4 soit 2, 2.1 ou 2.1.1

Bonjour,
Solution en VBA avec une fonction personnalisée.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Function LevelCount(txt As String) As Long
 LevelCount = Len(Replace(txt, ".", ""))
End Function

Fonction que tu peux utiliser, avec Excel en tapant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=LevelCount(C4)

Ou en appelant la fonction depuis une autre procédure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub test()
 Dim txt As String: txt = "2.5.1"
 MsgBox "Le niveau de " & Range("C4") & " est le " & LevelCount(Range("C4"))
 ' Ou encore
 MsgBox "Le niveau de " & txt & " est le " & LevelCount(txt)
End Sub

[tedo01]

Bonjour,
Pour grouper ou dé-grouper des lignes dans Excel en VBA, il faut jouer avec la propriété OutlineLevel qui s'applique à un objet Range qui représente une ligne.
Dans le cas présent, il suffit de parcourir les lignes et de leur affecter le OutlineLevel contenu dans la colonne D :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
'Si NbLignes est le nombre de lignes,
For i = 1 To NbLignes
   ActiveSheet.Rows(i).OutlineLevel = Range("D" & i).Value
Next i

[Adri47]

Je m'étais mal exprimé, mais tdo01 a compris quand même.
Merci beaucoup tdo01, c'est exactement ce que je souhaitais.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim I As Integer
I = 7
Do Until Range("D" & I).Value = 0
   ActiveSheet.Rows(I).OutlineLevel = Range("D" & I).Value
I = I + 1
Loop