Comment ajouter un choix de date dans une cellule

petiteféereveuse Messages postés 47 Statut Membre -  
thev Messages postés 2011 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je suis embêté car je souhaite insérer un choix de date dans une cellule.
J'aimerais qu'un petit calendrier soit proposé lorsque l'on clique dans la cellule correspondante mais mon PC ne possède pas le contrôle Microsoft Date and Time Picker Control dans le mode développeur.

Quelqu'un pourrait-il m'aider et m'indiquer la démarche à suivre ?

Merci par avance :-)

2 réponses

  1. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    Bonjour,

    Voir ceci:

    https://www.commentcamarche.net/faq/41159-vba-excel-toutes-versions-controle-calendrier-transposable

    et cela:

    https://www.excel-downloads.com/threads/calendrier-excel-vba-qui-marche-sur-toutes-les-versions-dexcel.214774/page-2

    0
    1. petiteféereveuse Messages postés 47 Statut Membre 1
       
      Merci beaucoup mais malheureusement, tout ça est beaucoup trop complexe pour moi :-/ :-(
      0
    2. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
       
      Tu vas dans développeur Insérer clic sur les petits marteaux en bas à droite:


      ensuite:


      ce qui donne

      Voilà

      @+ Le Pivert
      0
  2. thev Messages postés 2011 Date d'inscription   Statut Membre Dernière intervention   724
     
    Bonjour,

    Je peux te proposer mon contrôle calendrier ci-joint (.xlam)
    https://www.cjoint.com/c/HJisw5KfhbM

    Sa mise en place est simple :
    1- stocker le contrôle dans le répertoire de ton choix
    2- ouvrir le classeur où tu veux ajouter le contrôle
    3- ouvrir le contrôle
    4- sauvegarder ton classeur
    Le contrôle est à présent actif et sera désormais systématiquement chargé à chaque ouverture de ton classeur .

    Son utilisation est simple :
    appeler la procédure "afficher_calendrier(target)"

    Exemple de code associé à une feuille pour la cellule "A1"
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
        If Target.Address = Range("A1").Address Then
            'affichage calendrier
            Call afficher_calendrier(Target)
        End If
    
    End Sub
    

    0