Microsoft 365 Création organigramme automatique

Kristelle1555 · 15 Avril 2025

Bonjour,

Je souhaiterais pouvoir créer un organigramme automatique à partir d'une base de données xls (voir fichier xls ci-joint).
Merci de me partager la marche à suivre pour le faire.

Christelle

vgendron · 15 Avril 2025

Hello

une petite recherche google et hop.. une description détaillée de la procédure à suivre

sylvanu · 15 Avril 2025

Bonjour Christelle, Vgendron,
Un exemple en PJ issu de :

B

XL 2013 Discussion 'Macro Organigramme automatique'

9 Décembre 2020

Bonjour à tous,

Je viens vers vous car je suis officiellement une bille en VBA

J'ai besoin de créer des organigrammes automatiques. Après quelques recherches j'ai trouvé le code suivant (Merci Jacques Boigontier) :

VB:

Dim colonne, débutOrg, f, forga, inth, intv, Tbl(), n
Sub DessineOrgaH()
   Set f = Sheets("OrgaBD")
   Set forga = Sheets("orgaDessin")
   Tbl = f.Range("A2:C" & f.[A65000].End(xlUp).Row).Value
   n = UBound(Tbl)
   For Each s In forga.Shapes
    If s.Type = 17 Or s.Type = 1 Then s.Delete
   Next
   inth = 70
   intv = 60
   colonne = 0
   Set débutOrg =...

Microsoft 365 Création organigramme automatique

Kristelle1555

XLDnaute Nouveau

Pièces jointes

vgendron

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

XL 2013 Discussion 'Macro Organigramme automatique'

Pièces jointes

Discussions similaires

Microsoft 365 Création organigramme automatique

Kristelle1555

XLDnaute Nouveau

Pièces jointes

vgendron

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

XL 2013 Discussion 'Macro Organigramme automatique'

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency