Userform calendrier par dbl click

Bonsoir a tous.

On viens de me filer ce classeur, qui ouvre un calendrier magnifique quand on double clik.

Mon seul soucis, c'est que je souhaite que le double click soit actif uniquement sur K6 et K8

Quelqu'un pourrais m'aider svp?

Et que dois-je exporter pour que ca puisse fonctionner correctement sur une feuil précise de mon classeur perso?

Merci par avance.

Bonjour,

Il faut utiliser : If Not Intersect(Target, Range("K6","K8")) Is Nothing then

Voir le fichier joint modifié....

Espérant le tout conforme ....

Gelinotte

super ca merci bcp,

du coup si je veut l'appliquer dans mon classeur perso sur une feuil precise.

Je dois exporter quoi?

bonjour,

Tu ouvres ton classeur de travail et le classeur modele de calendrier.

Dans VBA dans la fenêtre VBAProject, tu fais glisser

- Le UserForm

- Le Module1 (au besoin en le renommant)

- Le module de classe

Il n'y a rien à retoucher sur ces 3 feuilles.

Faire Glisser également la feuille "Fériés" d'un classeur à l'autre : Il faudra juste modifier les dates tous les ans sur cette feuille.

Dans le module de ta Feuille de travail, tu copies le code suivant :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim sDate As Date
If Target.Count = 1 Then
   If Not Intersect(Target, Range("K6", "K8")) Is Nothing Then
     Cancel = True
     vDate = IIf(IsDate(Target.Value), Target.Value, Date)
     UsFCalendrier.Show
   End If
End If
End Sub

A+

Merci nikel,

alors j'ai une erreur par contre. (nombre d'arguments incorrect ou affectation et ca me surligne en bleu Range.

je souhaite activer le calendrier par dbl click en J13, L13 et M13

If Not Intersect(Target, Range("J13", "L13", "M13")) Is Nothing Then

Cancel = True

Quand je met uniquement L13 ca fonctionne. impossible de mettre aussi en J et M

Alors je viens de comprendre.

L13 est sur une colonne

J13 est en faite JK13 et M est MN13

une idée de comment je peux faire.

Sachant qu'en dessous j'ai une tableau donc impossible de mettre ma cellule J13 seulement en J

Bonjour,

Oui j'avais adopté la notation de Gélinotte un peu hâtivement...

Il faut écrire :

If Not Intersect(Target, Range("J13, L13, M13")) Is Nothing Then

A+

Parfait merci infiniment !!

Je change le statut du post merci encore