Comment lancer le calendrier que sur 4 plages bien déterminés après double clic?

[anthoYS]

Bonsoir,

Voici la tête du calendrier,



le code pour le lancer dans une de mes feuilles...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("E:E")) Is Nothing And IsEmpty(Target) Then
Calendrier.Show
End If
Cancel = True
End Sub

Le code de l'objet du calendrier :

Private Sub UserForm_Initialize()
Reikavik.Value = Now
End Sub

Comment lancer ce même calendrier dans une autre feuille mais seulement en de G159:G180, J159:J180, G205:G219 et J205:J219 ?

Merci par avance

 

[CBernardT]

Re : Comment lancer le calendrier que sur 4 plages bien déterminés après double clic?

Bonsoir anthoYS,

Placer dans le module de la feuille où doit apparaître le calendrier cette macro :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("G159:G180,J159:J180,G205:G219,J205:J219")) Is Nothing And IsEmpty(Target) Then
Calendrier.Show
End If
Cancel = True
End Sub

 

[anthoYS]

Re : Comment lancer le calendrier que sur 4 plages bien déterminés après double clic?

Merci CBernardT,

le problème c'est que ça ne valide pas par double clic la date choisie.

Comment faire une fois avoir choisie la date ?

A+

 

[kiki29]

Re : Comment lancer le calendrier que sur 4 plages bien déterminés après double clic?

Salut,à adapter sans doute mais la base est là
dans ThisWorkbook

Option Explicit

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    If Not Application.Intersect(Target, Range("E:E")) Is Nothing And IsEmpty(Target) Then
        UserForm1.Show
    End If
    Cancel = True
End Sub

Dans UserForm

Option Explicit

Private Sub Calendar1_Click()
    ActiveCell = CDate(Calendar1.Day & "/" & Calendar1.Month & "/" & Calendar1.Year)
End Sub

Private Sub UserForm_Initialize()
    Calendar1 = Now
End Sub

 

[anthoYS]

Re : Comment lancer le calendrier que sur 4 plages bien déterminés après double clic?

Bonjour,

Merci kiki29.

 

[anthoYS]

Re : Comment lancer le calendrier que sur 4 plages bien déterminés après double clic?

re à tous les intéréssés ;

voici mon problème avec le fichier joint,

quand je double clique, rien ne se passe.

bonne fin de journée 🙂

 

[pierrejean]

Re : Comment lancer le calendrier que sur 4 plages bien déterminés après double clic?

bonjour anthoys

teste

Private Sub Reikavik_DblClick()
ActiveCell = Reikavik.Value
Unload Calendrier
End Sub

 

[anthoYS]

Re : Comment lancer le calendrier que sur 4 plages bien déterminés après double clic?

bonjour et merci pierrejean,

mais ça ne fonctionne pas chez moi, il (le code) ne permet plus de charger le calendrier.

 

[kiki29]

Re : Comment lancer le calendrier que sur 4 plages bien déterminés après double clic?

Re, une version à priori corrigée

 

[anthoYS]

Re : Comment lancer le calendrier que sur 4 plages bien déterminés après double clic?

re,

d'abord :



et ensuite :