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