Function Coloré(c As Range) As Boolean
Coloré = c.Interior.ColorIndex <> xlNone And c.Interior.ColorIndex <> 2
End Function
Function Coloré(c As Range) As Boolean
If c.Interior.Color <> 16777215 Then Coloré = True
End Function
Bien sûr et au départ j'avais mis Application.Volatile mais en testant j'ai vu que c'était inutile.Ca, je suppose que tu le savais.
Là c'est la propriété de la palette de couleur qui modifie la couleur de la cellule au survol de la souris.Quant à la MFC on pourrait la qualifier de super-volatile ;-) elle se met en place rien qu'en balayant les couleurs avec la souris
Function SuiteColorée(c As Range, P As Range) As Boolean
If c.Interior.Color = 16777215 Then Exit Function
Dim n&: n = c
For Each c In P
If c.Interior.Color <> 16777215 And (c = n - 1 Or c = n + 1) _
Then SuiteColorée = True: Exit Function
Next
End Function
Sub Alea()
'se lance par les touches Ctrl+R
Dim t, ncol%, i&, j%
With Feuil1.[M5:V11] 'plage à adapter
If .Count = 1 Then Exit Sub
Randomize
t = .Value: ncol = UBound(t, 2)
For i = 1 To UBound(t)
For j = 1 To ncol
t(i, j) = Int(1 + 99 * Rnd) 'nombres entiers entre 1 et 99
Next j, i
.Value = t
End With
End Sub
Sub TestMFC()
[F8].Interior.Color = 16777215
End Sub