Discussion :

[fahim3u]

Bonjour les gars .
Jaimerais bien savoir comment faire pour mettre ce que je mets en mise en formes conditionnelle sur une macro . Je m'explique. Jai une colonne avec de chiffres. Si les chiffres supérieurs ou egal 80 la case soit en vert sinon en rouge . Mais tout ca se modifie une j'appuie sur un bouton. Merci davance

[BENNASR]

bonsoir
avec bouton :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub testtt()
Dim C As Range
For Each C In Sheets("feuil1").Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
If C.Value > 80 Then
C.Font.ColorIndex = 10
Else
C.Font.ColorIndex = 3
End If
Next
End Sub

et si tu veux que la couleur change suite au saisie d'une valeur ; voir worksheet_change :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
    If Not Application.Intersect(Target, Range("A2:A2000")) Is Nothing Then
        If Target.Value > 80 Then
        Target.Font.ColorIndex = 10
        Else
        Target.Font.ColorIndex = 3
        End If
        End If
    Application.EnableEvents = True
 
End Sub

bonne continuation