Cellule couleur click

Bonjour le Forum,

J'essaie de faire mais rien ni fait.

Je voudrais colorié des cellules dans une colonne (c2:c20, 255, 255, 100) juste en cliquant sur ces dernières.

Auriez-vous une solution ?

Par avance, merci.

Cordialement

ericp

Bonjour

Un test par macro à placer dans la feuille concernée

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Application.Intersect(Target, Range("C2:C20")) Is Nothing Then
   Range("C2:C20").Interior.Color = RGB(255, 255, 100)
  Else
   Range("C2:C20").Interior.ColorIndex = xlColorIndexNone
  End If
End Sub

Bonjour ericp, le forum,

Un essai....

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Application.Intersect(Target, Range("C2:C20")) Is Nothing Then
  If Target.Count > 1 Then Exit Sub
   cancel = True
    'si la cellule est déja colorée,aucune couleur,sinon couleur
    Target.Interior.Color = IIf(Target.Interior.Color = RGB(255, 255, 100), xlNone, RGB(255, 255, 100))
 End If
End Sub

Code à placer dans le module de la feuille...

[EDIT] : bonjour M12

Cordialement,

Bonjour @ vous 2,

j'ai fait les tests, aucune de vos macro ne fonctionne sur mon fichier.

cordialement.

ericp

Re,

As-tu bien placé le code dans le module de la feuille concernée ?

Cordialement,

Oups, je m'étais trompé de feuille pour mettre le code, quel idiot je fais, te déranger pour ce genre de bêtise, certainement la vieillesse,

Encore un grand merci.

Cordialement.

ericp

re oups,

je voudrais faire pareil pour d'autres cellules et quand je bidouille en faisant copier/coller le code en mettant d'autres cellules, ça me beug, sniffff

Re,

Cordialement,

super merci à toi.

cordialement