Changement de couleur d'une cellule

Bonjour,

Essaies ce code dans le module de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Target, [A1:A20]) Is Nothing Then Exit Sub
  ColorerCellule Target
End Sub
Sub ColorerCellule(r As Range)
Dim a As Integer
Dim p As Range
Dim c As Range
Dim d As Range
Dim e As Boolean
  Randomize
  Set p = Range("A1:A20")
  For Each c In r.Cells
  If c.Formula <> "" Then
  e = False
  Do
  ' aléa Colorindex 1 à 56
  a = Int(Rnd * 56) + 1
  For Each d In p.Cells
  If d.Interior.ColorIndex = a Then
  e = True  'Couleur existante dans la plage
  Exit For
  End If
  Next d
  Loop While e
  c.Interior.ColorIndex = a
  Else
  c.Interior.ColorIndex = xlNone
  End If
  Next c
End Sub

Bonjour Patrice,

Merci de votre aide.

Ca fonctionne plus ou moins bien, mais à un moment donné, Excel plante.

Sinon, concernant le fonctionnement, quand je repasse d'une cellule à l'autre avec le clavier ou la souris (en cliquant), les couleurs rechangent sans cesse.

L'idée était que par exemple j'indique une valeur sur A1, la celulle prends une couleur mais qui reste ensuite figée.

J’inscris ensuite une valeur sur A2, ou bien A3 et la cellule prends une autre couleur différente mais qui restera figée à son tour, etc...

Voilà.

En tout cas, encore merci pour cette réponse

Jérôme