Aligner à droite des données issues de QuickPart

Question

Bonjour à tous,

Je rencontre une difficulté concernant le format d'affichage de ma Database. En effet, afin de rassembler mes données j'utilise le QuickPart. Le seul souci c'est que je n'arrive pas à aligner mes nombres. En gros ce que j'aimerais c'est avoir les milliers, centaines, dizaines,... alignés.

Je viens de faire une fonction qui ajoute plus ou moins d'espaces avant le nombre mais rien n'y fait, les espaces ne semblent pas être pris en compte dans le QuickPart.

Si quelqu'un aurait la solution ce serait vraiment gentil. :)

Je vous joins une capture d'écran de ce que j'ai VS ce que je voudrais.
Merci d'avance :)

Avant (ce que j'ai actuellement) :

Ce que je souhaiterais obtenir :

Answer 1

Bonjour,

Non, le format des nombres n’est pas modifiable dans le champ.

Mais il y a une macro que tu trouveras ici, sur la Faqword, là-même où tu as déjà trouvé le tuto du publipostage conditionnel, à insérer dans le document fusionné.

Comment, via VBA, appliquer des formats numériques dans un tableau

Pour mémo, Alt+F11, puis dans This Document copier la macro. F5 pour l’exécuter

Argitxu

Answer 2

Bonjour,

C’est bien que tu aies fourni ton document, on aurait tourné en rond pendant un moment ;)

Dans ton document de fusion, la ligne de titres n’est pas demandée dans le champ, tu l’as mise en fixe, j'avais jamais vu. Et la macro est prévue pour n'appliquer le format décimal qu’à partir de la 2e ligne de chacun des tableaux qui sont censés avoir une ligne de titres. Avec le titre dans le champ, tu n’aurais pas eu de souci.

Pour que tu restes avec la mise en forme que tu as prévue, je ne macrote pas du tout mais en fouillant un peu, j'ai testé ces modifications dans la macro  :

• Ligne For y = 2 To ActiveDocument.Tables(x).Rows.Count => remplace le 2 par un 1
• Ligne cellule = .Tables(x).Cell(y, 4) => remplace le 4 par 5 (sinon c’est la date d’échéance qui sera formatée)

Par contre, il faudra élargir la cellule ‘montant TTC’ de ta ligne de titres.

Argitxu

Answer 3

Hello,

Pour tout te dire, j'ai fait un copier-coller de la macro dans This Document et j'ai fait exécuter la macro. Sans prendre aucun modèle de tableau. Cependant, rien n'y fait, cela ne fonctionne pas.

Je te joins une partie de mes données afin que tu puisses y jeter un oeil. En Wetransfer ici : https://we.tl/t-R0VTIEl9MU

Merci beaucoup pour le temps que tu me consacres.

Leo vires

Answer 4

Parce que lorsque j'exécute la macro, cela ne change rien.

Bonjour,

Cela ne change rien. C'est-à-dire ?

Je viens de faire plusieurs tests et la macro fait bien le travail d'appliquer un format numérique.

Peux-tu décrire ce que tu as fait ? Et nous indiquer quel modèle de tableau tu as pris (donne les valeurs des commutateurs \l et \b tout à la fin du champ) Et peut-être aussi, nous joindre (avec c.joint.com) un extrait du document fusionné avec des données anonymisées.

Argitxu

Answer 5

Bonjour Argitxu,

Merci beaucoup pour ta réponse.

Y a-t-il des variables à remplacer dans le code VBA issu de ta source (Faqword - Comment, via VBA, appliquer des formats numériques dans un tableau?).

Parce que lorsque j'exécute la macro, cela ne change rien.

Leo vires