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

Mise en forme conditionnelle sur la taille de la police

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion rcan7412
  • 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
R

rcan7412

XLDnaute Occasionnel
Bonjour,

Je souhaite réaliser l'opération suivante :

J'ai une liste de validation de donnée en A1.
En fonction de la valeur choisie dans la liste de validation, je souhaite formater une autre case (par exemple B7) avec une taille de police.

Par exemple si le contenu choisi de A1 égale le contenu de B2, la case B7 aura une police de 8
Et si le contenu choisi de A1 égale le contenu de B3, la case B7 aura une police de 12.

Je ne sais pas si c'est clair ?

En utilisant la fonction intégrée dans exel de mise en forme conditionnelle, on n'a pas accès à la taille de la police.

Merci pour votre réponse.

RC
 
Trier par date Trier par votes
Re : Mise en forme conditionnelle sur la taille de la police

Bonjour à tous,

Je pense qu'un bout de code VBA peut y arriver.
Merci de joindre un bout de fichier si cela ne correspond pas :

VB: 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        If Cells(1, 1) = Cells(2, 2) Then Cells(7, 2).Font.Size = 8
        If Cells(1, 1) = Cells(3, 2) Then Cells(7, 2).Font.Size = 12
    End If
End Sub


A + à tous

Edition : Ravi de te croiser 00. Bises ++
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Mise en forme conditionnelle sur la taille de la police

Merci à doublezéro et JCGL pour vos réponses.

Je suis parti de l'exemple de doublezéro.

Mon application utilise des noms pour les cellules, et je n'arrive pas à faire contionner le code ?

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("TYPEDOC").Value = Range("FV").Value Then Range("CONDIDOC").Font.Size = 6
If Range("TYPEDOC").Value = Range("DE").Value Then Range("CONDIDOC").Font.Size = 12
If Range("TYPEDOC").Value = Range("NC").Value Then Range("CONDIDOC").Font.Size = 6
End Sub

TYPEDOC est la cellule fusionnée B13:F13 de la feuille "Document"
FV est la cellule F2 de la feuille "Table"
DE est la cellule F3 de la feuille "Table"
NC est la cellule F4 de la feuille "Table"
CONDIDOC est la cellule fusionnée B56:V62 de la feuille "Document"

En fait pour clarifier l'application, j'utilise des zones nommées plutôt que les adresses "A1" mais comme je ne suis pas un habitué du code VBA, je ne vois pas ce qui cloche ?

Avez-vous une explication ?

Le message d'erreur : "erreur d'éxécution 1004 - La méthode 'Range de l'objet_Worksheet' a échoué

Merci d'avance
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Mise en forme conditionnelle sur la taille de la police

Bonjour à tous,

Ceci à l'air de fonctionner :

VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("B13") = Sheets("Table").Range("F2") Then Range("B56").Font.Size = 6
If Range("B13") = Sheets("Table").Range("F3") Then Range("B56").Font.Size = 12
If Range("B13") = Sheets("Table").Range("F4") Then Range("B56").Font.Size = 6
End Sub

A + à tous
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Mise en forme conditionnelle sur la taille de la police

Merci JCGL,

Effectivement, le code fonctionne sans problème. Merci beaucoup pour l'aide.

Dois-je comprendre qu'il n'est pas possible d'utiliser les zones (cellules) nommées dans excel telles quelles dans le code VBA ? Il serait indispensable d'utiliser les références colonnes, lignes ?
 
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

  • Question Question
XL 2019 Conflit entre taille et couleur de la police dans les commentaires
2
Réponses
15
Affichages
536
Magic_Doctor
  • Question Question
XL 2019 Mise en forme conditionnelle la couleur
Réponses
1
Affichages
231
TooFatBoy
L
  • Question Question
XL 2021 RechercheX et Mise en forme conditionnelle
2
Réponses
17
Affichages
408
Lucie85
L
Q
  • Question Question
XL 2010 Problème avec la mise en forme conditionnelle
Réponses
4
Affichages
229
quickfuture
Q
L
  • Question Question
XL 2021 Mise en forme conditionnelle à partir d'autre colonne
Réponses
7
Affichages
348
CHRIS1945
C
E
  • Question Question
XL 2016 Mise en forme conditionnelle conservée après actualisation d'un TCD
Réponses
1
Affichages
328
chris
A
  • Question Question
XL 2016 Mise en forme conditionnelle et valeur égale à 0...
Réponses
5
Affichages
468
sylvanu
L
  • Résolu(e)
XL 2019 mise en forme conditionnelle
Réponses
6
Affichages
299
litchoutsou
L
L
  • Question Question
Autres Mise en forme de 10 données
Réponses
4
Affichages
256
lepiouf
L
  • Question Question
XL 2016 Transformer la mise en forme d'un tableau
2
Réponses
22
Affichages
811
Cousinhub
C
  • Résolu(e)
XL 2021 Mise en forme conditionnelle
Réponses
2
Affichages
302
chrislecycliste
C
M
  • Question Question
Microsoft 365 Ajout de cas à cocher et mise en forme conditionnelle dans un tableau Excel
Réponses
9
Affichages
634
mimednejma
M
J
  • Question Question
XL 2013 mise en forme conditionnelle contenant plusieurs mots
2
Réponses
16
Affichages
898
jo657
J
A
  • Question Question
XL 2019 Mise en forme conditionnelle
Réponses
5
Affichages
665
wDog66
W
R
  • Question Question
Microsoft 365 mise en forme conditionnelle
Réponses
2
Affichages
239
ridzo
R
K
  • Résolu(e)
XL 2010 Roulement automatique
Réponses
9
Affichages
354
komarlehomard
K
T
  • Résolu(e)
XL 2010 Mise en forme conditionnelle
Réponses
4
Affichages
459
tchi456
T
F
  • Question Question
XL pour MAC Mise en forme conditionnelle
Réponses
6
Affichages
345
flea
F
C
  • Question Question
Microsoft 365 Difficulté avec la concatenation en conservant la mise à forme
Réponses
5
Affichages
590
laurent950
A
  • Question Question
XL 2019 Mise en forme
Réponses
4
Affichages
311
TooFatBoy
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…