Insérer calendrier cellule excel [Résolu]

Merci Eric, ça marche je te suis très reconnaissant ; je vais enfin pourvoir présenter un fichier qui ressemble un peu à qqchose..
Si j'ai d'autres questions sur ces logiciels comment puis-je te contacter en direct sur ce site ?
Es-tu calé sur access également ?
Merci encore et à bientôt

Bonjour eriiic
je fais remonter ce message car j'aimerai savoir
1- s'il est possible de mettre le calendrier sur 3 colonnes au lieu d'une seule (dans mon cas E, F et M)
2- s'il est possible dans la macro de déclencher la multiplication par 1 pour pouvoir utiliser la date (calcul)

merci

Bonjour Usul,

Adaptation vite faite pour cause de valise à faire.... ;-)
http://www.cijoint.fr/cjlink.php?file=cj201107/cijO2M6mst.xls

Reste un petit pb (qui existait peut-être sur l'autre version) : sur suppression d'une date il affiche quand même 12:00:00 AM
Tu pourras compléter si besoin je pense
Attention: déclaration d'une variable dans un module.
Mauvais reflexe, je pense que tu peux la ramener dans la feuille, mais hors sub

eric

merci, fallait pas te presser, y a rien qui presse mais c'est sympa d'avoir pris sur ton temps précieux alors bonnes vacances
pour moi c'est en août ;-)

on en reparle à la rentrée

Salut à tous,
Salut Eriiic,
(au passage superbe tableau, très belle solution)
Bon pour Dat, il semble relativement aisé à adapter ce code. Suffit de suivre les étapes :
1ère partie :
sur la feuille :
- menu 'affichage / barre d'outils' cocher 'barre d'outils contrôles"
- dans cette barre cliquer sur l'outil 'autres contrôles…' (tout à droite)
- sélectionner 'contrôle calendrier 11.0'
- le dessiner sur la feuille

ça je suppose que ça ne te pose pas de souci?

2ème partie le code : clic droit sur l'onglet de ta feuille et :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' si la sélection sur la feuille change (target est la référence de la sélection)
If Target.Column <> 3 Or Target.Row < 2 Or Target.Cells.Count > 1 Then
'si n° colonne<>3 (C) dans ton cas, colonne G remplace 3 ci dessus par 7 ou n° ligne<2 ou la sélection fait plus d'1 cellule
Calendar1.Visible = False
'alors on cache le calendrier
Exit Sub
Else
'sinon
Calendar1.Top = Target.Offset(1, 0).Top
' aligner le calendrier avec le haut de la cellule en dessous
Calendar1.Left = Target.Left
' l'aligner à gauche de la cellule
Calendar1.LinkedCell = Target.Address
' mettre la cellule liée au contrôle sur la cellule sélectionnée
If IsDate(Target.Value) Then
'si la cellule sélectionnée contient une date
Calendar1.Value = Target.Value
' la récupérer
Else
' sinon mettre la date du jour
Calendar1.Value = Date
End If
Calendar1.Visible = True
'afficher le calendrier
End If
End Sub

Essaye sur un classeur Excel vierge et reviens nous dire ou tu bloques.

Non une fois que tu as copié collé le code, fermé la fenêtre visual Basic (là tu vois ta feuille Excel) il fonctionne tout seul, en cliquant sur les cellules de ta feuille...

Edit: pour Eriiic, je me permet d'intervenir ici sans vouloir empiéter sur votre discussion...