Discussion :

[Laur3nt62]

Bonjour,
J'ai une fonction en VBA sur Excel qui me permet de changer la police d'écriture d'une cellule en fonction de son résultat :

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
42
43
44
45
46
47
48
49
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:="MDP"
    If Target.Count = 1 Then
        If Target.Column = 32 Then
            Select Case Target.Value
                Case "ok"
                    Target.EntireRow.Interior.Color = vbGreen
                Case "Partiel"
                    Target.EntireRow.Interior.Color = vbYellow
                Case "-"
                    Target.EntireRow.Interior.Color = vbRed
                Case Else
                    Target.EntireRow.Interior.ColorIndex = xlNone
            End Select
        ElseIf Target.Column = 30 Then
            Select Case Target.Offset(0, 6).Value
                Case "Aujourd'hui"
                    Target.Offset(0, 6).Font.Name = "Times New Roman"
                    Target.Offset(0, 6).Font.Bold = True
                    Target.Offset(0, 6).Font.Color = vbBlue
                Case "Passée"
                    Target.Offset(0, 6).Font.Name = "Times New Roman"
                    Target.Offset(0, 6).Font.Bold = True
                    Target.Offset(0, 6).Font.ColorIndex = 46    'Orange
                Case Else
                    Target.Offset(0, 6).Font.Name = "Arial"
                    Target.Offset(0, 6).Font.Bold = False
                    Target.Offset(0, 6).Font.Color = vbDark
            End Select
       ElseIf Target.Column = 31 Then
            Select Case Target.Offset(0, 8).Value
                Case "Aujourd'hui"
                    Target.Offset(0, 8).Font.Name = "Times New Roman"
                    Target.Offset(0, 8).Font.Bold = True
                    Target.Offset(0, 8).Font.Color = vbBlue
                Case "Passée"
                    Target.Offset(0, 8).Font.Name = "Times New Roman"
                    Target.Offset(0, 8).Font.Bold = True
                    Target.Offset(0, 8).Font.ColorIndex = 46    'Orange
                Case Else
                    Target.Offset(0, 8).Font.Name = "Arial"
                    Target.Offset(0, 8).Font.Bold = False
                    Target.Offset(0, 8).Font.Color = vbDark
            End Select
       End If
    End If
    ActiveSheet.Protect Password:="MDP"
End Sub

Le problème est que les cellules dont je modifie la mise en forme (colonne 36 et 39) ont leurs résultats qui varient en fonction de la date (aujourdhui()), ce résultat se réactualise en même temps que la date (aujourdhui()), mais pas leur mise en forme, je suis donc obligé de faire F2-Entrer sur les colonnes 30 et 31 pour actualiser la mise en forme des colonnes 36 et 39.
La touche F9 ne change rien.
Et comme les résultats contenus en colonnes 36 et 39 proviennent d’une fonction Excel (classique) et que ces cellules sont de plus protégées, je ne peux pas utiliser Worksheet_Change.

[Laur3nt62]

J'ai trouvé ceci sur un forum :

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
Sub test()
Dim C As Range, T As Double
With Worksheets("Feuil1")
.Select
Application.ScreenUpdating = False
For Each C In .Range("A1:A20")
SendKeys "{F2}" & "~"
C.Select
C.NumberFormat = "General"
T = Timer + 1 / 10000
Do While Timer <= T
DoEvents
Loop
Next
Application.ScreenUpdating = True
End With
End Sub

La personne qui la posté indique :

Tu dois déclencher ce code à partir de l'interface de la feuille de calcul obligatoirement.
Comme la procédure utilise "Select" la feuille désirée doit être la feuille active.

J'ai donc adapté a mon cas comme ceci :

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
Private Sub CommandButton1_Click()
Dim C As Range, T As Double
    With Worksheets("Feuil4")
    .Select
    Application.ScreenUpdating = False
        For Each C In .Range("AD:AD")
        SendKeys "{F2}" & "~"
        C.Select
        C.NumberFormat = "General"
        T = Timer + 1 / 10000
            Do While Timer <= T
            DoEvents
            Loop
        Next
        For Each C In .Range("AE:AE")
        SendKeys "{F2}" & "~"
        C.Select
        C.NumberFormat = "General"
        T = Timer + 1 / 10000
            Do While Timer <= T
            DoEvents
            Loop
        Next
    Application.ScreenUpdating = True
    End With
End Sub

Mais lorsque je clique sur le bouton (CommandButton1) rien ne se passe avec le code placé dans ThisWorkBook
Si je le met dans "Feuil4" j’obtiens une erreur : "L'indice n'appartient pas à la sélection"

[Gord21]

Bonjour,
Tu peux utiliser l'évènement Open ou Activate de ta feuille pour mettre à jour ton classeur.

@+

[Laur3nt62]

Oui je pense que c'est possible, quoi qu'il en soit j'ai opté pour simplification de ma feuille de travail.
Pour ce qui sont intéressés j'ai tout de même réussit à trouver comment arranger le code afin d'actualiser quelque cellules a partir d'un bouton :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub CommandButton1_Click()
    Dim c As Range
    For Each c In Range("AD1:AD2").Cells
        c.Select
        SendKeys "{F2}" & "~"
        T = Timer + 1 / 10000
        Do While Timer <= T
        DoEvents
        Loop
    Next
End Sub

Ensuite j'ai mit le code directement dans ma feuille 4.