XL 2019 double clic colore de vert fluo ?

[anthoYS]

Bonjour;

comment adapter ce code pour faire simple, à savoir colorer de vert fluo la case double cliquée ?

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim couleurs()
couleurs = Array(RGB(0, 255, 0), RGB(255, 255, 0), RGB(255, 192, 0), RGB(255, 0, 0), RGB(255, 255, 255))
On Error GoTo color
Target.Interior.color = couleurs(Application.WorksheetFunction.Match(Target.Interior.color, couleurs, 0) Mod 5)
Cancel = True
Exit Sub
color:
Target.Interior.color = couleurs(0)
Cancel = True
End Sub

merci

 

[sylvanu]

Bonjour Antho,
Un essai en PJ avec ce que j'ai compris.

Option Explicit
Public CellAvant ' mémorise la précédente cellule cliquée
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If CellAvant <> "" Then Range(CellAvant).Interior.color = xlNone    ' Si non vide alors fond transparent
    Target.Interior.color = RGB(0, 255, 0)                              ' Fond en vert fluo
    CellAvant = Target.Address                                          ' on mémorise l'adresse de la cellule cliquée
End Sub

 

[Lolote83]

Bonjour @anthoYS ,
Si tu ne veux que le vert fluo, cela devrait le faire comme ceci

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    Target.Interior.color = RGB(0, 255, 0)
End Sub

@+ Lolote83

 

[anthoYS]

XL 2019 - Quelle formule utiliser pour colorer le jour en cours en fond jaune... ?

Bonjour, et quand je clique sur RAZ, mettre aujourd'hui() en B1 et supprimer le contenu de B2 à D67. je vais quand même essayer de trouver... je reviens vers vous. Merci !

excel-downloads.com

Re

je veux aussi que le RAZ de ce fil, supprime le vert de ce fil en cours.
je vais tester...

merci
je reviens si le vert n'est pas effacé.

 

[anthoYS]

Bonjour Antho,
Un essai en PJ avec ce que j'ai compris.

Option Explicit
Public CellAvant ' mémorise la précédente cellule cliquée
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If CellAvant <> "" Then Range(CellAvant).Interior.color = xlNone    ' Si non vide alors fond transparent
    Target.Interior.color = RGB(0, 255, 0)                              ' Fond en vert fluo
    CellAvant = Target.Address                                          ' on mémorise l'adresse de la cellule cliquée
End Sub

ça ne va pas parce que, ça colore qu'une seule cellule pas plusieurs. J'entends séparément, chaque doublic clic colore une case, et pas efface la précédente MEFC (vert fluo).

Merci beaucoup encore !

 

[anthoYS]

Bonjour @anthoYS ,
Si tu ne veux que le vert fluo, cela devrait le faire comme ceci

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    Target.Interior.color = RGB(0, 255, 0)
End Sub

@+ Lolote83

celui-ci est mieux.

 

[sylvanu]

Alors c'est beaucoup plus simple :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Target.Interior.color = RGB(0, 255, 0)                              ' Fond en vert fluo
End Sub

 

[anthoYS]

Alors c'est beaucoup plus simple :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Target.Interior.color = RGB(0, 255, 0)                              ' Fond en vert fluo
End Sub

merci encore !

 

[anthoYS]

Bonjour @anthoYS ,
Si tu ne veux que le vert fluo, cela devrait le faire comme ceci

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    Target.Interior.color = RGB(0, 255, 0)
End Sub

@+ Lolote83

merci, c'est ça également.