Un tableau avec des courbures . [Résolu]

[silset]

Bonjour ,
J'ai des données dans un dessin (voire Pièce Jointe : figure A) , par contre la taille de ces données n'étant pas fixe ,ça cause un problème (figure B) , j'ai envi de maitriser cette taille via un tableau (figure C), par contre je veut un tableau qui ressemble un peu au dessin que j'ai au début .
Pouvez vous m'aider ?
Merci .

[Philippe JOCHMANS]

Bonjour

A mon avis ce ne sera pas possible avec un tableau, il faudra passer par le remplissage de texte dans une shape aux bords arrondi.

Il te faut du code de ce style :

Code :

1
2
3
4
5
6
7
8
9
10
Public Sub test()
    Dim shp As Shape
    Set shp = ThisDocument.Shapes.AddShape(msoShapeRoundedRectangle, 25, 25, 250, 250)
 
    With shp
        .TextFrame.TextRange.Text = "Le Texte"
        .TextFrame.AutoSize = True
        .TextFrame.WordWrap = True
    End With
End Sub

Starec

[Elbie]

Bonjour,

Sans utiliser de code, tu peux modifier ton document comme suit :

- clic droit dans ta forme automatique : sélectionner Ajouter du texte (le curseur va clignoter dans la forme)
- tu coupes ton texte (attention à ne pas couper ta forme en même temps), et tu le colles à l'intérieur de la forme automatique
- double clic sur la forme automatique pour activer la commande Format de la forme automatique, onglet Zone de texte, cliquer sur Ajuster la forme au texte.

Cela te permettra d'avoir une forme qui va s'agrandir ou diminuer automatiquement en fonction du texte inséré.

Tu aurais intérêt aussi à choisir un habillage "aligné sur le texte" pour tes différentes boites, ça te permettrait d'éviter qu'elles se superposent.

Cordialement,

[silset]

Merci Elbie ,ça marche

Merci à toi aussi , Starec , l'idée du code est intéressante ,éventuellement je l'utilise dans un autre cas (j'ai toujours de genre de problème ) .

Merci à vous , je suis très heureux parce que ça marche .