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

Mise en forme automatique d'une cellule liée à une zone de texte

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

lpat29

Guest
Bonjour,

Savez-vous comment je peux lier la mise en forme conditionnelle d'une cellule à une zone de texte voir exemple ?

D'avance merci

Pat
 

Pièces jointes

Dernière modification par un modérateur:
Trier par date Trier par votes
Re : Mise en forme automatique d'une cellule liée à une zone de texte

Bonjour,

S'il s'agit que ta zone texte soit de la même couleur que ta cellule, tu peux passer par l'appareil photo.

Icone disponible dans la barre d'outil Outils

Tu sélectionnes la cellule A1, un clic sur l'appareil photo reste ensuite à déplacer la photo où tu le souhaites.

Je te laisse essayer

@+
 
Vote positif 0 Vote négatif
Re : Mise en forme automatique d'une cellule liée à une zone de texte

Bonjour Ipat29, salut Tibo,

Cette macro dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Dim coul As Byte
coul = Switch(Target < 0.6, 3, Target < 0.8, 46, Target >= 0.8, 10)
Me.Shapes("Rectangle 115").Select
Selection.Font.ColorIndex = coul
ActiveCell.Activate
End Sub

A+
 
Vote positif 0 Vote négatif
Re : Mise en forme automatique d'une cellule liée à une zone de texte

Re,

Quelque chose d'un peu mieux, en évitant de sélectionner la shape :

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Dim coul As Byte
coul = Switch(Target < 0.6, 3, Target < 0.8, 46, Target >= 0.8, 10)
Me.Shapes("Rectangle 115").TextFrame.Characters.Font.ColorIndex = coul
End Sub

A+
 
Vote positif 0 Vote négatif
Re : Mise en forme automatique d'une cellule liée à une zone de texte

Merci Job75 pour ta réponse,

J'ai modifié mon fichier pourrais-tu encore m'aider sur le même principe ?
Désolé pour ce changement

Pat
🙂
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Mise en forme automatique d'une cellule liée à une zone de texte

Bonjour Ipat29, le fil, le forum,

J'ai supprimé les liaisons dans votre classeur, car bonjour l'ouverture 😉

Mettez l'une ou l'autre de ces 2 macros dans le code de la feuille "Produits" :

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim coul As Integer

If Target.Address = "$D$4" Then
coul = Switch(Target <= 0.6, 3, Target <= 0.8, 46, Target <= 1, 10, True, xlAutomatic)
Sheets("KPI").Shapes("Rectangle 132").TextFrame.Characters.Font.ColorIndex = coul
End If

If Target.Address = "$D$12" Then
coul = Switch(Target <= 0.6, 3, Target <= 0.8, 46, Target <= 1, 10, True, xlAutomatic)
Sheets("KPI").Shapes("Rectangle 133").TextFrame.Characters.Font.ColorIndex = coul
End If

If Target.Address = "$D$19" Then
coul = Switch(Target <= 0.6, 3, Target <= 0.8, 46, Target <= 1, 10, True, xlAutomatic)
Sheets("KPI").Shapes("Rectangle 134").TextFrame.Characters.Font.ColorIndex = coul
End If

End Sub

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim coul As Integer

coul = Switch([D4] <= 0.6, 3, [D4] <= 0.8, 46, [D4] <= 1, 10, True, xlAutomatic)
Sheets("KPI").Shapes("Rectangle 132").TextFrame.Characters.Font.ColorIndex = coul

coul = Switch([D12] <= 0.6, 3, [D12] <= 0.8, 46, [D12] <= 1, 10, True, xlAutomatic)
Sheets("KPI").Shapes("Rectangle 133").TextFrame.Characters.Font.ColorIndex = coul

coul = Switch([D19] <= 0.6, 3, [D19] <= 0.8, 46, [D19] <= 1, 10, True, xlAutomatic)
Sheets("KPI").Shapes("Rectangle 134").TextFrame.Characters.Font.ColorIndex = coul

End Sub

La 2ème macro prend plus de temps et s'exécute pour tout changement dans la feuille.

A+
 

Pièces jointes

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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
XL 2019 Mise en forme conditionnelle la couleur
Réponses
1
Affichages
231
TooFatBoy
L
  • Question Question
XL 2021 Mise en forme conditionnelle à partir d'autre colonne
Réponses
7
Affichages
349
CHRIS1945
C
Q
  • Question Question
XL 2010 Problème avec la mise en forme conditionnelle
Réponses
4
Affichages
229
quickfuture
Q
E
  • Question Question
XL 2016 Mise en forme conditionnelle conservée après actualisation d'un TCD
Réponses
1
Affichages
328
chris
C
  • Question Question
XL 2021 Retrouver l'assistant importation de texte quand on fait une extraction à partir d'un .CSV ?
Réponses
6
Affichages
671
cindynico38
C
L
  • Question Question
Autres Mise en forme de 10 données
Réponses
4
Affichages
256
lepiouf
L
L
  • Question Question
XL 2021 RechercheX et Mise en forme conditionnelle
2
Réponses
17
Affichages
412
Lucie85
L
C
  • Question Question
XL 2016 récupérer la mise en forme d'une cellule vers une autre cellule
Réponses
1
Affichages
645
TooFatBoy
C
  • Résolu(e)
XL 2021 Mise en forme conditionnelle
Réponses
2
Affichages
302
chrislecycliste
C
U
  • Question Question
Autres Possibilité de faire une macro?
Réponses
10
Affichages
454
un internaute
U
C
  • Question Question
Microsoft 365 Difficulté avec la concatenation en conservant la mise à forme
Réponses
5
Affichages
590
laurent950
B
  • Résolu(e)
Microsoft 365 Recherche de plusieurs critères dans une cellule
2
Réponses
19
Affichages
806
Bambi35
B
T
  • Question Question
Microsoft 365 Les weeks-ends en couleur sur EXCEL
2
Réponses
20
Affichages
708
TooFatBoy
J
  • Question Question
XL 2013 mise en forme conditionnelle contenant plusieurs mots
2
Réponses
16
Affichages
898
jo657
J
T
  • Résolu(e)
XL 2010 Mise en forme conditionnelle
Réponses
4
Affichages
459
tchi456
T
  • Question Question
XL 2016 Transformer la mise en forme d'un tableau
2
Réponses
22
Affichages
811
Cousinhub
A
  • Question Question
XL 2019 Mise en forme
Réponses
4
Affichages
311
TooFatBoy
T
  • Résolu(e)
Microsoft 365 Macro pour changer la couleur d'une cellule si...
2 3
Réponses
36
Affichages
2 K
Toubabou
T
  • Résolu(e)
XL 2010 Zone texte active si dépasse 19:00 [Résolu]
2
Réponses
19
Affichages
888
job75
K
  • Résolu(e)
XL 2010 Roulement automatique
Réponses
9
Affichages
354
komarlehomard
K
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…