Colorer en vert C si double clic en E

Bonjour,

Double clic en A ou E fige maintenant() en A ou E respectivement ---> opérationnel

Double clic en D doit ouvrir le calendrier et après validation afficher la date choisie ---> problème

Petite précision, le double clic en E doit colorer en vert C.

Afficher la date en D après validation (calendrier).

Code présent :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub ' pour éviter la sélection de plus d'une cellule
Select Case Target.Column
    Case 1, 5
        Cancel = True
        Target = Now
    Case 4
        Cancel = True
        Calendrier1.Show
End Select
End Sub

Merci par avance.

à +

Bonjour,

Ou làlà, tu peux expliquer d'où vient le code du calendrier ?????

Edit Dan : En attente de ta réponse, voici le code à remplacer dans la feuille TacheAF

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub
Select Case Target.Column
    Case 1
        Target = Now
    Case 5
        Target = Now
        Range("A" & Target.Row).Interior.ColorIndex = 4
    Case 4
        Calendrier1.Show
End Select
Cancel = True
End Sub

re,

Je ne sais plus d'ou, ça été fait il y a longtemps.

Je sais qu'il ne marche pas, d'ou ma question ici.

ça ne marche toujours pas en tout les cas.

merci malgré tout ;

A+

re,

J'ai plutôt l'impression que c'est du Visual Basic mais bon vois le fichier joint en plus simple.

Veille à active l'option "Microsoft Calendar" disponible en VBA par OUTILS / REFERENCE.

Amicalement

re,

Hum... ben tu vois que c'est "manquant" donc normal d'avoir une erreur puisque tu n'as pas l'option Calendar dans tes options VBA. Oublie donc ma proposition et reprends ton premier posté ici.

Dans la feuille tacheAF, modifie le code comme suit:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub
Select Case Target.Column
    Case 1
        Target = Now
    Case 5
        Target = Now: Range("A" & Target.Row).Interior.ColorIndex = 4
    Case 4
        Calendrier1.Show: Target = date2
End Select
Cancel = True
End Sub

Amicalement

Nikel merci maintenant ça marche bien.