XL 2019 double clic colore de vert fluo ?

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

Cliquez pour agrandir...

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

Cliquez pour agrandir...

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

Cliquez pour agrandir...

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

Cliquez pour agrandir...