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.
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.
Tiens je t'ai mis le fichier que j'utilise avec la codification
en moins de 15mn ...!!!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 ).
(...) 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). (...)
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