Calendrier portable - Excel 2010 [Fermé]

Signaler
Messages postés
215
Date d'inscription
vendredi 28 novembre 2008
Statut
Membre
Dernière intervention
6 septembre 2020
-
Messages postés
15391
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
25 octobre 2020
-
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

Messages postés
15391
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
25 octobre 2020
1 384
Bonjour,

Avez-vous telecharge le fichier exemple?
Si non faites le et regardez comment c'est fait
Messages postés
15391
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
25 octobre 2020
1 384 >
Messages postés
215
Date d'inscription
vendredi 28 novembre 2008
Statut
Membre
Dernière intervention
6 septembre 2020

Bonjour,

Vous connaissez la programmation VBA?
Messages postés
215
Date d'inscription
vendredi 28 novembre 2008
Statut
Membre
Dernière intervention
6 septembre 2020
13 >
Messages postés
15391
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
25 octobre 2020

Oui je commence à me débrouiller pas mal, même si je demande de l'aide régulièrement.
Messages postés
15391
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
25 octobre 2020
1 384 >
Messages postés
215
Date d'inscription
vendredi 28 novembre 2008
Statut
Membre
Dernière intervention
6 septembre 2020

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
Messages postés
215
Date d'inscription
vendredi 28 novembre 2008
Statut
Membre
Dernière intervention
6 septembre 2020
13 >
Messages postés
15391
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
25 octobre 2020

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...
Messages postés
15391
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
25 octobre 2020
1 384 >
Messages postés
215
Date d'inscription
vendredi 28 novembre 2008
Statut
Membre
Dernière intervention
6 septembre 2020

Re,

comme vous me le suggériez.
Je ne suggere rien, vous faites ce que vous voulez

Range("saisies") est une plage de cellule nommee ?