Calendrier lié avec cellule excel

[lelex89]

Bonjour à tous!
J'ai fait quand même pas mal de recherche pour mon problème du moment, mais je ne réussis pas à le résoudre comme je le voudrais.

Dans mon fichier, je veux qu'en cliquant sur une case en format date apparaisse un calendrier et qu'ensuite on puisse sélectionner la date qui se recopie dans la même cellule.
J'ai appris dans mes recherches à faire apparaître le calendrier excel avec la barre d'outil contrôle, mais c'est de faire le lien mon problème.
J'ai essayé ce code, mais ça ne fonctionne pas non plus

Private Sub Calendar1_Click()
ActiveSheet.Range("H50").Value = Calendar1.Value
End Sub

J'ai aussi trouvé le calendrier de Didier, mais à cause de restriction je ne peux malheureusement l'utiliser ni permettre à mes utilisateurs d'avoir accès à ce bijoux.

En plus, je sais pas si ça change quelque chose, mais ma feuille est protégée avec seulement quelques cellules déprotégées...

Merci de votre aide!!!! 🙂

 

[kjin]

Re : Calendrier lié avec cellule excel

Bonsoir,
C'est jour de bonté parce que les exemples, c'est pas ce qui manque
A+
kjin

 

[ddp]

Re : Calendrier lié avec cellule excel

bonsoir le forum
salut lelex89

voici un calendrier issu du forum, malheureusement je n'ai plus les infos concernant l'auteur qui se reconnaîtra certainement

ça devrait t'aider, il suffit de double clicquer sur la case de ton choix

 

[ddp]

Re : Calendrier lié avec cellule excel

oups, collision avec kjin que je re-salue 😀

 

[jaidane]

Re : Calendrier lié avec cellule excel

Salut
Je vous propose une autre solution
A mettre ce fichier (samradDatePicker.xla) dans
c:\Program Files\Microsoft Office\OFFICE11\XLSTART
Sa taille est de 948 Ko
Je n'arrive pas a vous l'envoyez Mon Email est : jaidane.ridha@gmail.com
🙂

 

[hbenalia]

Re : Calendrier lié avec cellule excel

Bonjour à tous,

Un essai avec le fichier joint... Cliquer sur la cellule H50 et choisir la date souhaitée du calendrier....


Cordialement

 

[jaidane]

Re : Calendrier lié avec cellule excel

Salut
je vous donne le lien
samradDatePicker.xla - 4shared.com - partage et stockage de fichiers en ligne - télécharger

 

[lelex89]

Re : Calendrier lié avec cellule excel

Merci à tous de votre aide!
Ça fonctionne super bien!
Je voudrais savoir par le fait même si vous croyez qu'il est possible de le faire apparaître pour toutes les cellules en format date??
Merci encore!!

 

[kjin]

Re : Calendrier lié avec cellule excel

bonsoir,
dans le module de la feuille remplace le code précédent par celui-ci

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If IsDate(Target) Then
    Cancel = True
    UserForm1.Show
End If

End Sub

Par contre, du coup tu ne peux plus saisir de date dans une cellule vide !
A+
kjin

 

[lelex89]

Re : Calendrier lié avec cellule excel

Bonsoir Kjin,
le code qui fonctionne est celui-ci

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1:C30")) Is Nothing Then
UserForm1.Show
Cancel = True
End If

End Sub

Je l'ai remplacé par le tien, et la plus rien n'apparaît...
Peut-être que ma requête était mal formulée, mais en fait ma feuille est un formulaire qui sera protégé. je voudrais que m'apparaisse le calendrier dans toutes les cellules non protégées qui sont en format "date".
Merci encore!!

 

[kjin]

Re : Calendrier lié avec cellule excel

re,
A moins q'il n'y ai des dizaines de dates

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Set plage = Range("C4, D13, B19") 'liste des cellules
If Not Intersect(Target, plage) Is Nothing Then
    Cancel = True
    UserForm1.Show
End If

End Sub

me parait plus indiqué
A+
kjin

 

[lelex89]

Re : Calendrier lié avec cellule excel

C'est parfait!!
Merci beaucoup encore une fois!!

 

[youky(BJ)]

Re : Calendrier lié avec cellule excel

Bonjour le fil, le forum,
Juste pour le fun et faire avancer le schmilblique. . .
Calendar fait maison(fonctionne sur tout PC).
Bruno

 

[hbenalia]

Re : Calendrier lié avec cellule excel

Bonjour à tous,

Merci à tous de votre aide!
Ça fonctionne super bien!
Je voudrais savoir par le fait même si vous croyez qu'il est possible de le faire apparaître pour toutes les cellules en format date??
Merci encore!!

Dans la pièce jointe, avec une petite transformation sur le code, tu trouveras une réponse à ta dernière demande, le format de date qui déclenche le calendrier est dd/mm/yyyy (ou jj/mm/aaaa), dans la PJ j'ai choisi ce format dans les cellules colorées en jaune, il suffit de cliquer dessus... Le calendrier ne s'affichera pas pour les autres formats de cellules (même pour les formats dates différents du format proposé)...

Cordialement

 

[Gigapioche]

Re : Calendrier lié avec cellule excel

Bonjour,

Tous ces calendriers sont super mais est-il possible d'ajouter une fonction choix de l'heure dans le jour choisi?

Ex : Je clic sur la cellule, je choisi le 12.10.12 et je selectionne l'heure. La cellule afficherait alors 12.10.12 09:10 par exemple.

Merci