Excel 2019 - Sélectionneur de Date dans cellule Excel

Question

Sur Excel 2019, comment insère t-on un datepicker ? Après recherche, la solution de prendre Microsoft Date and Time picker dans Développeur/Insérer/Autres contrôles est souvent indiquée sauf que je ne trouve rien de cela dans ma version 2019? Avez-vous une solution, Une procédure pour avoir un sélectionneur de date dans une cellule? Merci d'avance Agrimaman...

Jean-Eric · Accepted Answer

La proposition de Galopin01, avec l'ajout du calendrier à partir des compléments Excel. Installation : Ruban, Développeur, Compléments, Compléments. Store, Productivité. Sélectionner Mini Calendar and Picker et Ajourer.. Le calendrier est alors disponible. Les procédures VBA (à optimiser !...) Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$B$3" Then Me.Shapes.Range(Array("Add-in 1")).Visible = True Else Me.Shapes.Range(Array("Add-in 1")).Visible = False End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$3" Then If Me.Shapes.Range(Array("Add-in 1")).Visible = True Then Me.Shapes.Range(Array("Add-in 1")).Visible = False End If End Sub...

ArnaudLBRD · Answer

J'ai également rechercher cette fonction il y a quelque jour et les réponses que j'ai obtenu est qu'il n'est pas présent sur la version Excel 64bit.

Ducoup j'utilise un module pour faire ça, je vous partage le fichier si jamais.

638windatepicker.xlam (63.08 Ko)

galopin01 · Answer

Voir ici https://appsource.microsoft.com/en-us/product/office/wa102957665?tab=overview Une démo : Un bon petit utilitaire Je crois même que tu n'as pas besoin de le télécharger... En tout as je ne me souviens pas l'avoir fait ! Le fait de l'avoir utilisé en ouvrant mon classeur doit faire qu'il devient disponible dans les compléments Excel (Développeur &gt; Complément) A+...

ArnaudLBRD · Answer

Oui en effet, elle est protégé.

Pour ouvrir le datepicker il faut lancer cette macro :

Sub CallDatePickerWithVBA()
    Dim TestWkbk As Workbook
    Dim obj As Object

    If Val(Application.Version) >= 12 Then
        Set TestWkbk = Nothing
        On Error Resume Next
        Set TestWkbk = Workbooks("WinDatePicker.xlam")
        On Error GoTo 0
        If TestWkbk Is Nothing Then
            MsgBox "Sorry the Date Picker add-in is not open."
        Else
            Application.Run "'" & TestWkbk.Name & "'!OpenDatePicker", obj
        End If
    End If
End Sub

puis pour récupérer la date sélectionné il faut lancer cette macro :

Sub GetLastDateDatePicker()
    Dim GROUPNAME As String
    Dim APPNAME As String
    Dim LastPickedDate As Date

    GROUPNAME = "RDB Add-ins"
    APPNAME = "Excel for Windows Date Picker"

    LastPickedDate = DateSerial(GetSetting(GROUPNAME, APPNAME, "LastYear", Year(Now())), _
        GetSetting(GROUPNAME, APPNAME, "LastMonth", Month(Now())), _
        GetSetting(GROUPNAME, APPNAME, "LastDay", Day(Now())))

    MsgBox Format(LastPickedDate, "dd-mmm-yyyy")
End Sub

Après il y a complétement moyen de modifier ces macros pour l'adapter à l'utilisation que vous en avez.

thev · Answer

Bonjour,

Je peux vous proposer le calendrier que j'ai développé, utilisable dans un formulaire ou dans une feuille. Ce calendrier gère les jours fériés et les week-ends et se positionne en fonction de la zone à remplir.

Sa mise en place est simple :
1- stocker le contrôle ("calendrier.xlam" ci-joint) dans le répertoire de votre choix
2- ouvrir le classeur où vous voulez ajouter le contrôle
3- à partir du classeur, menu fichier --> ouvrir le contrôle
4- sauvegarder votre classeur
Le contrôle est à présent actif et sera désormais systématiquement chargé à chaque ouverture de votre classeur.

Son utilisation est simple :
Il faut appeler la procédure "charger_calendrier objet, date"

où objet est une Textbox ou une cellule Range,

où date est la date de démarrage du calendrier

Si le deuxième paramètre (= date) n’est pas fourni, alors une saisie intuitive de l’année et du mois est fournie, ce qui est particulièrement utile dans le cas de dates de naissance par exemple.

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
        charger_calendrier Target, date_début
    End If

End Sub

Avec saisie intuitive de l’année et du mois :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Address = Range("A1").Address Then
        charger_calendrier Target
    End If

End Sub

154calendrier.xlam (35.67 Ko)

Jean-Eric · Answer

Aucun retour !... Cdlt...

Jean-Eric · Answer

...