Comment ajouter un choix de date dans une cellule

petiteféereveuse Messages postés 46 Date d'inscription   Statut Membre Dernière intervention   -  
thev Messages postés 1987 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

cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
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
petiteféereveuse Messages postés 46 Date d'inscription   Statut Membre Dernière intervention   1
 
Merci beaucoup mais malheureusement, tout ça est beaucoup trop complexe pour moi :-/ :-(
0
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Tu vas dans développeur Insérer clic sur les petits marteaux en bas à droite:


ensuite:


ce qui donne

Voilà

@+ Le Pivert
0
thev Messages postés 1987 Date d'inscription   Statut Membre Dernière intervention   715
 
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