Saisie date par calendrier

[jsl72]

Bonjour à tous,

J'ai à saisir une date variable dans une cellule pour chaque ligne d'un tableau.

Je le fais manuellement jusqu'à maintenant mais c'est fastidieux.

Dans Access quand le cellule devant recevoir une date est configurée pour, un clic dans cette cellule active l'ouverture d'un petit calendrier.

Il suffit alors de sélectionner la date qui nous intéresse sur le petit calendrier et elle s'écrit alors automatiquement dans la cellule "date".

Pourriez-vous m'indiquer comment en arriver à cette finalité dans excel ?

Merci pour votre aide.

Bonne soirée.

Joël

 

[joss56]

Re : Saisie date par calendrier

Salut à toutes et tous,

Comme ça? (il faut sélectionner les cellules de la colonne A)
A+

Jocelyn

 

[MJ13]

Re : Saisie date par calendrier

Bonjour Joël, Jocelyn


C'est un peu technique, tu peux passer par des contrôles active X.

Voir dans le fichier qu'il faudra installer si tu ne les as pas.

 

[jsl72]

Re : Saisie date par calendrier

Bonjour Joss,

Merci pour ta réponse.
A priori un userform "calendrier" s'affiche.
Mais ensuite ??????

Cordialement

 

[jsl72]

Re : Saisie date par calendrier

Bonjour Michel,

Effectivement il manquait des pages à mon bouquin.

Maintenant ça marche impécable.

Merci à vous.

 

[Lone-wolf]

Re : Saisie date par calendrier

Bonjour Joël,

qu'elle est la version Excel? 32bits ou 64??

Si c'est en 32bits, tu peux inserer le contrôle MonthView par exemple. Pour ce faire, clique sur le ruban Developpeur, Mode création, Insérer. Tu clique ensuite sur le marteau en bas à droite. Dans la fenêtre qui s'affiche tu choisi le MonthView.

Dans le module de la feuille:

Private Sub Worksheet_Activate()
MonthView21.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("a2:c10")) Is Nothing Then
MonthView21.Visible = True
Else
MonthView21.Visible = False
End If
End Sub

Private Sub MonthView21_DateClick(ByVal DateClicked As Date)
ActiveCell.Value = MonthView21.Value
End Sub

A+

 

[Lone-wolf]

Re : Saisie date par calendrier

Re-Bonjour à tous,

j'ai un problème d'affichage de la MontView à partir d'un formulaire. Je suis sous windows 8.1 et Excel 32bits. Est-ce que quelqu'un pourrais faire un test et me dire si il rencontre se problème? Merci d'avance.

A+

 

[JCGL]

Re : Saisie date par calendrier

Bonjour à tous,

Private Sub UserForm_Initialize()
Me.MonthView1.Visible = True
End Sub

A+ à tous

 

[Lone-wolf]

Re : Saisie date par calendrier

Bonsoir JCGL,

sur un fichier que j'avais fait avec windows 7 pro, je n'ai pas ce problème. Je ne comprends pas pourquoi sur Click() elle ne veux pas s'afficher.

A+

 

[JCGL]

Re : Saisie date par calendrier

Bonjour à tous,

Visible sur passage de la souris comme demandé dans ton code.

A+ à tous

 

[jsl72]

Re : Saisie date par calendrier

Merci à tous

Bonne soirée

Joël

 

[Lone-wolf]

Re : Saisie date par calendrier

Bonjour JCGL,

même problème. Par contre, quand je clic à l'endroit où se trouve le calendrier, là il s'affiche; mais pas complètement.





Et sur une feuille, après l'insertion en mode création:




A+

 

[Si...]

Re : Saisie date par calendrier

salut

Problème connu pour les contrôles sur la feuille (rechercher les discussions afférentes).

Même observation avec mon 2010 (clic à condition de savoir où est le contrôle.
Une correction avec l’instruction "Repaint" mais choix de l’évènement pas heureux Si… souris atteinte de la Danse de Singui.

 

[Roland_M]

Re : Saisie date par calendrier

bonjour à tous,

@jsl72

voir ce classeur avec date dans une cellule !
sans aucun problème d'incompatibilité que ce soit !

 

[Lone-wolf]

Re : Saisie date par calendrier

Bonsoir Si..., Roland

@Si... : avec Repaint, l'affichage du calendrier fonctionne même avec UserForm1_Click(). Merci pour cette solution.


A+