Calendrier portable - Excel 2010 [Fermé]

Signaler
Messages postés
213
Date d'inscription
vendredi 28 novembre 2008
Statut
Membre
Dernière intervention
8 octobre 2019
-
f894009
Messages postés
14950
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
20 janvier 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
http://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
14950
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
20 janvier 2020
1209
Bonjour,

Avez-vous telecharge le fichier exemple?
Si non faites le et regardez comment c'est fait
f894009
Messages postés
14950
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
20 janvier 2020
1209 > Mouftie
Messages postés
213
Date d'inscription
vendredi 28 novembre 2008
Statut
Membre
Dernière intervention
8 octobre 2019

Bonjour,

Vous connaissez la programmation VBA?
Mouftie
Messages postés
213
Date d'inscription
vendredi 28 novembre 2008
Statut
Membre
Dernière intervention
8 octobre 2019
8 > f894009
Messages postés
14950
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
20 janvier 2020

Oui je commence à me débrouiller pas mal, même si je demande de l'aide régulièrement.
f894009
Messages postés
14950
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
20 janvier 2020
1209 > Mouftie
Messages postés
213
Date d'inscription
vendredi 28 novembre 2008
Statut
Membre
Dernière intervention
8 octobre 2019

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
Mouftie
Messages postés
213
Date d'inscription
vendredi 28 novembre 2008
Statut
Membre
Dernière intervention
8 octobre 2019
8 > f894009
Messages postés
14950
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
20 janvier 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...
f894009
Messages postés
14950
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
20 janvier 2020
1209 > Mouftie
Messages postés
213
Date d'inscription
vendredi 28 novembre 2008
Statut
Membre
Dernière intervention
8 octobre 2019

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 ?