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

TooFatBoy

XLDnaute Barbatruc

• 5 Mars 2024

• #2

Bonjour

réponses en pj.

 

Pièces jointes

• calendrier_afficher_plus_selectionner_date.xlsm

  37 KB · Affichages: 14

Vote positif 1 Vote négatif

anthoYS

XLDnaute Barbatruc

• 6 Mars 2024

• #3

TooFatBoy à dit:

Bonjour

réponses en pj.

Cliquez pour agrandir...

Bonjour,

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

merci de me dire !

 

Vote positif 0 Vote négatif

anthoYS

XLDnaute Barbatruc

• 6 Mars 2024

• #4

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

 

Vote positif 0 Vote négatif

anthoYS

XLDnaute Barbatruc

• 6 Mars 2024

• #5

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

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 6 Mars 2024

• #6

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

 

Vote positif 0 Vote négatif

anthoYS

XLDnaute Barbatruc

• 6 Mars 2024

• #7

TooFatBoy à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 6 Mars 2024

• #8

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

 

Vote positif 0 Vote négatif

anthoYS

XLDnaute Barbatruc

• 8 Mars 2024

• #9

Bonjour

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

VB:

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 :

VB:

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

Cliquez pour agrandir...

 

Pièces jointes

• calendrier_afficher_plus_selectionner_date v.1.2.xlsm

  54.9 KB · Affichages: 8

Vote positif 0 Vote négatif

anthoYS

XLDnaute Barbatruc

• 10 Mars 2024

• #10

up

 

Vote positif 0 Vote négatif

anthoYS

XLDnaute Barbatruc

• 11 Mars 2024

• #11

up

 

Vote positif 0 Vote négatif