Inserer un Date Picker dans barre d'outils

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion Guiv
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
G

Guiv

XLDnaute Occasionnel
Bonjour Forum,
J'ai créé une barre d'outils dans mon fichier, et je voudrais insérer dans cette barre d'outils un controle DatePicker. est-ce possible?
Merci d'avance de vos conseils,
Cordialement,
Guiv
 
Trier par date Trier par votes
Re : Inserer un Date Picker dans barre d'outils

Bonsoir le fil,

Guiv à dit:
... le calendrier s'affiche à chaque fois qu'on selectionne une cellule au format date, ce qui est un poil énervant (quand on n'en n'a pas besoin)
Cliquez pour agrandir...

Effectivement Guiv, je suis bien d'accord avec toi... C'est pourquoi, en complément de la réponse de l'ami JCGL, je confirme que c'est une option activable et désactivable à volonté directement depuis l'interface du calendrier :

xlcalfrauto.png


Pour info, cette option n'est d'ailleurs pas activée par défaut.

Guiv à dit:
... le bouton "calendrier" se place dans la barre d'outils standard, et je le voudrais dans ma barre perso...
Cliquez pour agrandir...
Il est possible d'afficher ou masquer le bouton calendrier dans la barre d'outils standard, par contre, il n'est effectivement pas prévu de pouvoir le déplacer dans les barres d'outils.

Par contre, tu devrais consulter la FAQ dédiée au mDF Calendrier 3.0 et notamment cette question-réponse :
Peut-on piloter l'affichage du mDF Calendrier par macro VBA ?

Cordialement,
​
 
Vote positif 0 Vote négatif
Re : Inserer un Date Picker dans barre d'outils

Merci mDF et le fil,
Je crois quand même que je vais garder ma solution initiale, mais SCREUGNEUGNEU, ça me contrarie qu'on puisse mettre une combo dans une barre perso (merci Staple1600) et pas un autre controle!
Bonne soirée à tous, et à vous lire si vous avez d'autres idées...
Cordialement,
Guiv
 
Vote positif 0 Vote négatif
Re : Inserer un Date Picker dans barre d'outils

bonjour à tous


Je sais que j'arrive après la bataille, mais voici une version perso juste pour le fun, facilement intégrable à un évènement de la feuille de calcul ou à une barre d'outils personnelle:
La date est insérée dans la cellule active.
Cet exemple utilise le contrôle Monthview, mais peut aisément être modifié pour les contrôle Calendar et DataPicker.

Enlevez le commentaire sur cette ligne
'.insertlines j + 3, " Unload Me"
pour que la fenêtre se referme automatiquement après l'insertion de la date.


Code: 
Option Explicit
Dim Usf As Object

Sub LancementProcedure()
    Dim X As Object
    Dim NomMonthView As String
    
    NomMonthView = "MonthView1"
    'Lance la procédure de création du userform et du contrôle MonthView
    Set X = UserForm_Et_MonthView_Dynamique(NomMonthView)
    
    'Affichage userform
    X.Show
    
    'Suppression du userform après la fermeture
    ThisWorkbook.VBProject.VBComponents.Remove Usf
    Set Usf = Nothing
End Sub


Code: 
Function UserForm_Et_MonthView_Dynamique(NomObjet As String) As Object
    Dim Obj As Object
    Dim j As Integer
    'Création UserForm
    Set Usf = ThisWorkbook.VBProject.VBComponents.Add(3)
    With Usf
        .Properties("Caption") = "Mon calendrier"
        .Properties("Width") = 135
        .Properties("Height") = 140
    End With
    
    'Création du contrôle MonthView
    Set Obj = Usf.Designer.Controls.Add("MSComCtl2.MonthView.2")
          
    With Obj
        .Left = 0: .Top = 0: .Width = 150: .Height = 140
        .Name = NomObjet
        .ForeColor = &HC000C0
        .TitleBackColor = &HC000C0
    End With
    
    
    'Ajout de la procédure évènementielle DateClick du contrôle MonthView
    With Usf.CodeModule
        j = .CountOfLines
        .insertlines j + 1, "Sub " & NomObjet & "_DateClick(ByVal DateClicked As Date)"
        'Insère la date dans la cellule active
        .insertlines j + 2, "   ActiveCell = DateClicked"
        'Option pour refermer l'userform après l'insertion de la date.
        '.insertlines j + 3, "   Unload Me"
        .insertlines j + 4, "End Sub"
    End With
    
    VBA.UserForms.Add (Usf.Name)
    Set UserForm_Et_MonthView_Dynamique = UserForms(UserForms.Count - 1)
  
End Function



Bonne journée
MichelXld
 
Vote positif 0 Vote négatif
Re : Inserer un Date Picker dans barre d'outils

bonjour Staple


J'utilise WinXP et Office2007.
Il faut disposer de l'ocx MSCOMCT2.ocx pour utiliser le contrôle MonthView



Voici une adaptation qui utilise le contrôle DataPicker:

Code: 
Option Explicit
Dim Usf As Object

Sub LancementProcedure()
    Dim X As Object
    Dim NomdtPicker As String
    
    NomdtPicker = "DtPicker1"
    Set X = UserForm_Et_DataPicker_Dynamique(NomdtPicker)
    
    X.Show
    
    ThisWorkbook.VBProject.VBComponents.Remove Usf
    Set Usf = Nothing
End Sub

Code: 
Function UserForm_Et_DataPicker_Dynamique(NomObjet As String) As Object
    Dim Obj As Object
    Dim j As Integer
    Set Usf = ThisWorkbook.VBProject.VBComponents.Add(3)
    With Usf
        .Properties("Caption") = "Mon calendrier"
        .Properties("Width") = 130
        .Properties("Height") = 40
    End With
  
    Set Obj = Usf.Designer.Controls.Add("MSComCtl2.DTPicker.2")
          
    With Obj
        .Left = 0: .Top = 0: .Width = 130: .Height = 20
        .Name = NomObjet
        .CalendarBackColor = &HFF00FF
    End With
    
    With Usf.CodeModule
        j = .CountOfLines
        .insertlines j + 1, "Sub " & NomObjet & "_Change()"
        .insertlines j + 2, "   ActiveCell.Value = Format(DateSerial(Year(" _
            & NomObjet & "), Month(" & NomObjet & "), Day(" _
            & NomObjet & ")), " & Chr(34) & "dd mmmm yyyy" & Chr(34) & ")"
        'Option pour refermer l'userform après l'insertion de la date.
        '.insertlines j + 3, "   Unload Me"
        .insertlines j + 4, "End Sub"
    End With
    
    VBA.UserForms.Add (Usf.Name)
    Set UserForm_Et_DataPicker_Dynamique = UserForms(UserForms.Count - 1)
  
End Function



Bonne journée
MichelXld
 
Vote positif 0 Vote négatif
Re : Inserer un Date Picker dans barre d'outils

Bonjour Staple, Michel et le fil,

Merci de continuer à vous intéresser à mon problème. J'avais un peu renoncé, et comme je suis un xldien du dimanche, voilà 3 jours que je ne m'étais pas connecté.
La proposition de Michel fonctionne bien chez moi, et me ramène à la question première : comment puis-je insérer cet usf (ou plutôt rien que le datepicker) dans ma bo? J'avoue que je me suis contenté pour l'instant de copier bêtement les codes de Michel dans un classeur vierge pour voir, j'essaierai de comprendre plus tard mais je crois que ça devient un peu compliqué pour moi...
Par ailleurs, mon but était de déclencher une macro à la sélection d'une date dans le calendrier ( sélection de la page correspondant à la date dans un planning annuel avec 1 feuille par semaine). Je pense pouvoir résoudre ça tout seul comme un grand avec un événement "change" sur la cellule qui affiche la date, mais j'ai peur que ce ne soit pas très élégant...
Toujours à l'écoute de vos conseils avisés,
Cordialement,
 
Vote positif 0 Vote négatif
Re : Inserer un Date Picker dans barre d'outils

bonjour


Ci joint un exemple complet avec la création de la barre d'outils automatique lors de l'ouverture de classeur et sa suppression lors de la fermeture du classeur.
Si j'ai bien compris ta demande:
Le contrôle MonthView permet d'activer la feuille correpondant au numéro de semaine (Cet exemple nécessite donc que le classeur contienne 52 feuilles) en fonction de la date choisie dans le calendrier.


Code: 
'Cet exemple est placé dans le module objet du classeur et utilise
'l'évènement Workbook_Open.
'De cette manière, la barre est créée automatiquement lors de
'l'ouverture du fichier
Private Sub Workbook_Open()
    Dim CmdBar As CommandBar
    Dim Bouton As CommandBarButton
    
    'Création de la barre d'outils nommée 'MaBarrePerso'
    Set CmdBar = Application.CommandBars _
        .Add(Name:="MaBarrePerso", Position:=msoBarTop, Temporary:=True)
    
    'Ajout d'un bouton dans la barre d'outils
    Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
    With Bouton
        'Définit "l'image" qui va s'afficher sur le bouton
        .FaceId = 33
        'Définit quelle macro est associée au bouton.
        'Cette macro sera lancée à chaque fois que vous cliquez sur le bouton.
        .OnAction = "LancementProcedure"
    End With
    
    CmdBar.Visible = True
End Sub



Code: 
'Ce deuxième code utilise l'évènement Workbook_BeforeClose et
'supprime la barre personnelle lors de la fermeture du classeur.
'Rappel:
'Dans Excel2007, les menus et barres d'outils personnels sont stockés
'dans l'onglet "Complément".
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Application.CommandBars("MaBarrePerso").Delete
End Sub



Code: 
'--- Dans un module Standard ---
Option Explicit
Dim Usf As Object

Sub LancementProcedure()
    Dim X As Object
    Dim NomMonthView As String
    
    NomMonthView = "MonthView1"
    'Lance la procédure de création du userform et du contrôle MonthView
    Set X = UserForm_Et_MonthView_Dynamique(NomMonthView)
    
    'Affichage userform
    X.Show
    
    'Suppression du userform après la fermeture
    ThisWorkbook.VBProject.VBComponents.Remove Usf
    Set Usf = Nothing
End Sub
 
Function UserForm_Et_MonthView_Dynamique(NomObjet As String) As Object
    Dim Obj As Object
    Dim j As Integer
    'Création UserForm
    Set Usf = ThisWorkbook.VBProject.VBComponents.Add(3)
    With Usf
        .Properties("Caption") = "Mon calendrier"
        .Properties("Width") = 135
        .Properties("Height") = 140
    End With
    
    'Création du contrôle MonthView
    Set Obj = Usf.Designer.Controls.Add("MSComCtl2.MonthView.2")
          
    With Obj
        .Left = 0: .Top = 0: .Width = 150: .Height = 140
        .Name = NomObjet
        .ForeColor = &HC000C0
        .TitleBackColor = &HC000C0
        '.MinDate = CDate("01/01/2007")
        '.MaxDate = CDate("31/12/2007")
    End With
    
    
    'Ajout de la procédure évènementielle DateClick du contrôle MonthView
    With Usf.CodeModule
        j = .CountOfLines
        .insertlines j + 1, "Sub " & NomObjet & "_DateClick(ByVal DateClicked As Date)"
        'Sélectionne la feuille correpondant au numéro de semaine
        'Cet exemple nécessite que le classeur contienne 52 feuilles.
        .insertlines j + 2, "   Worksheets( " & NomObjet & ".Week ).Activate"
        'Option pour refermer l'userform après l'insertion de la date.
        .insertlines j + 3, "   Unload Me"
        .insertlines j + 4, "End Sub"
    End With
    
    VBA.UserForms.Add (Usf.Name)
    Set UserForm_Et_MonthView_Dynamique = UserForms(UserForms.Count - 1)
  
End Function



Staple, je n'ai pas trouvé d'option pour remplacer Today pas aujourd'hui ...
Il s'agit peut être d'un problème de version.



Bonne journée
MichelXld
 
Vote positif 0 Vote négatif
Re : Inserer un Date Picker dans barre d'outils

Bonjour


Pour ceux qui voudraient tester sans se fatiguer
à créer 52 feuilles 😉



-> MichelXLD : voici la version (téléchargée selon ton lien)
meme avec ce lien: toujours en anglais:
Effectivement ca selble logique (lol)
Par hasard saurais-tu ou la télécharger en francais?
67571d1193232632-inserer-un-date-picker-dans-barre-doutils-nbb.gif
 

Pièces jointes

  • nbb.gif
    nbb.gif
    2 KB · Affichages: 526
Dernière édition:
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

CISCO
  • Résolu(e)
XL 2013 Histogramme avec une seule barre par cellule
Réponses
6
Affichages
203
CISCO
CISCO
C
  • Résolu(e)
XL 2016 Infos-bulle dans la Barre d'Outils "Accès Rapide"
Réponses
7
Affichages
262
crocrocro
C
CISCO
  • Question Question
XL 2013 Couleur d'une seule barre dans un graphique Sparkline
Réponses
2
Affichages
81
CISCO
CISCO
gsx-air
  • Résolu(e)
Microsoft 365 Traiter un fichier CSV qui est ouvert
2
Réponses
16
Affichages
372
gsx-air
gsx-air
Eric 888
  • Résolu(e)
Microsoft 365 rendre visible automatiquement l'onglet de la feuille active sur la barre de navigation inférieure
Réponses
11
Affichages
697
Eric 888
Eric 888
V
  • Résolu(e)
Microsoft 365 Barre de recherche : comment rendre éditable le résultat ?
2 3 4
Réponses
52
Affichages
929
dysorthographie
dysorthographie
Z
  • Question Question
Microsoft 365 Exporter le visuel d'une cellule vers un fichier PNG
Réponses
4
Affichages
282
patricktoulon
patricktoulon
patricktoulon
  • Question Question
Microsoft 365 datepicker dynamique intra userform(frame dynamique)(toute version d'excel )
3 4 5
Réponses
60
Affichages
816
patricktoulon
patricktoulon
Dudu2
  • Résolu(e)
XL 2016 VBA - Redimensionner un UserForm après le retrait de la barre du menu système (Caption)
5 6 7
Réponses
101
Affichages
3 K
Dudu2
Dudu2
yannick64
  • Résolu(e)
XL 2016 Bug liste déroulante dans UserForm
2
Réponses
20
Affichages
889
yannick64
yannick64
cathodique
  • Résolu(e)
XL 2010 Userform plein écran sans barre de titre
Réponses
7
Affichages
677
cathodique
cathodique
M
  • Question Question
Microsoft 365 date picker dans un champ
Réponses
4
Affichages
145
Mamen
M
S
  • Question Question
Microsoft 365 Barre de progression sur un %
Réponses
3
Affichages
290
crocrocro
C
AHK
  • Question Question
XL 2021 Barre de progression dans une listview - Tableau structuré avec barre de donnée dans la listview
Réponses
2
Affichages
578
AHK
AHK
patricktoulon
  • Résolu(e)
Autres lancement de la phase de tests Publics du vba Indenter Beautifier avec nouveau moteur XML
Réponses
9
Affichages
300
fanch55
fanch55
T
  • Résolu(e)
XL 2019 besoin de formuler pour se positionner à un endroit précis dans ma feuille
Réponses
11
Affichages
457
telemarrk
T
B
  • Résolu(e)
XL 2019 Progress Bar et Autofill - embellissement MAcro
Réponses
2
Affichages
341
benoit.guinebretiere@free
B
riton00
  • Résolu(e)
XL 2021 Modification d'un code VBA
Réponses
5
Affichages
460
kiki29
kiki29
N
  • Question Question
Word Création doc Word à partir Excel... Pb changement fonte ds paragrah
Réponses
7
Affichages
317
natof
N
P
  • Question Question
XL 2021 dans une vba, la date automatique mais de la veille.
Réponses
6
Affichages
155
Patrick BRZ
P
Retour