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!

Onglet Office Activer l'édition et la navigation par onglets dans Office, et simplifiez grandement votre travail ...
Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%
  • Réutiliser n'importe quoi: Ajoutez les formules, graphiques et autres éléments les plus utilisés ou les plus complexes à vos favoris et réutilisez-les rapidement.
  • Plus que le texte 20 comprend: Extraire le numéro de la chaîne de texte; Extraire ou supprimer une partie des textes; Convertissez les nombres et les devises en mots anglais.
  • Fusionner les outils: Plusieurs classeurs et feuilles en un; Fusionner plusieurs cellules / lignes / colonnes sans perdre de données; Fusionner les lignes en double et la somme.
  • Outils Split: Fractionner les données en plusieurs feuilles en fonction de la valeur; Un classeur pour plusieurs fichiers Excel, PDF ou CSV; Une colonne à plusieurs colonnes.
  • Coller Sauter Lignes cachées / filtrées; Compte et somme par couleur de fond; Envoyez des e-mails personnalisés à plusieurs destinataires en bloc.
  • Super filtre: Créez des schémas de filtrage avancés et appliquez-les à toutes les feuilles. Trier par semaine, jour, fréquence et plus; Filtre en gras, formules, commentaires ...
  • Plus que de puissantes fonctionnalités 300; Fonctionne avec Office 2007-2019 et 365; Prend en charge toutes les langues; Déploiement facile dans votre entreprise ou organisation.

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:


Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe Créer une liste de diffusion et envoyer des emails ...
  • Super Formula Bar (éditez facilement plusieurs lignes de texte et de formule); Disposition de lecture (facilement lire et éditer un grand nombre de cellules); Coller à la gamme filtrée...
  • Fusionner les cellules / rangées / colonnes sans perdre de données; Contenu des cellules divisées; Combiner les lignes / colonnes en double... Prévenir les cellules en double; Comparer les plages...
  • Sélectionnez Dupliquer ou Unique Des rangées; Sélectionnez les lignes vierges (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux cahiers d'exercices; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de la formule; Créer automatiquement des références à plusieurs feuilles; Insérer des balles, Cases à cocher et plus ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre contenu de cellules et commentaires...
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial en gras, en italique ...
  • Combinaison de classeurs et de feuilles de calcul; Fusionner les tables en fonction des colonnes clés; Fractionner les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
  • Plus que de puissantes fonctionnalités 300. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Fonctionnalités complètes Essai gratuit du jour 30.
kte tab 201905

Office Tab apporte une interface à onglets à Office et simplifie grandement votre travail

  • Activer l'édition par onglets et la lecture dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50% et réduit le nombre de clics de souris pour vous chaque jour!
fond officetab
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.
    Hannah · 2 months ago
    The calendar will show up but when I click on the date, the cell doesn't populate
  • To post as a guest, your comment is unpublished.
    DwarthK · 6 months ago
    Thank you so much! These directions were super useful :)
  • To post as a guest, your comment is unpublished.
    jeet · 8 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 · 8 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 · 9 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 · 10 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 · 9 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 · 10 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 · 2 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 · 10 months ago
      Use i.e: Range("B6:C30")
    • To post as a guest, your comment is unpublished.
      crystal · 2 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.
  • To post as a guest, your comment is unpublished.
    George · 2 years ago
    i used these VBA codes and everthing's fine so far. The range is A2:A10 and calendar pops up when you select a cell into it. But if you mark row from 2 to 10 again the calendar pops again. It's the same with column "A" if you mark it, again the calendar pops. How should i proceed, in order to get the calendar only in the range i've defined?
  • To post as a guest, your comment is unpublished.
    Sirimon · 2 years ago
    I want to show pop up calendar under the cell selected.How should I do?