Microsoft 365 Création organigramme automatique

[Kristelle1555]

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]

Hello

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

Pour afficher ce contenu, nous aurons besoin de votre consentement pour définir des cookies tiers.
Pour plus d'informations, consultez notre page sur les cookies.

Accepter les cookies de tiers

 

[sylvanu]

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

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

• Banjounet
• excel 2013 organigramme vba
• Réponses: 6
• Forum: Forum Excel