Discussion :

[chronos21]

Bonjour,

je voulais savoir si il était possible de créer un tableau avec un nombre fixe de colonnes et un nombre de lignes variable (en fonction d'une variable définie) et cela directement dans word sans passer par excel.

Si oui pourriez me montrer un exemple de code ?

En vous remerciant d'avance.

Cordialement

Chronos.

[carden752]

Bonjour,

Tu peux utiliser ce type de procédure, je te laisse l'adapter en passant par exemple en paramètre les nombres de lignes et colonnes et l'emplacement ou tu souhaites l'insérer

Code :

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

1
2
3
4
5
6
Sub insertiontableau()
Dim nblignes As Long, nbcolonnes As Long
nblignes = 6
nbcolonnes = 8
ActiveDocument.Tables.Add Selection.Range, nblignes, nbcolonnes
End Sub

[chronos21]

C'est parfait et c'est presque ce que je souhaitais.

J'arrive à le mettre à l'endroit souhaité et à paramétrer le nombre de lignes en fonction de ma variable.

Cependant, le tableau n'a aucune bordure, et j'aimerais bien que la première ligne soit d'une couleur unie. auriez-vous un début de piste ?

De plus, je vois pas trop comment insérer des valeurs dedans, j'imagine devoir me "ballader" dans les cellules mais mon tableau n'ayant pas de nom je sèche un peu.

En tout cas merci ça m'a bien lancé sur mon projet.

Cordialement,

Chronos.

[carden752]

Bonjour,

Voici un exemple à adapter comprenant un nom pour le tableau, comment sélectionner une colonne, ligne, cellule et affecter une bordure.

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
Sub insertiontableau()
'Déclaration et initialisation
Dim nblignes As Long, nbcolonnes As Long
Dim montab As Table
nblignes = 6
nbcolonnes = 8
'Nommer le tableau
Set montab = ActiveDocument.Tables.Add(Selection.Range, nblignes, nbcolonnes)
'Affecter une bordure
montab.Borders(wdBorderTop).Visible = True
montab.Borders(wdBorderTop).LineStyle = wdLineStyleDouble
'Sélectionner un élément
montab.Columns(1).Select
montab.Rows(1).Select
montab.Cell(1, 1).Select
End Sub

[Sepia]

Salut chronos21,

Le mieux pour ce genre de mise en forme complexe (les tableaux c'est toujours complexe), consiste à suivre la recette de cuisine suivante :

1. Tu lances l'enregistreur de macro (thermostat 5)
2. Tu fais ton tableau, sans rien faire d'autre avec ta mise en forme aux petits oignons (tu peux aussi mettre de l'ail mais ce n'est pas nécessaire)
3. Tu adaptes tes paramètres de ta macro avec celle que carden752 t'a fait
4. Tu peux aussi poivrer et saler à cette étape

Bon appétit
@+