XL 2019 Calendrier à afficher sur clic droit dans les cellules A ou D + MEFC + dates à figer double clic gauche...

[anthoYS]

Bonjour


tout est expliqué en Feuille 2 du classeur.
N'hésitez pas à revenir vers moi.

Merci par avance

 

[TooFatBoy]

Bonjour

réponses en pj.

 

[anthoYS]

Bonjour

réponses en pj.

Bonjour,

rien ne fonctionne chez moi même en débloquant le fichier...

merci de me dire !

 

[anthoYS]

Mon fichier n'a pas été modifié sauf erreur...

 

[anthoYS]

Pourtant il pèse plus lourd légèrement... je ne comprends pas pourquoi ça bloque...

 

[TooFatBoy]

As-tu seulement lu les réponses que j'ai apportées ?

 

[anthoYS]

As-tu seulement lu les réponses que j'ai apportées ?

Pardon je n'avais pas vu ces modifications, très bien, merci beaucoup !

 

[TooFatBoy]

En revanche, tel quel je ne saurais t'en dire plus.

 

[anthoYS]

Bonjour

Si double clic en A ou D figer la date du jour dans la cellule double cliquée..

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 :

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

 

[anthoYS]

up

 

[anthoYS]

up