Ajouter un calendrier sur excel dans deux cellules distinctes Résolu/Fermé

Question

Bonjour, 

J'ai recherche sur le forum un moyen de pouvoir inserer un calendrier sur excel afin de pouvoir choisir le jour, le mois et l'année. 

Voici l'objet de mes recherches ci-dessous:

Pouvez-vous me dire ce qu'il faut modifier ou rajouter dans cette macro afin de pouvoir consulter le calendrier en cellule B14 et en cellule D14.

Concrètement, je voudrai pouvoir choisir la date à deux niveaux.

Du ............ au ............ pour spécifier une periode de congés par exemple. 

Pouvez-vous m'aider ? Je vous en remercie par avance.



Option Explicit

Private Sub Calendar1_Click()
    Range("A3").Value = Calendar1.Value
End Sub
'

Private Sub Calendar1_LostFocus()
    Calendar1.Visible = False
End Sub
'

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim Intersection As Range, Plage As Range

    Set Plage = Range("A1")

    Set Intersection = Application.Intersect(Target, Plage)
    If Not (Intersection Is Nothing) Then
        Calendar1.Visible = True
    End If

End Sub

eriiic · Answer

Bonjour,

un fichier avec ton Contrôle serait mieux.
Il y a tellement de versions différentes et de problèmes d'activation.

Atout hasard, sans tester :
Private Sub Calendar1_Click()
activecell.Value = Calendar1.Value
End Sub
'

Private Sub Calendar1_LostFocus()
Calendar1.Visible = False
End Sub
'

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Intersection As Range, Plage As Range

Set Plage = union(Range("B14"),Range("D14"))

Set Intersection = Application.Intersect(Target, Plage)
If Not (Intersection Is Nothing) Then
Calendar1.Visible = True

End If

End Sub
 
avant l'affichage du calendar tu pourrais ajouter :
calendar1.top=activecell.offset(1).top
calendar1.left=activecell.offset(1).left

eric

Tyrese3 · Answer

Bonjour Eric,

Je te remercie pour ta réponse.

Néanmoins, il y a juste une petite chose qui me dérange.

Lorsque je clique sur la cellule C14, D14 ou C37 le calendrier apparait jusque là tout va bien.
Mais lorsque le calendrier apparait et que je ne choisi pas encore de date et que je place par hasard avec la souris sur une autre cellule la date apparait dans cette autre cellule.
Peux-tu modifier la macro afin que sa ne puisse pas faire cela ?
Je te remercie d'avance pour ta réponse.

Est-ce que c'est possible d'avoir deux macros distinctes (donc 2 boutons) dans la meme feuille ?
Je m'explique: la cellule C37 se trouvant un peu plus en bas dans ma feuille. 
Lorsque je clique en C37 le calendrier apparait au niveau des cellules B14 et D14.
De ce fait, pour voir le calendrier je suis obligé de remonter la page.
Y-a-t-il une solution pour voir le calendrier au même niveau que la cellule C37.
Concernant les deux autres cellules B14 et D14 le calendrier me convient à l'endroit ou il apparaît.

Voir fichier ci-joint:

http://cjoint.com/data3/3GekNcObAJm_test_calendrier.xlsm

Tyrese3 · Answer

Merci beaucoup,

C'est génial !ça marche ! :-)

Ajouter un calendrier sur excel dans deux cellules distinctes

3 réponses

Discussions similaires