Bonjour
Je me suis évertuer à créer cette macro qui a pour but d'ajouter un ligne à un tableau et de pouvoir ajouter dans une colonne un champ qui reprend le n° du document (renseigné par l'utilisateur) et un système d'incrémentation.
Cette macro fonctionnait très bien mais plus depuis aujourd'hui et je ne me rappelle pas y avoir apporter de modifications.
Mon problème est donc de savoir s'il y a des erreurs dans cette macro et, celle-ci étant vraiment artisanalle, s'il y a possibilité de la simplifier en ayant le même résultat (celui qui fonctionne bien sûr).
J'y joins le code:
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 Private Sub CommandButton1_Click() Dim objTable As Table Set objTable = ThisDocument.Tables(4) 'Trouver le n° du tableau Dim i As Integer Dim lign As Integer Selection.MoveDown Unit:=wdLine, Count:=objTable.Rows.Count ActiveDocument.Tables(4).Rows.Add lign = objTable.Rows.Count objTable.Rows(lign).Select With Selection.Cells With .Shading .Texture = wdTextureNone .ForegroundPatternColor = wdColorAutomatic .BackgroundPatternColor = wdColorAutomatic End With End With objTable.Cell(lign, 1).Select With Selection.Cells Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft End With objTable.Cell(lign, 3).Range.Text = "-" & lign - 1 Selection.HomeKey Unit:=wdLine Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _ "REF Numero ", PreserveFormatting:=True ' Pour insérer un champ reprenant le n° du document Selection.EndKey Unit:=wdStory End Sub
Partager