Calendrier portable - Excel 2010

Mouftie Messages postés 215 Date d'inscription   Statut Membre Dernière intervention   -  
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

1 réponse

Réponse 1 / 1
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

Avez-vous telecharge le fichier exemple?
Si non faites le et regardez comment c'est fait
0
Mouftie Messages postés 215 Date d'inscription   Statut Membre Dernière intervention   16
 
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
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713 > Mouftie Messages postés 215 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,

Vous connaissez la programmation VBA?
0
Mouftie Messages postés 215 Date d'inscription   Statut Membre Dernière intervention   16 > f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention  
 
Oui je commence à me débrouiller pas mal, même si je demande de l'aide régulièrement.
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713 > Mouftie Messages postés 215 Date d'inscription   Statut Membre Dernière intervention  
 
Re,

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
Mouftie Messages postés 215 Date d'inscription   Statut Membre Dernière intervention   16 > f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention  
 
Re,
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