Couleur aléatoire par macro

Salut a tous.

J'aimai savoir si il possible, à l'aide d'une macro VBA, d'affecter une couleur aléatoire à une cellule?

Bonjour

Un essai

Option Explicit

Sub Coloriage()
Dim J As Long
Dim I As Integer

  Randomize
  For J = 1 To 100
  For I = 1 To 200
    Cells(J, I).Interior.Color = RGB(Int(256 * Rnd), Int(256 * Rnd), Int(256 * Rnd))
  Next I
  Next J
End Sub

Bonjour

la macro à l'air de s'affecter dans toute la feuille, comment l'ajuster pour qu'elle s'applique à une sélection?

Merci

Bonjour,

Ce sont les valeurs I et J qu'il faut modifier. I étant la colonne (A = 1, B = 2, etc.) et J la ligne.

Par exemple,pour ne colorier que la cellule B1 :

Sub Coloriage()
Dim J As Long
Dim I As Integer

  Randomize
  Cells(1, 2).Interior.Color = RGB(Int(256 * Rnd), Int(256 * Rnd), Int(256 * Rnd))

End Sub

Bonjour

J'arrive un peu tard mais voici un code qui permet qu'à chaque nouvelle sélection, la couleur de celle -ci change

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Static selection_precedente As String

'Coloration de la sélection actuelle :

Target.Interior.Color = RGB(Int(256 * Rnd), Int(256 * Rnd), Int(256 * Rnd))

'Enregistrement de l'adresse de la sélection actuelle :

selection_precedente = Target.Address

End Sub