XL 2013 Userform calendrier problème Target.Address

CGU2022.

XLDnaute Junior
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.
VB:
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.
 

Pièces jointes

  • recup calendrier.xls
    120 KB · Affichages: 5
Solution
Bonjour CGU,
Entre autre, vous pouvez utiliser :
VB:
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

CGU2022.

XLDnaute Junior
Bonjour CGU,
Entre autre, vous pouvez utiliser :
VB:
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.....
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 889
Membres
101 831
dernier inscrit
gillec