Grouper les lignes VBA suivant un niveau

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

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:

---

=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:

---

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:

---

=LevelCount(C4)

---

Ou en appelant la fonction depuis une autre procédure

Code:

---

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

---

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:

---

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

---

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

Code:

---

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

---