Cet article est surtout une réponse aux problèmes posés concernant l'insertion d'un champ DATABASE et en particulier concernant le publipostage conditionnel expliqué ici, et qui utilise donc le champ DATABASE.

Un tableau inséré avec un champ DATABASE fait appel à un formatage des anciennes versions, et surtout ne comporte pas de format Nombre.

Cette macro est un exemple qui met en forme la quatrième colonne de tous les tableaux d'un document, sauf la première ligne (qu'on suppose contenir les en-têtes de colonnes). On ajoute à cette colonne une tabulation décimale, et on impose un format numérique.

Cette macro peut être améliorée de mille façons en fonction du résultat souhaité.

 

Sub mef_tableau()
'macro écrite par m@rina

Dim cellule
Dim x

For x = 1 To ActiveDocument.Tables.Count
    For y = 2 To ActiveDocument.Tables(x).Rows.Count
        With ActiveDocument
        cellule = .Tables(x).Cell(y, 4)
           cellules.Select
        cellule.ParagraphFormat.TabStops.Add Position:=CentimetersToPoints(2), Alignment:=wdAlignTabDecimal
        cellule.Text = Format(Val(Selection.Text), "# ### ### ##0.00")
    End With
Next y
Next x
 

Statistiques

Aujourd'hui74
Hier1986
Cette semaine11782
Ce mois46112
Total depuis 200410459525

2
visiteurs actuellement en ligne