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

piga25

XLDnaute Barbatruc

• 19 Septembre 2012

• #2

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

 

Pièces jointes

• DATE.xlsm

  26.8 KB · Affichages: 270
• DATE.xlsm

  26.8 KB · Affichages: 267
• DATE.xlsm

  26.8 KB · Affichages: 252

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 19 Septembre 2012

• #3

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

bonsoir

voir ci-joint

EDIT: mise à jour du classeur !

 

Pièces jointes

• Calendrier AutonomeCellule.xls

  98 KB · Affichages: 161

Dernière édition: 23 Juin 2014

Vote positif 0 Vote négatif

M

MAN

XLDnaute Occasionnel

• 20 Septembre 2012

• #4

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

 

Vote positif 0 Vote négatif

M

MAN

XLDnaute Occasionnel

• 20 Septembre 2012

• #5

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.

 

Pièces jointes

• Calendrier Cellule.xls

  122.5 KB · Affichages: 149
• Calendrier Cellule.xls

  122.5 KB · Affichages: 158
• Calendrier Cellule.xls

  122.5 KB · Affichages: 166

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 20 Septembre 2012

• #6

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 :

VB:

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

 

Vote positif 0 Vote négatif

M

MAN

XLDnaute Occasionnel

• 20 Septembre 2012

• #7

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

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 20 Septembre 2012

• #8

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

MAN à dit:

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

Cliquez pour agrandir...

VB:

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

 

Vote positif 0 Vote négatif