XL 2010 Colorer en jaune après un premier clic, puis en vert en un second, puis décolorer (boucle)

[anthoYS]

Bonjour, Re,

Code à adapter à mon souhait. Car là il colore en rouge aussi... Et c'est pas en A ici.

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.CountLarge > 1 Then Exit Sub
Dim x
x = Target.Interior.color
Application.EnableEvents = False
    Select Case x
      Case 65535
        Target.Interior.color = 65280
      Case 65280
        Target.Interior.color = 250
      Case 250
        Target.Interior.color = xlNone
      Case 16777215
        Target.Interior.color = 65535
    End Select
Application.EnableEvents = True
Cancel = True
End Sub

Merci 🙂

 

[anthoYS]

Option Explicit
Private Sub Worksheet_BeforeRightClick(ByVal c As Range, Cancel As Boolean)
    Cancel = True
    If c.Column < 1 Or c.Column > 2 Or c = "" Then Exit Sub
    Select Case c.Interior.ColorIndex
    Case -4142: c.Interior.ColorIndex = 4
    Case 4: c.Interior.ColorIndex = 6
    Case 6: c.Interior.ColorIndex = 3
    End Select
End Sub

 

[Staple1600]

Bonjour le fil, anthoYS

anthoYS
Avec celui-ci, le compte est bon 😉
Jamais deux sans trois

Quelques trucs à effectuer MEFC et coloriages

Bonjour, Comment faire en sorte que si B2 par exemple contient une date, colorer A2 de vert et ainsi de suite dessous. Ensuite, en E2, si F2 remplit alors colorer de jaune E2. double clic en E colore de vert E. Si E3 E3 cellule. Puis choisir la date du calendrier si double clic en...

www.excel-downloads.com

Trois fils pour peu ou prou la même question, non ?
(PS: je ne compte pas les 5 fils qu'on voit à droite dans les discussions similaires que tu as ouvert sur ce type de question)

 

[anthoYS]

Oui merci je vais examiner ces posts.

 

[Staple1600]

Re

Ce sont les tiens !!!
Tu peux les retrouver facilement en allant Trouver des Discussions
Ce lien n'existe plus