Calendrier portable - Excel 2010

Mouftie -  
Bonjour,
j'ai écris une petite application en utilisant dans un UsF un DtPicker, mais depuis une mise à jour, presque tous mes collègues n'y ont plus accès. Mes collègues de l'informatique ne veulent pas toucher à Visual Basic...
J'ai vu votre article
https://www.commentcamarche.net/faq/41159-vba-excel-toutes-versions-controle-calendrier-transposable
il y a un mode opératoire pour changer les couleurs, mais aucun pour l'utiliser dans mon usf à la place de DtPicker.
Que dois-faire ? svp

1 réponse

  1.  f894009
    Bonjour,

    Avez-vous telecharge le fichier exemple?
    Si non faites le et regardez comment c'est fait
    0
    1. Mouftie Auteur
      Bonjour,
      Merci de votre réponse.
      J'ai téléchargé ceci "La troisième version, paramétrable également, est téléchargeable ICI. : http://www.cjoint.com/c/EEgos5ldcWq".
      Il y a un exemple pour faire apparaitre un Usf calendrier sur le bureau, mais rien sur comment le faire apparaitre dans un autre usf, quel contrôle insérer ?
      0
    2. f894009
      @MouftieBonjour,

      Vous connaissez la programmation VBA?
      0
    3. Mouftie Auteur
      @f894009Oui je commence à me débrouiller pas mal, même si je demande de l'aide régulièrement.
      0
    4. f894009
      @MouftieRe,

      Bien.
      Ouvrez votre fichier, ouvrez la fenetre VBA
      Ouvrez le fichier calendrier, idem fenetre VBA
      Faites glisser la form et tous les modules dans votre VBA a gauche (explorer)

      Pour appeler le calendrier, dans votre fichier, remplacer les dtpickers par des textbox et par exemple doubleclic pour creer l'evenement et Calendrier.show pour faire apparaitre le calendrier

      Dans le module de classe Classe1, il y a ces lignes pour justement recuperer les infos en fonction de votre contexte: UF ou dellules feuille

      '**************************************** A PARAMETRER, ADAPTER POUR VOTRE USAGE ****************************************
      'Les lignes suivantes déterminent l'action à effectuer lors d'un clic sur le bouton

      'Pour entrer la date choisie dans une cellule et fermer l'Userform :
      'ActiveCell.Value = maDate
      'Unload Calendrier
      'Pour entrer la date choisie dans le textbox1 de l'UserForm2 :
      'UserForm2.TextBox1.Value = maDate
      'Unload Calendrier

      Apres, mettez en commentaire les lignes messages
      0
    5. Mouftie Auteur
      @f894009Re,
      j'ai intégré l'intégralité du code (2 USF, 1 module de classe et 1 module). l'objectif du calendrier étant d'alimenter une base de données, j'ai ajouté : 
              DerLg = Sheets("BdD").Range("saisies").Rows.Count + 1
              Sheets("BdD").Range("C" & DerLg) = maDate
      en remplacement de 'ActiveCell.Value = maDate dans le module de classe, comme vous me le suggériez.
      cependant, j'ai un message d'erreur d'exécution '1004' : erreur définie par l'application ou l'objet pour 
      DerLg = Sheets("BdD").Range("saisies").Rows.Count + 1

      Je ne connais rien au module de classe...
      0