Calendrier par rapport à une plage donnée

[dav123]

Bonjour le Forum

J'ai récupérer sur le forum un fichier qui permet d'intègrer un calendrier par rapport à des colonnes définies
Par contre mon besoin serait d'avoir ce calendrier non pas via toute une colonne mais par rapport à une plage de cellule
de C17:L17
de D48
de K4:K8
C1
D1

Pouvez vous m'aider sur la syntaxe à mettre en œuvre dans la macro

 

[ROGER2327]

Re : Calendrier par rapport à une plage donnée

Bonjour dav123

Essayez ceci :

[COLOR="DarkSlateGray"]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   If Target.Count > 1 Then Exit Sub
   If Not Intersect(Target, Union(Range("C17:L17"), Range("D4:D8"), Range("K4:K8"), Range("C1:D1"))) Is Nothing Then
      Calendrier1.Show
      Cancel = True
   End If
   If date2 > 0 Then
      Target.Value = date2
   End If
End Sub[/COLOR]

ROGER2327

 

[dav123]

Re : Calendrier par rapport à une plage donnée

Bonjour Roger, le Forum

Merci Roger, réponse parfaite