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

[lpat29]

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

 

[lpat29]

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

En vla une question qu'elle est bonne !

 

[Tibo]

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

@+

 

[job75]

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) :

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+

 

[job75]

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 :

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+

 

[lpat29]

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
🙂

 

[job75]

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" :

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

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+