VBA création d'un Calendrier dans une cellule excel.

[MAN]

Bonjour le forum
j'ai le classeur joint. je souhaiterai avoir un calendrier vba ou je sélectionnerai la date chaque fois que je clique dans la cellule coloriée.
merci d'avance

 

[piga25]

Re : VBA création d'un Calendrier dans une cellule excel.

Bonjour,

Juste une petite recherche en pas de page permet de trouver des discussions similaires ...

Jour de bonté, votre fichier suivant une solution donnée par YOUKI BJ

 

[Roland_M]

Re : VBA création d'un Calendrier dans une cellule excel.

bonsoir

voir ci-joint

EDIT: mise à jour du classeur !

 

[MAN]

Re : VBA création d'un Calendrier dans une cellule excel.

Grand merci le forum. je sais que je pourrai toujours compter sur vous pour dompter excel

 

[MAN]

Re : VBA création d'un Calendrier dans une cellule excel.

REBONJOUR LE FORUM;
je voudrai que l'action dans le calendrier ci dessous s'effectue aussitot que le cellule en jaune est sélectionnée. dans le cas du fichier ci joint,( avec le plus grand merci pour Roland), il faut plutot doubleclicker. ce n'est pas très pratique.

 

[Modeste geedee]

Re : VBA création d'un Calendrier dans une cellule excel.

bonsour®
dans ce cas il faut définir une plage d'interventions, sinon la selection de n'importe quelle cellule contenant un nombre positif déclenchera l'apparition du calendrier !!!

dans le module de feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, [PlageDates]) Is Nothing Then
            Load fm_CalendrierCellule
            If IsDate(Target) Then fm_CalendrierCellule.Tag = Target Else fm_CalendrierCellule.Tag = Date
            fm_CalendrierCellule.Show: Cancel = True
    End If
End Sub

 

[MAN]

Re : VBA création d'un Calendrier dans une cellule excel.

j'ai éssayé le code et il marche parfaitement. Une fois de plus grand merci le forum
je ne suis cependant pas a la fin de mes ennuis. je voudrai que l'apparution de ce calendrier fasse un bref effet sonore.
JE PEUX ENCORE RËVER

 

[Modeste geedee]

Re : VBA création d'un Calendrier dans une cellule excel.

j'ai éssayé le code et il marche parfaitement. Une fois de plus grand merci le forum
je ne suis cependant pas a la fin de mes ennuis. je voudrai que l'apparution de ce calendrier fasse un bref effet sonore.
JE PEUX ENCORE RËVER

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, [PlageDates]) Is Nothing Then
            Beep
            Load fm_CalendrierCellule
            Beep
            If IsDate(Target) Then fm_CalendrierCellule.Tag = Target Else fm_CalendrierCellule.Tag = Date
            fm_CalendrierCellule.Show: Cancel = True
            Beep
End If
End Sub