XL 2013 Userform calendrier problème Target.Address

CGU2022. · 29 Décembre 2022

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.

sylvanu · 29 Décembre 2022

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

sylvanu · 29 Décembre 2022

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

Hasco · 29 Décembre 2022

Bonjour,

Quelque chose comme ça et à vue de nez :

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

CGU2022. · 29 Décembre 2022

sylvanu à dit:

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.....

XL 2013 Userform calendrier problème Target.Address

CGU2022.

XLDnaute Junior

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Hasco

XLDnaute Barbatruc

CGU2022.

XLDnaute Junior

Discussions similaires