Discussion :

[jack554]

Bonsoir,

Alors voilà, je cherche à représenter un arbre généalogique avec Word 2010, ou 97/2003.

Il y a les "formes de base", zone de texte, rectangle, ligne ... Je peux donc créer un truc comme ça :



Là où ça se complique c'est lorsque j'ai créé une page avec 182 cases et liens comme ça (lien bleu = lien marital et lien rouge = lien filial), et que je veux déplacer les bidules. Rien n'est connecté et donc je dois modifier les lignes une par une, les points d'attache, les longueurs, etc : fastidieux.

N'existe-t-il donc pas dans Word une forme genre "zone de texte avec lien connecté", ou même un modèle "arbre généalogique" simple et performant ? Le seul que j'ai trouvé est un horrible truc Excel impossible à disposer correctement ...

J'ai testé aussi quelques logiciels gratuits de généalogie : nuls pour ce que je veux faire (qui semble pourtant simple !)

Merci de vos avis et retours.
Bonne soirée,
Jacques.

[Invité]

Bonjour,

Avec la souris, je sélectionne les lignes encadrant les formes comme ceci :
Pièce jointe 586551

Je lance cette macro qui groupe les shapes dans la sélection et donne un nom incrémenté au groupement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Option Explicit
 
Sub GrouperLesShapes()
 
Dim I As Long, NbGroupementDeFormes As Long, NbShapes As Long
Dim GroupementDeFormes As ShapeRange
 
    With ActiveDocument
 
         NbGroupementDeFormes = 0
         If .Bookmarks.Count > 0 Then
 
            For I = 1 To .Shapes.Count
                With .Shapes(I)
                     If InStr(1, .Name, "GroupeGénéalogique", vbTextCompare) > 0 Then NbGroupementDeFormes = NbGroupementDeFormes + 1
                End With
            Next I
         End If
 
    End With
 
    With Selection.Range
 
         If .ShapeRange.Count = 0 Then Exit Sub
         .ShapeRange.Select
         Selection.ShapeRange.Group
         Set GroupementDeFormes = Selection.ShapeRange
         GroupementDeFormes.Name = "GroupeGénéalogique " & Format(NbGroupementDeFormes + 1, "000")
         Set GroupementDeFormes = Nothing
 
    End With
 
End Sub

On peut vérifier dans le volet Sélection, les formes sont bien regroupées :


Pièce jointe 586552

Je peux ensuite déplacer le groupement.


Cette partie là, c'est pour traiter l'existant. Pour tous les groupements nouveaux, vous auriez intérêt à sauvegarder un modèle groupé en tant que QuickPart. Il vous suffirait ensuite d'insérer votre quickpart à l'endroit souhaité, le dissocier pour le mettre à jour, et sauvegarder le groupement avec la macro pour lui donner sa numérotation.

En ce qui concerne l'indexation, il serait peut-être plus judicieux de se référer à l'indexation Soza. Pour cela, il faudrait passer par une boite de dialogue.

[jack554]

Merci pour votre réponse Mr Kergresse.

Tout cela dépasse un peu mes compétences (par exemple : comment enregistrer cette macro, qu'est-ce qu'un quick part, etc), mais je vais étudier la question.

Bonne journée.

[Invité]

Pour vous initier au VBA Word : https://word.developpez.com/cours/

[Invité]

[/COLOR]

Un exemple dans le fichier joint.

[droggo]

Bonjour,

Il existe une multitude de sites et de logiciels spécialisés, dont de nombreux sont gratuits (tant qu'on ne met pas des milliers de références).

[jack554]

Mr Kergresse : Merci infiniment, c'est parfait.
Mr Droggo : Je n'en doute pas ... Merci.

Merci à tous je clos le sujet.