XL 2010 Faire apparaitre un CALENDRIER lorsqu'on clique dans une cellule

[ATHE RIOVELI]

BONJOUR, le FORUM.
Je vous prie de bien vouloir m'aider.
Je viens vers vous pour vous part de ma difficulté en ce moment.
J'ai un fichier excel. Je souhaite créer un liste déroulante mais qui doit etre un calendrier qui puisse apparaitre des que je clique dans une case. Cela me permettra d'inserer la date en cliquant sur celle-ci dans le calendrier.
J'en ai jusqu'a trois feuilles et je souhaite également que cela se réalise aussi des que je suis sur chacune des feuilles.

J'espère avoir bien exprimer ma préoccupation.
En attendant une résolution de mon problème, je vous prie de recevoir mes salutations les plus distinguées.
Voici joint un exemplaire du fichier excel.

 

[Dranreb]

Re : Faire apparaitre un CALENDRIER lorsqu'on clique dans une cellule

Pas de message en cliquant sur une cellule contenant du texte chez moi dans le classeur du poste #5.

 

[Dranreb]

Re : Faire apparaitre un CALENDRIER lorsqu'on clique dans une cellule

Pour l'utiliser dans les modules de feuilles de votre dernier classeur vous pouvez faire comme ça :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([E10:L10], Target) Is Nothing _
   And Target.Columns.Count = 1 And Target.Rows.Count = 1 Then
   UFmCalend.Posit Target, 0, 1
   Target.Value = UFmCalend.Saisie("Note " & Target.Offset(-2).Text, Date)
   End If
End Sub

Et ça ne provoque plus non plus d'erreur d'exécution en cliquant ailleurs.

(Cette erreur était due au Unload F_calendrier1dateTableur. En effet lorsqu'il n'était pas chargé, ça provoquait son chargement, puis donc l'exécution de son UserForm_Initialize, et après seulement son déchargement, tout ça pour rien…)

 

[ATHE RIOVELI]

Re : Faire apparaitre un CALENDRIER lorsqu'on clique dans une cellule

Merci Danreb, je vais alors essayer et faire signe au forum.
A+

 

[ATHE RIOVELI]

Re : Faire apparaitre un CALENDRIER lorsqu'on clique dans une cellule

Il y a un probleme, lorsqu'on clique dans une celle qui contient des lettres, un probleme d'ereur apparait.

 

[ATHE RIOVELI]

Re : Faire apparaitre un CALENDRIER lorsqu'on clique dans une cellule

Bonsoir Danreb, le probleme persiste toujours.

 

[grisan29]

Re : Faire apparaitre un CALENDRIER lorsqu'on clique dans une cellule

bonsoir ATHE RIOVELI, Dranreb, le forum
ATHE dans ce post il y a un classeur avec calendrier qui se déclenche au double clic dans une cellule sélectionnée par le code de la feuille et apparament qui fait pas cas s'il y a quelques chose dans la dite cellule
https://www.excel-downloads.com/threads/inserer-un-calendrier-date.20009267/ dernier post qui m'a fait rajouté un bloc fusionné dans le code

 

[Dranreb]

Re : Faire apparaitre un CALENDRIER lorsqu'on clique dans une cellule

Bonsoir.
Joignez votre classeur muni de mon code et de mon UserForm UFmCalend.
(contrairement à celui du poste #13)

 

[Roland_M]

Re : Faire apparaitre un CALENDRIER lorsqu'on clique dans une cellule

Bonsoir à tous !

histoire d'en rajouter un peu !

 

[Si...]

Re : Faire apparaitre un CALENDRIER lorsqu'on clique dans une cellule

salut

Vois si ton fichier avec mon calendrier convient -identifiants et mot depassesinchangés, ADMIN, ADMIN pour le chef.
Si les dates du premier jour et du dernier jour de chaque trimestre sont connues, on peut adapter le calendrier pour se restreindre à elles dans chaque onglet correspondant.

Nota : j’ai modifié, supprimé quelques macros et pas touché à d’autres. Celles de chaque feuille de trimestre peuvent être simplifiées mais c'est une autre histoire.

 

[ATHE RIOVELI]

Re : Faire apparaitre un CALENDRIER lorsqu'on clique dans une cellule

Salut Dranreb.
Le calendrier est superbe. Mais je ne vois pas comment mettre le code vba dans mon classeur.
Et puis, pourquoi un double click? un sel searai interrssant.
s'il te plait insere le dans mon classeur.

 

[Dranreb]

Re : Faire apparaitre un CALENDRIER lorsqu'on clique dans une cellule

Est tu sûr de lire chaque fois le pseudo du dernier intervenant ?
Je n'ai jusqu'ici joint mon calendrier qu'au poste #5
C'est de celui ci qu'il faut récupérer L'Ufm UFmCalend (en le faisant glisser vers ton projet VBA), et pour le mettre en œuvre c'est le code indiqué au #17.
C'est un clic simple pour l'afficher.

Remarque: je veux bien l'installer sur un classeur joint si tu as des difficultés.

 

[ATHE RIOVELI]

Re : Faire apparaitre un CALENDRIER lorsqu'on clique dans une cellule

Salut le forum, Salut Roland M.
Le code vba de ton agenda fonctionne à merveille.
Le problème est résolue. Encore une fois de plus merci.
Tu as vraiment anticiper sur ma prochaine préoccupation que je vais soumettre au forum.
Je vais d'abord actualisé mon classeur et soumettre ma préocupation.
A+ ENCORE UNE FOIS MERCI POUR L'AGENDA. GRAND MAITRE

 

[ATHE RIOVELI]

Re : Faire apparaitre un CALENDRIER lorsqu'on clique dans une cellule

OK Merci.
Xa marche à merveille.
Une fois encore merci

 

[Roland_M]

Re : Faire apparaitre un CALENDRIER lorsqu'on clique dans une cellule

Bonjour,

si tu veux par simple clic, dans ThisWorkbook tu remplaces:
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
par:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)