Comment faire apparaître un calendrier en cliquant sur une cellule spécifique dans Excel?

En supposant qu'il y ait une plage de colonnes dans une feuille de calcul, vous devez fréquemment entrer et modifier les dates à l'intérieur, mais il est ennuyeux d'entrer ou de modifier la date manuellement par heure. Comment entrer rapidement des dates sans taper manuellement dans la plage de colonnes? Cet article parle de faire apparaître un calendrier lorsque vous cliquez sur des cellules dans une certaine plage, puis d'insérer la date dans la cellule sélectionnée automatiquement après avoir sélectionné la date dans le calendrier.

Afficher un calendrier en cliquant sur une cellule spécifique avec le code VBA

Veuillez résoudre ce problème comme suit étape par étape.

Notes: Cette méthode ne peut fonctionner que sur Microsoft Excel 32 bits.

Étape 1: créer un formulaire utilisateur avec calendrier

Veuillez créer un UserForm qui contient le calendrier que vous afficherez en cliquant sur une cellule.

1. presse autre + F11 touches simultanément pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Formulaire utilisateur.

3. Puis un Formulaire utilisateur et Boîte à outils fenêtres pop-up, dans le Boîte à outils, cliquez sur n'importe quel contrôle et faites un clic droit, puis sélectionnez Contrôles supplémentaires dans le menu contextuel. Voir la capture d'écran:

4. dans le Contrôles supplémentaires boîte de dialogue, faites défiler vers le bas pour vérifier Contrôle Microsoft MonthView option dans la Commandes disponibles , puis cliquez sur le OK .

5. Ensuite, vous pouvez voir le Vue du mois le bouton est ajouté dans le Boîte à outils la fenêtre. Cliquez sur ce bouton MonthView, puis cliquez sur la fenêtre UserForm1 pour créer un calendrier dans le Userform.

Notes: Vous pouvez ajuster la taille de la fenêtre UserForm pour l'adapter au calendrier inséré en faisant glisser la bordure de l'UserForm.

6. Double-cliquez sur le calendrier inséré dans UserForm1 et dans le Code fenêtre, veuillez remplacer le code d'origine par le script VBA suivant.

VBA code: create a user form with calendar

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
 On Error Resume Next
   Dim xRg As Object
   For Each xRg In Selection.Cells
      xRg.Value = DateClicked
   Next xRg 
   Unload Me
End Sub

Notes: Ce code peut aider à insérer la date dans la cellule sélectionnée après avoir sélectionné la date dans le calendrier.

Étape 2: Activez le calendrier en cliquant sur la cellule

Vous devez maintenant spécifier certaines cellules pour afficher le calendrier lorsque vous cliquez sur. Veuillez faire comme suit.

7. Double-cliquez sur le nom de la feuille qui contient les cellules sur lesquelles vous cliquerez pour faire apparaître le calendrier à gauche Projet volet, puis copiez et collez le code VBA ci-dessous dans la fenêtre Code. Voir la capture d'écran:

VBA code: Click cell to pop up calendar

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If (Target.Count = 1) Then
    If Not Intersect(Target, Range("A2:A10")) Is Nothing Then UserForm1.Show
    End If
End Sub

Notes: dans le code, A2: A10 sont des cellules sur lesquelles vous cliquerez pour faire apparaître le calendrier. Veuillez modifier la plage de cellules selon vos besoins.

8. presse autre + Q touches simultanément pour fermer le Microsoft Visual Basic pour applications fenêtre.

À partir de maintenant, lorsque vous cliquez sur une cellule à l'intérieur de la plage spécifiée dans la feuille de calcul actuelle, un calendrier apparaîtra comme illustré ci-dessous. Et la date sera insérée automatiquement dans la cellule sélectionnée après avoir sélectionné la date dans le calendrier.

Afficher un calendrier en cliquant sur une cellule spécifique avec le code VBA

Cette section présente le Sélecteur de date utilité de Kutools for Excel. Après avoir activé cette fonctionnalité, cliquez sur une cellule de date pour faire apparaître un calendrier, vous pouvez facilement remplacer la date existante par une nouvelle date. Veuillez suivre les étapes ci-dessous pour appliquer cette fonctionnalité.

1. Cliquez Kutools > Contenu > Activer le sélecteur de date.

2. Après avoir activé cette fonction, cliquez sur une cellule de date et une icône de calendrier apparaîtra directement dans la cellule.

3. Cliquez sur l'icône du calendrier pour ouvrir le Sélecteur de date boîte de dialogue, puis cliquez sur une nouvelle date pour remplacer la date dans la cellule sélectionnée.

Notes:

• Bouton Annuler: cliquez sur ce bouton pour annuler le remplacement de la date;
• Bouton Fermer: cliquez sur ce bouton pour fermer la boîte de dialogue Sélecteur de dates;
• Cette fonctionnalité ne peut s'appliquer qu'aux cellules contenant une date.

Articles connexes:

• Comment déclencher ou exécuter une macro en cliquant sur une cellule spécifique dans Excel?
• Comment changer la couleur de la cellule lorsque la cellule est cliquée ou sélectionnée dans Excel?
• Comment faire apparaître une boîte de message en cliquant sur une certaine cellule dans Excel?
• Comment désactiver le bouton après avoir cliqué une fois dans Excel?
• Comment désactiver le clic droit sur l'onglet de la feuille dans Excel?