Discussion :

[Lubinovitch]

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

[Poussemousse]

Bonjour Lubinovitch,

Pourquoi avoir choisi de faire faire un calcul apparemment relativement long à Excel sous VBA à chaque fois qu'une cellule va potentiellement changer de valeur, et ne pas avoir choisi de faire directement une règle de MFC avec formule ?


et par défaut d'appliquer le style "normal" à l'ensemble de la zone considérée (G9 à G150 si je ne me trompe pas) ?




Cordialement,
Poussemousse

[Lubinovitch]

Bonjour PousseMousse,

Tout simplement parce que je n'y avais pas pensé mais merci bien pour ton aide !

[Poussemousse]

Bonjour PousseMousse,

Tout simplement parce que je n'y avais pas pensé mais merci bien pour ton aide !

De rien, c'est à ça que sert le forum d'entraide.
Merci de penser à marquer la question comme résolue si c'est le cas.

Poussemousse