Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Mise en forme dans un tcd

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion enzo
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
E

enzo

XLDnaute Nouveau
Bonsoir a tous

j'ai une liste (ligne colonne) basique avec laquelle je cree un tcd. jusque là rien de problematique

il faut que sur une des colonnes du TCD, la mise en forme police soit differente des autres colonnes dudit TCD.
je change donc la police sur la colonne et ca marche. mais a la premiere mise à jour la police se remet comme a l'origine et ce, pas sur toutes les cellules. evidemment, l'option "garder la mise en forme" est cochée.

je cherche depuis plusieurs jours et je m'en remet a vous maintenant.

en vous remerciant par avance,

Rémy
 
Trier par date Trier par votes
Re : Mise en forme dans un tcd

merci de l'interet porté a mon probleme

ci joint le fichier

les cellulle sulignées en jaune sont en police widdings. des que l'on fait la mise a jour du TCD elle repassent avec la police générale.

a bientot
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Mise en forme dans un tcd

Bonour Enzo, Gillus

Tu peux tester cette macro à mettre dans la feuille TCD:

Code: 
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
 With Range("G4:H1000").Font
        .Name = "Wingdings"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
End Sub
 
Vote positif 0 Vote négatif
Re : Mise en forme dans un tcd

re

la premiere version marche nickel
par contre, je ne comprend pas pourquoi je dois enregistrer en xlsm
la deuxieme, impossible de la telecharger. je dois avoir un souci
 
Vote positif 0 Vote négatif
Re : Mise en forme dans un tcd

Re

Il faut accepter les macros.

Ou sinon, voici le code à mettre dans la feuille TCD 🙂:

Code: 
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)    
Application.ScreenUpdating = False
    p = 0
    ligne = Cells(2, 4).End(xlDown).Row
    Colfin = Cells(ligne, 1).End(xlToRight).Column
    For n = 1 To Colfin
        If Left(Cells(ligne, n), 10) <> "DATE RESA/" Then ColAtraiter = n: p = p + 1: GoTo suite1
        If Left(Cells(ligne, n), 10) = "DATE RESA/" Then ColAtraiter = n: p = p + 1: GoTo suite2
suite3:
    Next
    Application.ScreenUpdating = True
    'MsgBox p
    Exit Sub
suite1:
    With Range(Cells(ligne + 1, ColAtraiter), Cells(ligne + 1000, ColAtraiter)).Font
        .Name = "Calbri"
        .Size = 11
        '.Strikethrough = False
        '.Superscript = False
        '.Subscript = False
        '.OutlineFont = False
        '.Shadow = False
        '.Underline = xlUnderlineStyleNone
        '.ThemeColor = xlThemeColorLight1
        '.TintAndShade = 0
        '.ThemeFont = xlThemeFontNone
    End With
    GoTo suite3


suite2:
    With Range(Cells(ligne + 1, ColAtraiter), Cells(ligne + 1000, ColAtraiter)).Font
        .Name = "Wingdings"
        .Size = 11
        '.Strikethrough = False
        '.Superscript = False
        '.Subscript = False
        '.OutlineFont = False
        '.Shadow = False
        '.Underline = xlUnderlineStyleNone
        '.ThemeColor = xlThemeColorLight1
        '.TintAndShade = 0
        '.ThemeFont = xlThemeFontNone
    End With
    GoTo suite3
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
XL pour MAC Mise en forme d'un TCD
Réponses
9
Affichages
127
pilou010
M
  • Question Question
Microsoft 365 Ajout de cas à cocher et mise en forme conditionnelle dans un tableau Excel
Réponses
9
Affichages
282
mimednejma
M
C
  • Résolu(e)
XL 2016 mise en forme conditionnelle dans tableau
Réponses
3
Affichages
111
Colette29
C
A
  • Question Question
XL 2016 Paramétrage dans TCD qui a sauté
Réponses
6
Affichages
666
azraelle
A
T
  • Question Question
XL 2019 dans un tableau ( mise en forme de tableau), 2 couleur pour 1 tableau
Réponses
4
Affichages
255
tuti
T
F
  • Question Question
XL pour MAC Mise en forme conditionnelle
Réponses
6
Affichages
161
flea
F
  • Résolu(e)
XL 2010 Mise en forme d’un graphique spécifique
Réponses
6
Affichages
133
jeanmi
  • Résolu(e)
XL pour MAC Mise en forme conditionnelle dynamique
2 3
Réponses
36
Affichages
2 K
Philarête
L
  • Question Question
Autres integration de mise en forme dans un tcd
Réponses
1
Affichages
278
chris
T
  • Question Question
Microsoft 365 Mise en forme conditionnelle
Réponses
5
Affichages
258
TooFatBoy
A
  • Question Question
XL 2016 MFC avec plusieurs conditions
2
Réponses
25
Affichages
624
ALVE
A
  • Question Question
XL 2016 rajouter une colonne en macro
Réponses
0
Affichages
173
richardlion
W
  • Question Question
Autres Inserer automatiquement une ligne avec même mise en forme après avoir valider mes données
Réponses
11
Affichages
327
walki
W
L
  • Résolu(e)
XL 2019 mise en forme conditionnelle
Réponses
6
Affichages
154
litchoutsou
L
A
  • Résolu(e)
Microsoft 365 La mise en forme conditionnelle s'applique différemment de la plage que j'ai renseigné
Réponses
3
Affichages
109
Alstroemeria
A
L
  • Question Question
Microsoft 365 mise en forme fichier excel power query
Réponses
1
Affichages
218
vgendron
P
  • Résolu(e)
Microsoft 365 Mise en surbrillance de prix min et max (mise en forme conditionnelle)
Réponses
6
Affichages
189
Pepepichnette69
P
M
  • Question Question
XL 2016 Mise en forme conditionnelle
Réponses
11
Affichages
651
Gégé-45550
C
  • Question Question
Microsoft 365 Mise en forme conditionnelle sur clic
2
Réponses
22
Affichages
1 K
TooFatBoy
Y
  • Question Question
Microsoft 365 Suite de mise en forme onditionnelle en fonction dune liste déroulante Compter des valeurs >0.75
Réponses
3
Affichages
202
YGU1
Y
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…