Discussion :

[amorapa]

Bonjour,

J'ai commencé à faire un code pour changer la couleur de la police dans une zone texte, en fonction de la valeur d'une autre cellule se trouvant sur une autre feuille

Pour être plus clair

Si ma cellule "E6" de la feuille "chiffre" est inférieur à 1 (car pourcentage), alors la couleur de la police dans la zone texte (Texte box 1) de la feuille est rouge, sinon noir.

J'ai mis en rouge dans le code, ce que je ne sais pas faire

Merci de votre aide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41

Sub Changercouleur()
'
' Changercouleur Macro
'

'
    if
    
    Sheets("chiffre").Select
    Range("E7").Select < 1
    
    
    Then
    
    ActiveSheet.Shapes.Range(Array("TextBox 1")).Select
   
    With Selection.ShapeRange.TextFrame2.TextRange.Font.Fill
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent2
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = 0
        .Transparency = 0
        .Solid
    
    Sinon
    
    ActiveSheet.Shapes.Range(Array("TextBox 1")).Select
    
    With Selection.ShapeRange.TextFrame2.TextRange.Font.Fill
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorText1
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = 0.150000006
        .Transparency = 0
        .Solid
    
    End With
  
End Sub

[helas]

Bonjour,
le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
If Range("E7") < 1 Then
    Sheets("chiffre").TextBox1.ForeColor = RGB(255, 0, 0)
Else
    Sheets("chiffre").TextBox1.ForeColor = 0
End If

[amorapa]

Le code ne marche pas, j'ai aussi corrigé E7 par E6

Je pense qu'il doit y avoir un prob au niveau reconnaissance de la zone texte que excel définie par un truc du gene

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ActiveSheet.Shapes.Range(Array("TextBox 1")).Select

Je met le fichier tout simple, ça peut aider

http://www.cjoint.com/c/ELkhKyVhpbx

Merci

Le code marche pas, il ne doit pas manquer grand chose

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Sub Changercouleur()
'
' Changercouleur Macro
 
 
 
    Sheets("chiffre").Range("E6").Select < 1 Then
 
    ActiveSheet.Shapes.Range(Array("TextBox 1")).Select
 
    With Selection.ShapeRange.TextFrame2.TextRange.Font.Fill
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent2
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = 0
        .Transparency = 0
        .Solid
 
    Else
 
    ActiveSheet.Shapes.Range(Array("TextBox 1")).Select
 
    With Selection.ShapeRange.TextFrame2.TextRange.Font.Fill
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorText1
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = 0.150000006
        .Transparency = 0
        .Solid
 
    End With
  End If
End Sub

C'est le signe inférieur qui pose déja problème

[clementmarcotte]

Tu as la réponse dans ton autre fil

[amorapa]

Il change la couleur en rouge (sans doute parce que c'est supérieur à 1) comme je le souhaite.

Par contre si ma valeur après est supérieur à 1 elle reste rouge et ne redevient pas noir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
 
Sub Changercouleur()
 
'
' Changercouleur Macro
 
Dim cellule
cellule = Sheets("chiffre").Range("E6")
 
If cellule < 1 Then
 
    ActiveSheet.Shapes.Range(Array("TextBox 1")).Select
 
    With Selection.ShapeRange.TextFrame2.TextRange.Font.Fill
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent2
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = 0
        .Transparency = 0
        .Solid
    End With
 
Else
 
    ActiveSheet.Shapes.Range(Array("TextBox 1")).Select
 
    With Selection.ShapeRange.TextFrame2.TextRange.Font.Fill
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorText1
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = 0.150000006
        .Transparency = 0
        .Solid
 
    End With
  End If
End Sub

[amorapa]

Tu as la réponse dans ton autre fil

Comment je dois faire pour que cela s'execute automatiquement ?

Je dois affecter la macro à ma zone texte ?

Je dois rajouter une ligne refresh ?