Calendrier portable - Excel 2010
Fermé
Mouftie
Messages postés
215
Date d'inscription
vendredi 28 novembre 2008
Statut
Membre
Dernière intervention
6 septembre 2020
-
4 févr. 2017 à 17:38
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 - 6 févr. 2017 à 11:53
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 - 6 févr. 2017 à 11:53
A voir également:
- Calendrier portable - Excel 2010
- Liste déroulante excel - Guide
- Nettoyer ordinateur portable lent - Guide
- Si et excel - Guide
- Comment réinitialiser un ordinateur portable - Guide
- Aller à la ligne excel - Guide
1 réponse
f894009
Messages postés
17205
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 octobre 2024
1 709
5 févr. 2017 à 14:33
5 févr. 2017 à 14:33
Bonjour,
Avez-vous telecharge le fichier exemple?
Si non faites le et regardez comment c'est fait
Avez-vous telecharge le fichier exemple?
Si non faites le et regardez comment c'est fait
6 févr. 2017 à 08:47
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 ?
6 févr. 2017 à 09:09
Vous connaissez la programmation VBA?
6 févr. 2017 à 09:24
6 févr. 2017 à 09:34
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
6 févr. 2017 à 10:39
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
en remplacement de 'ActiveCell.Value = maDate dans le module de classe, comme vous me le suggériez.Sheets("BdD").Range("C" & DerLg) = maDate
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 + 1Je ne connais rien au module de classe...