générer un organigramme schématisé avec les shapes depuis un fichier xls

Re : générer un organigramme schématisé avec les shapes depuis un fichier xls

Très étrange… Il y a bien deux autres Feui.Names.Add avant, et ceux là ne plantent pas ?
Faudrait mettre un espion sur Plages(2).Address(External:=True)
Si l'espion met aussi Objet requis, un autre sur Plages(2) pour voir.
Enfin on verra. Peut être que je tomberai aussi dessus en faisant des essais avec d'autres classeurs.
À la réflexion le (External:=True) n'est peut être pas indispensable pour celui là. Mais pour les autre si, les données pouvant être sur une autre feuille, voire un autre classeur. Ça pourrait d'ailleurs poser un problème par la suite s'il n'est pas ouvert…

P.S. Eh, eh, hé hé… Que c'était vicieux. Quand la feuille ne contient aucun Shape le Feui.Shapes.SelectAll selectionne n'importe quoi qui semble être les cellules de la feuille, de sorte que le Selection.Delete détruit la référence de la plage définie dans Plages(2).
Je n'étais apparemment pas encore assez dégouté d'utiliser Selection dans les macros.

Quoi qu'il en soit voilà la nouvelle version.

Re : générer un organigramme schématisé avec les shapes depuis un fichier xls

Dranreb à dit:

Très étrange… Il y a bien deux autres Feui.Names.Add avant, et ceux là ne plantent pas ?
Faudrait mettre un espion sur Plages(2).Address(External:=True)
Si l'espion met aussi Objet requis, un autre sur Plages(2) pour voir.
Enfin on verra. Peut être que je tomberai aussi dessus en faisant des essais avec d'autres classeurs.
À la réflexion le (External:=True) n'est peut être pas indispensable pour celui là. Mais pour les autre si, les données pouvant être sur une autre feuille, voire un autre classeur. Ça pourrait d'ailleurs poser un problème par la suite s'il n'est pas ouvert…

P.S. Eh, eh, hé hé… Que c'était vicieux. Quand la feuille ne contient aucun Shape le Feui.Shapes.SelectAll selectionne n'importe quoi qui semble être les cellules de la feuille, de sorte que le Selection.Delete détruit la référence de la plage définie dans Plages(2).
Je n'étais apparemment pas encore assez dégouté d'utiliser Selection dans les macros.

Quoi qu'il en soit voilà la nouvelle version.

Cliquez pour agrandir...

Bonjour, dranreb, perso je n'utiliserai que les schémas verticaux masi interessant si quelqu'un souhaite l'avoir horyzontale.Apres je prefere l'ancien fichier qui me dessine mieux les shapes.
De toute facon apres dans l'ancien ou nouveau fichier c'est puisqu'il y a des connecteurs, de pouvoir déplacer les shapes avec les liaisons qui suivent pour mieux visualiser l'organigramme.
En tout cas , ut as fait du super boulot, c'est top 🙂

Re : générer un organigramme schématisé avec les shapes depuis un fichier xls

Bonjour.
Comment ça l'ancienne version dessinait mieux les shapes ? Avec l'orientation d'alignement horizontal des pavés de mêmes niveaux hiérarchiques il n'y a guère de différence, à part une dépendance à certains paramètres et en un cadrage au milieu des espaces logiquement consacrés aux pavés.

Re : générer un organigramme schématisé avec les shapes depuis un fichier xls

Dranreb à dit:

Bonjour.
Comment ça l'ancienne version dessinait mieux les shapes ? Avec l'orientation d'alignement horizontal des pavés de mêmes niveaux hiérarchiques il n'y a guère de différence, à part une dépendance à certains paramètres et en un cadrage au milieu des espaces logiquement consacrés aux pavés.

Cliquez pour agrandir...

Tiens je t'ai mis le fichier que j'utilise avec la codification. et que je charge ds ta macro verticale essaye eu tu verras par toi meme.

tu verras que le dessin les connecteurs se font bien mais il faut constamment tout redéplacer pour bien identifier les niveaux en fait, sinon ce n'est pas lisible en l'état.
Il n'y a que ce travail manuel et la gestion de l'édition mais ceci dit ca me va aussi car l'important etait de relier les niveaux entre eux.
la c'est fait.
en revanche, je pense que la difficulté provient du fait qu'il y a bcp de données sur le meme niveau (mais la encore , mon orgranigrmme est tout ce qu'il y a de plus courant ).

Re : générer un organigramme schématisé avec les shapes depuis un fichier xls

S'il faut des outils supplémentaires il faut me le dire.
J'avais pensé un moment à repositionner les pavés portant des débuts de connecteurs au milieu des arrivées extrêmes. Mais ça ne déplacerait pas ceux qui n'en ont pas, et il y aurait des chevauchements. Mais ça arrive déjà quand il est obligé de créer un pavé supplémentaire alors qu'on demandait seulement à rectifier les textes…
Ne pas oublier non plus que les formats dans la feuille "Modèles" sont appliqués. Mettre "Ne pas déplacer ou dimensionner avec les cellules", essayez alignements centrés, taille fixe, etc.

Re : générer un organigramme schématisé avec les shapes depuis un fichier xls

Bonsour®

zlacarter à dit:

Tiens je t'ai mis le fichier que j'utilise avec la codification

Cliquez pour agrandir...

😎 cela dure depuis 4 jours...

en revanche, je pense que la difficulté provient du fait qu'il y a bcp de données sur le meme niveau (mais la encore , mon orgranigrmme est tout ce qu'il y a de plus courant ).

Cliquez pour agrandir...

en moins de 15mn ...!!!
et après une 50'aine d'appuis sur la touche TAB
et quelques sélections (re-dimensionnements, mise en couleurs)

Re : générer un organigramme schématisé avec les shapes depuis un fichier xls

Bonjour zlacarter, à tous,

zlacarter à dit:

(...) Celui de pomme (...) si ce n'est une présentation horyzontale qui complique la lecture (surtout si on a plusieurs services par exemples attachés). (...)

Cliquez pour agrandir...

Donc toujours pour le fun, la même version mais avec le choix de l'orientation et l'ajout des commentaires.

Re : générer un organigramme schématisé avec les shapes depuis un fichier xls

bonjour ,
je suis en train de tester les fichiers avec des différents cas . c'est ofrt interessant.
certains proposent des organigrammes avec shape (plus lisible en mon sens ) d'autres avec des pavés de couleurs, qui marchent tout aussi bien .

je teste avec mes cas réels d'affectation dans un organigramme :

celui qui me semble le plus poussé et répondant à ma recherche est celui de Danreb.
Avec du code de JB car d'un coté je fais un organigramme de structure c'est a dire que j'ai juste 'au minimum deux colonnes) code + libellé.
le code me sert à identifier le niveau, le libellé reste de l'information, j'ai la possibilité de rajouter d'autres informatiobn si besoin.

apres l'autre organigramme (source JB) c'est celui avec la notion de pere et Fils (donc 4 colonnes Minimum : le code Fils, son libellé, le code pere , son libellé pére).

J'utilise soit l'un soit l'autre, la representation de l'organisation de service sera différente selon le cas.

Et je viens de trouver un autre cas interessant à etudier avec la notion de pere/fils (dans le cas ou le niveau pere est F par exemple et que le niveau juste en dessous est en realité FF01 (il n'y pas de service existant avec le FF,dans la logique il devrait mais ce n'est pas le cas, volonté du service ....) le dessins du shape se dessine non pas sur le niveau approprié (niveau 3) mais au niveau 2 (directement sous le F). ce qui est faux.
Je pourrai mettre a dispo un fichier avec le code fils/ libellé/le code pere/libelle / le niveau a positionner du code fils.


Bref, en tout cas , c'est tres interessant de voir vos analyse et le rendu de chacun.
Merci à tous pour votre investissement et collaboration.
zlacarter.

Re : générer un organigramme schématisé avec les shapes depuis un fichier xls

BOISGONTIER à dit:

Bonjour,

>Effectivement j'avais étudié la macro de JB qui est exellente et surtout donc automatisée comme demandé .(mais je n'arrive pas faire la meme chose en incluant des codes alpha numérique comme présenté dans mon fichier car lui utilise les codes avec des "." qui identifie les familles et sous familles alors que moi c'est plutot A puis AB puis AB01 ....)

Il me semble que le post #22 contient une version Shapes verticale et une version Texte qui utilisent la codification d'origine.

Code:

A       direction generale 1  Cmt1
AA     Direction 1               Cmt2
AA01 service                     Cmt3
B       direction generale 2  Cmt4
BA     direction2                 Cmt5
BA01 service 2                   Cmt6
BA02 service 2x                  Cmt7

Cf Organigramme hiérarchique avec shapes

http://boisgontierjacques.free.fr/fichiers/Cellules/HierarchieShapes1.xls
http://boisgontierjacques.free.fr/fichiers/Cellules/HierarchieShapes1Vertical.xls
http://boisgontierjacques.free.fr/fichiers/jb-organigramme.xls
http://boisgontierjacques.free.fr/fichiers/Cellules/GenealogieShapesBranche.xls

Regarde la pièce jointe 288134
Regarde la pièce jointe 288135


JB

Cliquez pour agrandir...

Bonjour,
comment faire fonctionner tout ceci sous Excel 2007 ou postérieur?
Merci.