XL 2019 double clic colore de vert fluo ?

anthoYS · 7 Novembre 2022

Bonjour;

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

VB:

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 · 7 Novembre 2022

Alors c'est beaucoup plus simple :

VB:

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

sylvanu · 7 Novembre 2022

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

VB:

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 · 7 Novembre 2022

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

VB:

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

@+ Lolote83

anthoYS · 7 Novembre 2022

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 · 7 Novembre 2022

sylvanu à dit:

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

VB:

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 · 7 Novembre 2022

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

VB:

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 · 7 Novembre 2022

Alors c'est beaucoup plus simple :

VB:

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 · 7 Novembre 2022

sylvanu à dit:

Alors c'est beaucoup plus simple :

VB:

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 · 7 Novembre 2022

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

VB:

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.

XL 2019 double clic colore de vert fluo ?

anthoYS

XLDnaute Barbatruc

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

Lolote83

XLDnaute Barbatruc

anthoYS

XLDnaute Barbatruc

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

anthoYS

XLDnaute Barbatruc

anthoYS

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

anthoYS

XLDnaute Barbatruc

anthoYS

XLDnaute Barbatruc

Discussions similaires