Publipostage

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
l
lool
Nouveau venu
Nouveau venu
Messages : 8
Inscrit le : 10 juillet 2017
Version d'Excel : 2013EN

Message par lool » 18 décembre 2018, 11:57

Bonjour à tous,
Après avoir cherché sur le net, je ne trouve pas de solution et donc je me tourne vers vous.
J'ai un fichier excel (mis en forme pour faire un publipostage pour étiquette) qui comporte divers colonne:
Nom - Prénom - Statut - Ville
Les étiquettes se créent correctement mais mon souci vient avec le Statut.
A chaque statut (3 différents) j'ai une mise en forme conditionnelle qui change la police et la couleur de fond.
Cependant, cette mise en forme n'est pas reprise sur le fichier Word.
Seriez-vous comment faire ?
Je n'y connais rien en VBA mais si vous avez une solution avec VBA, Macro ou autre, je suis preneur.
Je dois rendre le fichier d'ici vendredi....

Merci !!
U
U. Milité
Membre impliqué
Membre impliqué
Messages : 2'037
Appréciations reçues : 143
Inscrit le : 30 novembre 2016
Version d'Excel : Office 365

Message par U. Milité » 18 décembre 2018, 14:01

Bonjour,

Une solution "sans prise de tête" serait d'appliquer un filtre sur un statut, de colorer le champ en fonction des besoins, de fusionner et imprimer ... puis de recommencer avec les deux autres statuts
Bon d'accord, c'est certainement moins "glamour" qu'une super-macro-de-la-mort-qui-tue, mais ça fait au moins une réponse :roll:
l
lool
Nouveau venu
Nouveau venu
Messages : 8
Inscrit le : 10 juillet 2017
Version d'Excel : 2013EN

Message par lool » 18 décembre 2018, 15:45

Hello,
Déjà merci pour ta réponse, ça en fait au moins 1 :wink:
Voila ce que j'ai fini par trouver:

Sub Coloration()
Selection.Tables(1).Select
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.MatchWildcards = True
.Text = "Témoin"
While .Execute
Selection.Range.Select
Selection.Range.HighlightColorIndex = wdYellow
Selection.Collapse wdCollapseEnd
Wend
End With
End Sub

Bon ça me donne une solution pour 1 terme, me reste à trouver pour la suite !

Merci !
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • publipostage
    par dam08 » 28 juin 2018, 07:52 » dans Excel - VBA
    1 Réponses
    316 Vues
    Dernier message par dhany
    28 juin 2018, 07:57
  • Publipostage
    par ben68500 » 5 avril 2019, 18:05 » dans Office
    1 Réponses
    2518 Vues
    Dernier message par Xmenpl
    9 avril 2019, 10:49
  • Publipostage
    par fredbenoit » 18 juin 2019, 19:31 » dans Excel - VBA
    6 Réponses
    287 Vues
    Dernier message par fredbenoit
    19 juin 2019, 14:57
  • Publipostage
    par MJC55 » 22 mai 2016, 09:59 » dans Office
    1 Réponses
    937 Vues
    Dernier message par lauange
    22 mai 2016, 16:52
  • publipostage
    par st mar » 24 novembre 2016, 11:59 » dans Excel - VBA
    6 Réponses
    489 Vues
    Dernier message par AFEH
    26 novembre 2016, 16:12
  • Publipostage
    par sl60 » 26 janvier 2018, 15:38 » dans Office
    2 Réponses
    3097 Vues
    Dernier message par Xmenpl
    4 février 2019, 10:23