Mise en forme conditionnelle sous VBA
Bonjour à tous,
J'ai besoin de créer une mise en forme conditionnelle ayant 2 conditions et j'ai décidé de passer sous VBA pour aller plus vite et j'ai fais ça :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim I As Long
For I = 9 To 150
If Cells(I, 2).Value <> Cells(I, 7).Value And Cells(I, 2).Value > 0 Then
Cells(I, 7).Font.Color = RGB(192, 80, 77)
Cells(I, 7).Font.Bold = True
Cells(I, 7).Interior.Color = RGB(255, 209, 209)
Else
Cells(I, 7).Font.Color = RGB(0, 0, 0)
Cells(I, 7).Font.Bold = False
Cells(I, 7).Interior.Color = RGB(217, 217, 217)
End If
Next I
End Sub |
Mon code marche très bien c'est pas le soucis mais il est extrêmement lent et j'aimerai l'optimiser. Je suis sûr qu'il y a d'autres moyens de faire ce que j'ai fait et j'aimerai savoir si vous aviez des solutions.
Cordialement,
Lubinovitch
