Calendrier dans cellule

Bonsoir,

Toutes les explications sont dans le fichier
Il faut accepter d'activer les macros pour que le calendrier fonctionne

Cdlmnt

Et quand tu fais touches Alt et F11 le code s'affiche ?

oui!

Soit précis, on ne sait pas de quelle proposition tu parles...
Si c'est celle de JB tu vas dans VBE et tu fais tout à l'identique.

Tu fais un cliqué-glissé du UserForm F_calendrier1dateTableur dans ton classeur pour le copier.

Dans la (les) module feuille qui t'intéressent, copier-colle le code 'Private Sub Worksheet_BeforeDoubleClick' du module Feuil89.
Puis tu adaptes cette ligne à ton besoin :
If Target.Address = "$B$4" Then

eric

Moi aussi 2007
Mon fichier devrait fonctionner chez toi !

Si tu bâtis ton propre fichier , il faut d'abord dans la feuille où tu veux le calendrier inserer le calendrier selon les explications que je t'ai donné dans mon fichier (Onglet Developpeur, Inserer, Autres controles, Controle Calendrier

Après tu fais Alt F11 pour ouvrir l'éditeur, dans l'arborescence à gauche tu choisis la bonne feuille
et dans la fenetre de droite de l'editeur tu colles ces deux macros :

Private Sub Calendar1_Click()
' Met la date sélectionnée dans la cellule active
ActiveCell.Value = Calendar1.Value
' Masque le calendrier
Calendar1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column = 4 And Target.Row = 2 Then
' Si la cellule sélectionnée est D2on affiche le calendrier à côté de la cellule
Calendar1.Visible = True
Calendar1.Top = ActiveCell.Top
Calendar1.Left = ActiveCell.Left + ActiveCell.Width
Else
' Sinon, on masque le calendrier
Calendar1.Visible = False
End If
End Sub

La cellule affectée à la macro est la cellule en colonne 4 et ligne 2 (Target.Column = 4 And Target.Row = 2) donc D4, si tu veux affecter à une autre cellule il suffit de changer les nombres 4 et dans la macro

Cdlmnt

Ça à marché! Sans aller dans développeur... En utilisant le fichier de via55!
J'ai copié exactement les mêmes écritures. Par contre il me reste à comprendre ce que tout ça veut dire!