Discussion :

[amorapa]

il met en jaune le titre et bloque sur else

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

[clementmarcotte]

Bonjour,

Il manque End With avant ton else.

[amorapa]

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
 
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]

Voilà,

Pourtant un truc simple, mais difficile pour un débutant

En fait le code semble ok, ou peut-être juste modifier un truc.


Ce qu je cherche à faire, c'est changer la couleur de la police dans une zone texte, selon la valeur d'une autre cellule sur une autre feuille.

La zone texte se trouve sur la feuille "source" et le chiffre sur la feuille chiffre.

Le code semble ok

Quel est mon souci

C'est que pour que la macro s’exécute, il faut que je fasse exécuter la macro.

Ensuite, il semblerait que la macro select la zone texte, ce qui fait pas trop discret.


Donc, voici mon code qui se trouve sur une feuille dans la partie VBA dans un module

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

Merci