Calendrier à afficher sur clic droit dans les cellules A ou D + MEFC

Bonjour

Dans mon fichier

Mon souhait, si double clic en A ou D figer la date du jour dans la cellule double cliqué..

Sinon :

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Or Target.Column 4 Then Cells(Target.Row, 1) = Date
End Sub

Doit s'ajouter au premier code :

Voir feuille 2 du fichier joint ou ici :
(pour le reste tout est indiqué dans le fichier)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A1:E10100")) Is Nothing Then
        If Target.Interior.Color = vbGreen Then
            Range("A" & Target.Row & ":E" & Target.Row).Interior.Color = vbWhite
            Cells(Target.Row, "C") = ""
        Else
            Range("A" & Target.Row & ":E" & Target.Row).Interior.Color = vbGreen
            Cells(Target.Row, "C") = "ok"
        End If
    End If
End Sub<br>

up

Bonjour

Hou, c'est pas bien...

Question posé sur Excel Download... avec 9 réponses...

A+ François