XL 2019 Colorer A en jaune si double clic en B ou C, et si B et C non vide, remplis alors coloré A vert fluo...

anthoYS

XLDnaute Barbatruc
Bonjour,


un double clic en B2 par exemple, colore A2 de jaune, ef fige la date du jour en B2. Si ensuite, je fais double clic en C2, alors colorer A2 de vert fluo.

Voir fichier joint.

VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
With Target
 If Target.Column = 2 Then
    Cells(Target.Row, 2) = Date
        Cancel = True
    End If
End With
End Sub

code à peaufiner...


Merci !
 

Pièces jointes

  • DSExlsx.xlsm
    14.2 KB · Affichages: 2

anthoYS

XLDnaute Barbatruc
VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Cancel = True
'With Target
' If Target.Column = 2 Then
'    Cells(Target.Row, 2) = Date
'        Cancel = True
'    End If
'End With

If Not Intersect(Target, Range("B:B")) Is Nothing Then
    Cells(Target.Row, 1).Interior.ColorIndex = 6
    Cells(Target.Row, 2) = Date
End If

If Not Intersect(Target, Range("C:C")) Is Nothing Then
    Cells(Target.Row, 1).Interior.ColorIndex = 4
    Cells(Target.Row, 3) = Date
End If
End Sub

colorer en jaune si C seulement double cliqué en même temps de figer la date en C
si B ou C seulement cliqué et date figé en B ou C selon le double clic, ne colorer de jaune A, si les deux B et C alors vert fluo A.

merci !
 

anthoYS

XLDnaute Barbatruc
Re

@anthoYS
Mettre la date dans la colonne C n'était pas dans la question ;)
Je l’impression que tu veux autre chose maintenant ?

@Phil69970
oui pardon je croyais l'avoir précisé. Par contre, ça ne va pas dans la mesure ou si je clique en C, ça colore A de vert fluo, or A doit être coloré en fluo vert que si B et C ont une date. Si seulement C daté, colorer A de jaune, il manque ça dans le code VB.
 

Phil69970

XLDnaute Barbatruc
Re

C'est pas bien clair dans mon esprit

1)Si tu double clic sur B
==> Date du jour en B + couleur jaune en A

1)Si tu double clic sur C La c'est flou pour moi
==> Date du jour en C + couleur Vert en A ?
Et si B et C ont une date alors A en jaune ?

*On est loin de la demande initiale car ton post ne parlait pas du tout de ça ......;)

@Phil69970
 

Discussions similaires

Réponses
4
Affichages
217

Statistiques des forums

Discussions
298 971
Messages
1 973 282
Membres
204 021
dernier inscrit
JnPaco