user_mobilelogo

Word 365: Vous saurez tout !

Pour tout connaître sur Word
Nouvelle version !

600 pages !

9,80 € 

 

En savoir plus.

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'hui1734
Hier3318
Cette semaine15151
Ce mois77948
Total depuis 200412596580

56
visiteurs actuellement en ligne

27 novembre 2020