XL 2010 Aide sur l'organigramme de Boisgontier

[fablog]

Bonjour,

Mes questions s'adressent surtout à Jacques Boisgontier puisque j'essaye de modifier son OrganigrammeH. Merci en passant Jacques pour le partage de ton fichier .

1) Comment faire pour toujours centrer les pères au-dessus des parents. Avec l'image ci-dessous on voit que tout se décale vers la droite.


2) Comment faire pour qu'une couleur s'applique automatiquement, en fonction du texte saisi dans une colonne que j'ai rajouté. Bizarrement, avec la fonction de mise en forme conditionnelle, j'ai réussi à le faire en utilisant la formule

=$D2="mettre le texte recherché ici"

mais les couleurs ne se répercutent pas dans l'organigramme. C'est seulement quand je mets les couleurs manuellement dans le tableau que l'organigramme se met à jour.

3) Comment faire pour lui spécifier qui est au sommet de la pyramide? Actuellement, c'est le nom qui se trouve en haut du tableau qui est automatiquement l'élu.


Merci par avance pour votre aide

 

[fablog]

En espérant ne pas abuser, j'aurais également une question en rapport avec votre macro pour faire apparaitre les infobulles que j'ai trouvées sur votre site.
J'ai réussi à implanter cette macro dans l'organigramme, mais le texte est limité à 256 caractères par Excel. Sachant que j'ai beaucoup plus de caractères que cela et que je voudrais faire apparaitre des informations provenant de plusieurs colonnes, comment pourrais-je faire apparaitre les différentes informations dans plusieurs zones de texte, en un seul clic sur un shape de l'organigramme?

Pour que cela soit plus facile à comprendre, voici ce que j'aimerais obtenir comme organigramme:


Merci par avance.

 

[BOISGONTIER]

Bonjour,

http://boisgontierjacques.free.fr/fichiers/Cellules/OrganigrammeHClic.xls

JB

 

[fablog]

Merci beaucoup, je vais travailler la dessus. Bonne journée!

 

[fablog]

Jacques, si je ne change rien à votre fichier OrganigrammeHClic et que je clique sur Organigramme, il me change la disposition des parents:

J'utilise Excel 2010, est-ce dû à mon système? Si je reformule mon besoin, je voudrais que le père ait toujours une position centrée par rapport à ses parents.


Par ailleurs, j'aimerais pouvoir générer 3 organigrammes sur une même feuille. Je veux, en effet, représenter 3 structures différentes qui interagissent entre elles, sans lien de hiérarchie. J'ai essayé de bidouiller cela à ma façon, sans grande connaissance de VB, mais j'arrive seulement à les générer individuellement, pas ensemble. En effet, quand j'en crée un cela efface l'autre puisque le code suivant supprime à chaque fois toutes les shapes

   For Each s In forga.Shapes
     If s.Type = 17 Or s.Type = 1 Then s.Delete
   Next

J'imagine donc que je ne peux ne faire par des macros séparées, il faut que tout se génère à partir d'une seule macro. Pouvez-vous m'aider avec cela svp?

Merci!

Fabien

 

[fablog]

up