Calendrier userform
bonjour
j ai besoin d un petit coup de main pour mofifier le calendrier present dans le fichier joint
j aimerai supprimer le bouton ok
ainsi lorsqu on selectionne une date celle ci vient s inscrire dans la cellule c3
également si c est possible j aimerai suprimer les doubles fleches sous la case "mois" et sous la case "annee"
bonsoir
si c est nickel il manque juste que le calendrier se ferme une fois la date selectionnée si c est possible
Bonjour
excellent merci beaucoup
rebonjour
Bon Ben j ai cru être une grande et y arriver toute seule mais non
j ai voulu appliquer la mm chose a la cellule d8 mais je n y arrive pas
Donc pour résumer
Lorsque on click en C3 apparition calendrier et lorsque selection date celle ci se reporte en c3
Et de mm pour d8
Lorsque l on click en D8 apparition calendrier et lorsque selection date celle ci se reporte en D8
Un dernier coup de pouce svp
Et rebonjour
Bon Ben je suis encore désolé J arrive pas a faire ce que je veux
j ai voulu appliquer ce calendrier a toutes les feuilles que je pourrai ajouter dans le classeur
j ai donc copié le code suivant en page worksheet
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal R As Range)
If R.Address = "$C$3" Then fm_CalendrierCellule.Show: R(1, 2).Select
If R.Address = "$D$8" Then fm_CalendrierCellule.Show: R(1, 2).Select
End Sub
Mais rien a faire ca affiche le calendrier et une fois la date selectionnée il disparaît puis réapparait avec l année revenu a 2000
Et pareil pour touts les autres pages
Encore un peu d aide svp
Bonjour
Il faut supprimer le code présent dans le module de la feuille
Je t'ai adapté le code dans le module ThisWorkbook
A tester
bonjour
je reviens vers vous car j ai a nouveau un probleme sur l affichage du calendrier
lorsque je clique dans la cellule D7 ou D8 au lieu d afficher le calendrier une message d erreur apparaît en affichant le code de la feuille 1 :
"erreur de compilation: projet ou bibliotheque introuvable "
la premiere ligne du code est surligné en jaune " private sub...."
et le dernier mot de la 4 eme ligne est surligné en bleu "if isdate ....)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("D7,D8")) 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
le probleme n apparaît que lorsque j utilise excel 2010
avec excel 2013 pas de message d erreur
pouvez vous m aider svp ?
Bonjour
Procédure assez simple
Quand tu as l'erreur
Dans l'éditeur VBA
Menu Exécution --> Réinitialiser
Menu Outils ---> Références
Tu vas voir une fenêtre dans laquelle une liste, certaines de ces infos sont notées "MANQUANT"
Il suffit de les décocher, sauver le programme et de cliquer sur une cellule pour voir le calendrier apparaître
Ceci est un exemple
