Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment faire pour afficher un calendrier lorsque vous cliquez sur une cellule spécifique dans Excel?

En supposant qu'il existe 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 à chaque fois. Comment entrer rapidement des dates sans taper manuellement dans la plage de colonnes? Cet article parle de faire apparaître un calendrier en cliquant sur les cellules dans une certaine plage, puis en insérant la date dans la cellule sélectionnée automatiquement après avoir sélectionné la date dans le calendrier.

Faire apparaître un calendrier en cliquant sur une cellule spécifique avec le code VBA

Créer un objet UserForm avec le calendrier

Activer le calendrier en cliquant sur la cellule


Sélecteur de date (sélectionnez facilement une date avec un format de date spécifique dans le calendrier et insérez-la dans la cellule sélectionnée):

Cliquez Kutools > insérer > Insérer une dateet dans la boîte de dialogue Insérer une date, spécifiez un format de date, double-cliquez sur une certaine date pour insérer cette date dans une cellule sélectionnée immédiatement. Voir la capture d'écran ci-dessous

Kutools for Excel: avec plus que 200 compléments Excel pratiques, libre d'essayer sans limitation dans les jours 60. Téléchargez l'essai gratuit maintenant!


Faire apparaître un calendrier en cliquant sur une cellule spécifique avec le code VBA


S'il vous plaît résoudre ce problème comme suit étape par étape.

Note: Cette méthode peut uniquement fonctionner sur Microsoft Excel 32-bit.

Créer un objet UserForm avec le calendrier

S'il vous plaît créer un UserForm qui contient le calendrier que vous allez apparaître 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 > UserForm.

3. Puis un UserForm ainsi que d'un Caisse à outils les fenêtres apparaissent, dans le Caisse à outils, cliquez sur un 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 la Microsoft MonthView Control option dans la Contrôles disponibles boîte, puis cliquez sur le OK .

5. Ensuite, vous pouvez voir le MonthView le bouton est ajouté dans le Caisse à outils fenêtre. Cliquez sur ce bouton MonthView, puis sur la fenêtre UserForm1 pour créer un calendrier dans le Userform.

Note: Vous pouvez ajuster la taille de la fenêtre UserForm en fonction du calendrier inséré en faisant glisser la bordure de l'UserForm.

6. Double-cliquez sur le calendrier inséré dans le UserForm1, et dans le Code fenêtre, remplacez le code original par le script VBA suivant.

Code VBA: créer un formulaire utilisateur avec calendrier

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

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

Activer le calendrier en cliquant sur la cellule

Vous devez maintenant spécifier certaines cellules pour afficher le calendrier lorsque vous cliquez. S'il vous plaît faire comme suit.

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

Code VBA: cliquez sur la cellule pour afficher le calendrier

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

Note: dans le code, A2: A10 sont des cellules sur lesquelles vous cliquerez pour afficher le calendrier. Veuillez changer la plage de cellules selon vos besoins.

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

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


Articles connexes:



Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    jeet · 1 months ago
    Hi, Is it possible to put the date picker pop-up for multiple column, as in my sheet I have "start date", "end date" and "agreement date". if yes then how?
    • To post as a guest, your comment is unpublished.
      crystal · 1 months ago
      Hi jeet,
      Follow the steps and replace the range "A2:A10" in the second VBA code with your column range (such as C2:E2).
  • To post as a guest, your comment is unpublished.
    Giuseppe · 2 months ago
    Salve il codice funziona benissimo, ma se volessi farlo funzionare anche su un altro foglio
  • To post as a guest, your comment is unpublished.
    Sam · 3 months ago
    if i try to select a row, the pop up will activate and the date appears in each cell in that row


    how can i avoid this
    • To post as a guest, your comment is unpublished.
      crystal · 2 months ago
      Hi Sam,
      The code has been updated in the article with the problem solving. Please have a try and thank you for your comment.
  • To post as a guest, your comment is unpublished.
    cevat · 3 months ago
    tarihi seçebiliyorum ama a1:a10 hücrelerine seçtiğim tarih eklenmiyor. teşekkür ederim
  • To post as a guest, your comment is unpublished.
    MG · 1 years ago
    Hello everyone,

    Can anyone tell me how to popup a calendar in a range of cells, but starting only from the cell right bellow a table header and down bellow in an excel column.


    Thank you in advance.
    • To post as a guest, your comment is unpublished.
      Chris · 3 months ago
      Use i.e: Range("B6:C30")
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Good Day,
      Sorry I didn't got your question. Would be nice if you could provide screenshot of what you are trying to do.