Calendrier autonome (sans module microsoft)

Pour partager vos applications (Excel, Calc et Google Sheets) avec les autres membres
Répondre
Avatar du membre
eriiic
Passionné d'Excel
Passionné d'Excel
Messages : 9'710
Appréciations reçues : 446
Inscrit le : 7 février 2010
Version d'Excel : 2010fr

Message par eriiic » 11 octobre 2017, 20:24

Bonjour leakim,

testé et pas de soucis chez moi non plus :-)
Bien que j'avais imaginé qu'annuler fermerait la boite, mais bon, ce n'est pas dur à adapter à son besoin.

Sinon je m'interroge sur #If VBA7 Then
Si je n'ai pas de caca dans les yeux je ne vois pas de différence de déclaration entre les 2 cas (!?!)
Si c'était pour prendre en compte office 32 et 64 bits je me demande si WIN64 n'est pas plus adapté : https://translate.googleusercontent.com ... lHutrvs-8w
eric
En essayant continuellement, on finit par réussir.
Donc plus ça rate, plus on a de chances que ça marche.
(les Shadoks)

En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
Avatar du membre
leakim
Membre impliqué
Membre impliqué
Messages : 1'809
Appréciations reçues : 13
Inscrit le : 11 décembre 2012
Version d'Excel : 2010 - 2016 FR
Téléchargements : Mes applications

Message par leakim » 11 octobre 2017, 21:30

Salut Eriiic,

J'ai remis une mise à jour pour que soit on annule, soit on ferme, si on valide pas :)

Je sais pas si trés clair mon affaire, alors faite vos tests :mrgreen:
Calendrier avec boutons-forum V2.xlsm
(43.37 Kio) Téléchargé 132 fois
Pour ta demande sur le code... :oops: J'ai toujours dit que c'était Tatiak l'auteur du code initiale alors je ne serai te répondre :?:

Cordialement,

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

Message par LouReeD » 11 octobre 2017, 21:40

Bonsoir,

au niveau du code lors des déclaration il y a le PtrSafe en plus sur la version VBA7
et à priori cela fait toute la différence ...
Je l'utilise souvent sur mes applications depuis VBA 7 et/ou Win 64 et/ou Excel 64.

Cette "astuce" est arrivée chez moi grâce à APACHES, qui a été téléchargé par un internaute et il avait des problèmes au niveau de ces déclarations. Ce sont ses "informaticiens" qui ont ajouté ce genre de déclaration.
D'ailleurs lorsque ça provoque une erreur Excel lui-même suggère de mettre cette déclaration (PtrSafe)

Depuis peu, suite aux conversations ici sur le site je rajoute dans ces fonctions qui définissent des variables "Long" une déclaration de type "LongPtr"

Exemple complet :
Private Declare PtrSafe Function DeleteObject Lib "gdi32" (ByVal hObject As LongPtr) As Long
Il n'est pas utile de modifier le Long de la fonction... Enfin si j'ai tout compris en surface.

@ bientôt

LouReeD
Quelques règles à lire ICI ;;)
______________________________________________________Vous pouvez allez faire un tour sur : Index de "Mes applications" ;;)
Avatar du membre
eriiic
Passionné d'Excel
Passionné d'Excel
Messages : 9'710
Appréciations reçues : 446
Inscrit le : 7 février 2010
Version d'Excel : 2010fr

Message par eriiic » 11 octobre 2017, 23:28

J'avais bien vue l'absence de LongPtr, mais point vu lesPtrSafe.
Pourtant j'ai lu et relu avant de poster, merci de m'ouvrir les yeux :-)
eric
En essayant continuellement, on finit par réussir.
Donc plus ça rate, plus on a de chances que ça marche.
(les Shadoks)

En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
Avatar du membre
leakim
Membre impliqué
Membre impliqué
Messages : 1'809
Appréciations reçues : 13
Inscrit le : 11 décembre 2012
Version d'Excel : 2010 - 2016 FR
Téléchargements : Mes applications

Message par leakim » 14 octobre 2017, 15:41

Salut LooReeD et Eriiic,

Eriiic, si le commentaire de LooReeD t'ouvre les yeux, moi cela m'ouvre un nouveau champ de compétences à découvrir.
Encore quelques heures de lecture et d'essais erreurs en perspective.
Merci à vous deux, j'en apprend tout les jours grâce à ce forum et à ses membres :!:

Leakim
On apprend par des essais/erreurs. L'erreur, serait de ne pas en faire... :noel:
Image
c
chermoun
Nouveau venu
Nouveau venu
Messages : 4
Inscrit le : 6 novembre 2017
Version d'Excel : 2016

Message par chermoun » 6 novembre 2017, 23:17

Boujours,

Merci pour la macro, sauf que je l'ai utilisé mais les numeros du calendrier ne s'affichent plus, ils s'affichent que des J, je ne sais exactement ou est le prob.

leakim a écrit :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
Boujours,

Merci pour la macro, sauf que je l'ai utilisé mais les numeros du calendrier ne s'affichent plus, ils s'affichent que des J, je ne sais exactement ou est le prob. priere de venir à mon aide
c
chermoun
Nouveau venu
Nouveau venu
Messages : 4
Inscrit le : 6 novembre 2017
Version d'Excel : 2016

Message par chermoun » 14 novembre 2017, 13:57

Boujours,
Je travail sur une ptt application, je suis pas trot doué dans VBA excel, il s'agit d'un outille pour enregistrer les poches de sang sortie du centre transfusion. je veu utiliser un seul calendrier sur plusieurs texbox et je n'arrive plus, prière de venir à mon aide, je veux aussi ajouter l'heure de livraison sur mon application. vous trouverez ci-joint mon excel.

leakim a écrit :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
Boujours,
Je travail sur une ptt application, je suis pas trot doué dans VBA excel, il s'agit d'un outille pour enregistrer les poches de sang sortie du centre transfusion. je veu utiliser un seul calendrier sur plusieurs texbox et je n'arrive plus, prière de venir à mon aide, je veux aussi ajouter l'heure de livraison sur mon application. vous trouverez ci-joint mon excel.
B.D.D.Livraison.xlsm
(68.56 Kio) Téléchargé 71 fois
B.D.D.Livraison.xlsm
(68.56 Kio) Téléchargé 59 fois
f
flexi2202
Membre habitué
Membre habitué
Messages : 97
Inscrit le : 16 août 2010
Version d'Excel : 2007 fr

Message par flexi2202 » 4 octobre 2018, 00:30

bonsoir
merci pour ce superbe calendrier mais comment faire pour que la date que l on choisi dans le calendrier soit toujours affecte a la meme cellule
donc que l on choisisse une date et que direct cela soit affiche en d5 par exemple
merci de l aide
Avatar du membre
leakim
Membre impliqué
Membre impliqué
Messages : 1'809
Appréciations reçues : 13
Inscrit le : 11 décembre 2012
Version d'Excel : 2010 - 2016 FR
Téléchargements : Mes applications

Message par leakim » 5 octobre 2018, 13:44

Bonjour,
Deux solutions.
Tu choisis toujours la cellule D5 et la date sera en D5
Sois tu colles le code suivant à la place Private Sub UserForm_Terminate()
Private Sub UserForm_Terminate()
    If Not ChoixDate = 0 Then
        Range("D5") = Format(ChoixDate, "mm/dd/yyyy")
        ChoixDate = 0
    End If
End Sub
Leakim
On apprend par des essais/erreurs. L'erreur, serait de ne pas en faire... :noel:
Image
f
flexi2202
Membre habitué
Membre habitué
Messages : 97
Inscrit le : 16 août 2010
Version d'Excel : 2007 fr

Message par flexi2202 » 5 octobre 2018, 16:44

bonjour leakim
je teste cela un tout grand merci pour l aide
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message