Calendrier autonome (sans module microsoft)

Pour partager vos applications (Excel, Calc et Google Sheets) avec les autres membres
Avatar du membre
leakim
Membre impliqué
Membre impliqué
Messages : 1'786
Appréciations reçues : 11
Inscrit le : 11 décembre 2012
Version d'Excel : 2010 - 2016 FR
Téléchargements : Mes applications

Message par leakim » 3 janvier 2016, 09:17

Bonjour,
J'ai souvent cherché une solution pour adapter les calendriers (monthview ou calendar) et je sais que je suis pas le seul :wink:
Je joints une alternative que j'ai adapté à mes besoins avec les fériés, les numéros de semaine et la coloration des jours (date du jour, jour actif dans la cellule ou textbox et fériés).

Remerciement à Tatiak, pour son fichier source.

Cordialement,

Leakim

EDIT: MAJ du Fichier le 17/01/2016
Calendrier-forum.xlsm
MAJ 17/01/2016
(46.1 Kio) Téléchargé 2825 fois
CaptureUSFcalendrier.PNG
CaptureUSFcalendrier.PNG (3.97 Kio) Vu 8603 fois
Modifié en dernier par leakim le 6 novembre 2016, 05:05, modifié 6 fois.
1 membre du forum aime ce message.
On apprend par des essais/erreurs. L'erreur, serait de ne pas en faire... :noel:
Image
Avatar du membre
LouReeD
Contributeur
Contributeur
Messages : 5'905
Appréciations reçues : 246
Inscrit le : 14 octobre 2014
Version d'Excel : 2013 FR, 2016 FR
Contact :
Téléchargements : Mes applications

Message par LouReeD » 3 janvier 2016, 22:09

Bonsoir,
et merci pour ce calendrier.

Est-ce qu'il fonctionne pour remplir un TextBox de Userform ?
Qu'elles sont les modifications à faire éventuellement ?

@ bientôt

LouReeD
Contributeur depuis peu ! 8-)
Quelques règles à lire ICI ;;)
______________________________________________________Vous pouvez allez faire un tour sur : Index de "Mes applications" ;;)
Avatar du membre
leakim
Membre impliqué
Membre impliqué
Messages : 1'786
Appréciations reçues : 11
Inscrit le : 11 décembre 2012
Version d'Excel : 2010 - 2016 FR
Téléchargements : Mes applications

Message par leakim » 4 janvier 2016, 20:40

Bonjour,
Merci de ton intérêt à ma proposition.

Je joints une version userform.

A me redire,

Leakim

EDIT: MAJ du Fichier le 17/01/2016
Calendrier-userform-forum.xlsm
MAJ le 17/01/2016
(51.3 Kio) Téléchargé 1766 fois
Modifié en dernier par leakim le 17 janvier 2016, 10:30, modifié 5 fois.
On apprend par des essais/erreurs. L'erreur, serait de ne pas en faire... :noel:
Image
Avatar du membre
LouReeD
Contributeur
Contributeur
Messages : 5'905
Appréciations reçues : 246
Inscrit le : 14 octobre 2014
Version d'Excel : 2013 FR, 2016 FR
Contact :
Téléchargements : Mes applications

Message par LouReeD » 4 janvier 2016, 21:45

Bonsoir,
et merci ! merci !

Puis-je l'intégrer à mon application ?

Je dois avouer que j'en avais trouvé d'autre sur le net, mais celui-ci à l'air simple à intégrer : sur cette ligne
Calendar.Affiche Me, Me.TextBox1.Name, ActiveControl.Name

je dois remplacer quoi s'il y a deux ou plus TextBox à renseigner ? la partie surlignée, celle en gras ou les deux ?

Merci par avance

@ bientôt

LouReeD
Contributeur depuis peu ! 8-)
Quelques règles à lire ICI ;;)
______________________________________________________Vous pouvez allez faire un tour sur : Index de "Mes applications" ;;)
Avatar du membre
leakim
Membre impliqué
Membre impliqué
Messages : 1'786
Appréciations reçues : 11
Inscrit le : 11 décembre 2012
Version d'Excel : 2010 - 2016 FR
Téléchargements : Mes applications

Message par leakim » 5 janvier 2016, 07:58

Bonjour,
Tu peux en faire ce que tu veux où tu veux, c'est bonheur ! c'est partage ! :mrgreen:

Pour le code avec plusieurs textbox çà donne :
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Calendar.Affiche Me, Me.TextBox1.Name, ActiveControl.Name
    Cancel = True
End Sub

Private Sub TextBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Calendar.Affiche Me, Me.TextBox2.Name, ActiveControl.Name
    Cancel = True
End Sub

Private Sub TextBox3_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Calendar.Affiche Me, Me.TextBox3.Name, ActiveControl.Name
    Cancel = True
End Sub
A me redire,

Leakim
On apprend par des essais/erreurs. L'erreur, serait de ne pas en faire... :noel:
Image
Avatar du membre
LouReeD
Contributeur
Contributeur
Messages : 5'905
Appréciations reçues : 246
Inscrit le : 14 octobre 2014
Version d'Excel : 2013 FR, 2016 FR
Contact :
Téléchargements : Mes applications

Message par LouReeD » 5 janvier 2016, 21:05

Bonsoir,

et bien merci, de vais de ce pas essayer de l'intégrer dans mon application. Certain l'utilisant mon reprocher de supprime ce type de calendrier sous forme de Userform avec un clic pour sélectionner une journée... Alors j'ai du expliquer que pour une compatibilité d'un service à l'autre et d'une version d'Excel à l'autre, j'avais du supprimer ce système par un système de toupie....

Là je vais faire des heureux !!!

Merci encore

@ bientôt

LouReeD
Contributeur depuis peu ! 8-)
Quelques règles à lire ICI ;;)
______________________________________________________Vous pouvez allez faire un tour sur : Index de "Mes applications" ;;)
M
Maloma50
Jeune membre
Jeune membre
Messages : 10
Inscrit le : 9 octobre 2012
Version d'Excel : 2010

Message par Maloma50 » 29 septembre 2016, 15:30

Bonjour,

Merci pour ce partage, j'aurais aimé intégré le calendrier dans un UserForm mais lorsque je lance l'appel du calendrier j'ai le message suivant :

Erreur d'exécution 13 incompatibilité de type sur la ligne
Txt_dt = Replace(oUSF.Controls(oControl).Name, "TextBox", "")
J'ai un Userform avec un textbox dans lequel je souhaite mettre la date sélectionnée, j'ai donc crée un bouton avec le code suivant :
Calendar.Affiche Me, frm_contratlait.txt_dateeffet.Name, ActiveControl.Name
J'ai uniquement modifié le nom de la textbox dans laquelle je souhaite mettre la date mais il y a surement d'autres modification à faire pour l'adapter à mon fichier.

Je ne suis pas très à l'aise avec VBA donc je ne sais pas trop à quel niveau je dois faire les modifications.

Merci pour votre aide
Avatar du membre
leakim
Membre impliqué
Membre impliqué
Messages : 1'786
Appréciations reçues : 11
Inscrit le : 11 décembre 2012
Version d'Excel : 2010 - 2016 FR
Téléchargements : Mes applications

Message par leakim » 4 octobre 2016, 16:48

Bonjour,
merci de ton intérêt, je suis actuellement au canada et j'ai pas vu ton message.
Si t'es pas très à l'aise avec le VBA, tu peux joindre ton fichier pour que je l'adapte.
Il faut que je m'y remette car cela fait bien deux mois que j'ai pas touché à excel.

Cordialement,

Leakim
On apprend par des essais/erreurs. L'erreur, serait de ne pas en faire... :noel:
Image
M
Maloma50
Jeune membre
Jeune membre
Messages : 10
Inscrit le : 9 octobre 2012
Version d'Excel : 2010

Message par Maloma50 » 6 octobre 2016, 09:32

Bonjour,

Merci pour ton aide, je te joint mon fichier sur lequel je veux intégrer le calendrier. S'il t'es possible de m'expliquer également car j'aurais besoin d''utiliser le calendrier sur différentes zones de texte dans d'autres formulaires.

Pour le moment je voulais le tester dans le formulaire frm_contratlait sur le zone txt_dateeffet.

Certaines informations étant confidentielles j'ai du supprimer certaines pages de mon fichier pour te le fournir mais je ne pense pas que cela bloque pour travailler sur l'intégration de ton calendrier à mon fichier.

D'avance un grand merci.

Bon séjour au Canada
ContratsLittoral _V3.0.xlsm
(375.43 Kio) Téléchargé 208 fois
Avatar du membre
leakim
Membre impliqué
Membre impliqué
Messages : 1'786
Appréciations reçues : 11
Inscrit le : 11 décembre 2012
Version d'Excel : 2010 - 2016 FR
Téléchargements : Mes applications

Message par leakim » 7 octobre 2016, 06:04

Salut,
Le poste que j'utilise ne me permet pas de faire les tests.
Je te laisse regarder.
Sur ta feuil1 j'ai mis un bouton d'appel de l'userform.
Pour que le calendrier s'affiche il te faut double cliquer sur ta textbox. J'ai ôté ton bouton cal.

A me redire,

Leakim
ContratsLittoral _V3.1.xlsm
(370.35 Kio) Téléchargé 461 fois
On apprend par des essais/erreurs. L'erreur, serait de ne pas en faire... :noel:
Image
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message