Demande d'aide pour la création d'un Organigramme/ Treeview avec conditions

**syl2071** · 20/12/2016, 15h49

Bonjour à tous,

D'avance merci pour les personnes qui prendront le temps de lire mon message et de m'aider.
Via un script python je fabrique un fichier excel avec les données qui me vont bien ( voir en pièce jointe ). J'aimerais maintenant pouvoir exploiter ces données en construisant un organigramme de type parent enfant. J'ai regardé via l’excellent site de M. Boisgontier mais n'étant pas développeur, je n'arrive à rien...( pas de connaissance en VB)
J'aimerais donc construire un organigramme de type parent enfant mais également retrouver la donnée voulu associée à l'application ( SLA calculée par exemple)

Je pense qu'il faudrait adapter ce code pour la recursivité :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Dim ligne, débutOrg, f, forga, inth, intv, Tbl(), n
Sub DessineArbreDescendants()
   Set forga = Sheets("BD")
   Set f = Sheets("bd")
   Tbl = f.Range("A2:F" & f.[A65000].End(xlUp).Row).Value
   n = UBound(Tbl)
   For Each s In forga.Shapes
    If (s.Type = 17 Or s.Type = 1) And s.Name <> "curseur" Then s.Delete
   Next
   Set débutOrg = forga.Range("j1")
   ligne = 0
   inth = 90
   intv = 36
   lig = ActiveCell.Row - 1
   If lig > 0 And lig < n Then
     créeShapeV Tbl(lig, 1), 1, Tbl(lig, 3) & vbLf & Tbl(lig, 5) & "  " & Tbl(lig, 6), f.Cells(2, 1).Interior.Color
     DessineAscendants
   End If
End Sub
Sub créeShapeV(parent, niv, Attribut, coul) ' procédure récursive
  hauteurshape = 33
  largeurshape = 160
  ligne = ligne + 1
  forga.Shapes.AddShape(msoShapeFlowchartAlternateProcess, 10, 10, largeurshape, hauteurshape).Name = parent
  forga.Shapes(parent).Line.ForeColor.SchemeColor = 1
  txt = parent & "  " & Attribut
  With forga.Shapes(parent)
    .TextFrame.Characters.Text = txt
    .TextFrame.Characters(Start:=1, Length:=1000).Font.Size = 8
    .TextFrame.Characters(Start:=1, Length:=1000).Font.ColorIndex = 0
    .TextFrame.Characters(Start:=1, Length:=Len(parent)).Font.Bold = True
    .Fill.ForeColor.RGB = coul
    .TextFrame.Characters(Start:=1, Length:=Len(parent)).Font.Color = vbBlack
  End With
  forga.Shapes(parent).Left = débutOrg.Left + niv * inth
  forga.Shapes(parent).Top = débutOrg.Top + intv * ligne
  For i = 1 To n
    If Tbl(i, 1) = parent And niv > 1 Then
      shapePère = Tbl(i, 2)
      forga.Shapes.AddConnector(msoConnectorElbow, 100, 100, 100, 100).Name = parent & "c"
      forga.Shapes(parent & "c").Line.ForeColor.SchemeColor = 22
      forga.Shapes(parent & "c").ConnectorFormat.BeginConnect forga.Shapes(shapePère), 3
      forga.Shapes(parent & "c").ConnectorFormat.EndConnect forga.Shapes(parent), 2
   End If
   If Tbl(i, 2) = parent Then créeShapeV Tbl(i, 1), niv + 1, Tbl(i, 3) & vbLf & Tbl(i, 5) & "  " & Tbl(i, 6), f.Cells(2, 1).Interior.Color
  Next i
End Sub

Merci d'avance pour votre aide. Si vous n'avez pas compris je peux vous donner plus de détail.

Sylvain

Rapport_SLA (18).xlsx

**Theze** · 22/12/2016, 17h01

Bonjour,

Un exemple tout simple avec un TreeView sur un UserForm et l'organigramme est en feuille "Feuil1"

**syl2071** · 23/12/2016, 15h16

Bonjour,

En fait ce que j'aimerai c'est créer cette arborescence en tapant directement dans les données de mon tableau depuis les colonnes parent/enfant (et également afficher des valeurs)

**Theze** · 23/12/2016, 19h19

Bonjour,

Je ne peux plus t'aider pour l'instant car je suis sur iPad pour les vacances, de retour chez moi le 02/01
Je te souhaite ainsi qu'à toute ta famille de passer de bonnes fêtes