Bienvenue 

sur les faqs Word & PowerPoint

Une question ? Cliquez ici.

 Un exemple à télécharger ? Cliquez ici.

 

Word 365 : Vous saurez tout !

Auteur sur XinXii

Pour tout connaître sur Word

8,90 €

 

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'hui579
Hier2693
Cette semaine3272
Ce mois21352
Total depuis 200410756760

48
visiteurs actuellement en ligne