Bonsoir le forum,
A cette heure ci je vais vous réveiller avec mes questions...
Voilà en faite mon code pour faire clignoter mes cellules, mais mon problème est que les cellules qui répondent aux critères clignotent les une après les autres, je voudrais qu'elles clignotent en même temps, je ne sais pas si c'est possible...
Merci par avance aux courageux...
A cette heure ci je vais vous réveiller avec mes questions...
Voilà en faite mon code pour faire clignoter mes cellules, mais mon problème est que les cellules qui répondent aux critères clignotent les une après les autres, je voudrais qu'elles clignotent en même temps, je ne sais pas si c'est possible...
Merci par avance aux courageux...
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cel As Range
boucl:
a = Range("a1").Value
b = Range("b1").Value
If sto Then Exit Sub
If col = 4 Then col = 0 Else col = 4
If col2 = 3 Then col2 = 0 Else col2 = 3
For Each cel In Range("h9:h50")
If cel.Value = a Then
cel.Interior.ColorIndex = col
Else: cel.Interior.ColorIndex = 0
End If
If cel.Value = b Then
cel.Interior.ColorIndex = col2
Else: cel.Interior.ColorIndex = 0
End If
Next
For X = 1 To 5000
DoEvents
Next X
GoTo boucl
End Sub
Dernière édition: