XL 2013 Userform calendrier problème Target.Address

[CGU2022.]

Bonjour les ExcelDownloadiens...

Je reviens vers vous avec un problème de Target.Address.
Je souhaite pouvoir lancer et utiliser mon calendrier sur les 30 lignes en dessous de la cellule C5.

Dans mon exemple cela marche sur trois cellules mais je veux éviter de recopier ce code 30 fois.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Address = "$C$5" _
Or Target.Address = "$C$6" _
Or Target.Address = "$C$7" Then  'a repeter jusque la ligne 35
  
    calendrier1.Show 1
  End If
  Cancel = True

End Sub

Avez vous une idée ?

Cordialement.
CGU2022.

 

[sylvanu]

Bonjour CGU,
Entre autre, vous pouvez utiliser :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("C5:C35")) Is Nothing Then
          calendrier1.Show 1
    End If
End Sub

 

[Hasco]

Bonjour,

Quelque chose comme ça et à vue de nez :

If Not Intersect(Target, Range("C5:C35")) Is Nothing Then calendrier1.Show 1

P.S. je n'ai pas téléchargé votre fichier.
cordialement

 

[CGU2022.]

Bonjour CGU,
Entre autre, vous pouvez utiliser :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("C5:C35")) Is Nothing Then
          calendrier1.Show 1
    End If
[QUOTE="Hasco, post: 20557165, member: 217342"]
Bonjour,

Quelque chose comme ça et à vue de nez :
[CODE=vb]If Not Intersect(Target, Range("C5:C35")) Is Nothing Then calendrier1.Show 1

P.S. je n'ai pas téléchargé votre fichier.
cordialement

merci
End Sub[/CODE]
[/QUOTE]
Merci.....