Calendrier autonome (sans module microsoft)

Bonjour,

Cette fois-ci le calendrier s'ouvre bien par contre à la sélection de la date j'ai une erreur d'exécution "Objet introuvable" sur la ligne

USF.Controls("Textbox" & Txt_dt) = Format(ChoixDate, "dd/mm/yy")

De la procédure UserForm_Terminate

Bonne journée

Bonjour,

J'ai fini par mettre mon pc à jour pour faire les tests.

Pour ton frm contratlait c'est bon... enfin je crois.

Pour frm contratviande y'a pas il faut faire comme pour le lait.

Il faut que tu reprennes un peu les noms de tes textbox.

J'en suis désolé, c'est un peu de boulot, je sais, mais cela vaut le coup ton fichier est vraiment bien

Tu me redis pour la suite.

Cordialement,

Leakim

Bonsoir,

j'ai testé ton dernier fichier ça marche nickel un grand merci. Du coup j'ai renommé mes textbox mais un peu têtue la fille j'ai quand même gardé un nom plus parlant que Textbox .

En tout cas merci pour l'éloge de mon fichier je suis certaine qu'on peut faire mieux mais pour une débutante comme moi je suis assez contente

Encore merci de ton aide tu m'as fait gagner un temps précieux.

Bonne soirée

Bonjour,

sympa ton calendrier leakim

Mais je n'ai pas trouvé la technique pour le quitter sans changer la date si on change d'avis.

C'est prévu ?

eric

Bonjour,

Tout d'abord merci pour ce calendrier, il fonctionne parfaitement ! Mon projet devant être ouvert par différentes personnes travaillant avec différentes versions d'Excel, c'est super !

Maintenant j'avais une question, un peu comme eric. Je voudrais modifier le USF pour ajouter un bouton "ok" qui permet la validation du choix de la date. En quelque sorte pour empêcher un choix de ultérieur à la date du jour, ... Pour que le USF ne se ferme pas au simple clique sur une date, est ce que cela est possible et que dois-je modifier ?

D'avance merci,

SaLut Eriiic, merci pour ton commentaire.

Désolé pour le délais de réponse... tour du monde oblige

eriiic a écrit :

C'est prévu ?

Non, ce n'est pas prévu mais c'est simple à faire. Je peux t'arranger cela au besoin.

Fait le moi savoir et je tenterai de répondre plus vite

Leakim


Salut GBury, merci pour ton intérêt à ce calendrier.

Même excuses pour le délais

Tu me fais connaitre tes besoins et je regarde pour te faire çà

Cordialement,

Leakim

Merci Leakim pour ta réponse !

Je voudrais simplement reprendre le même calendrier, mais pouvoir "cliquer" sur plusieurs dates sans que celui-ci ne se ferme.

Une fois que l'utilisateur est sûr d'avoir trouvé la bonne date, il valide son choix pas un bouton "OK" par exemple

D'avance merci pour ton aide,

Gaylord

Bonjour,

ça me parait nécessaire oui

Si on choisit par inadvertance une cellule erronée il faudrait pouvoir quitter sans changer sa valeur.

eric

Salut,

Je me lance dans la modif .

A très vite,

Leakim

Salut le forum voici la version avec boutons

J'ai bricoler vite fait le code, il faudrait le mettre au propre, mais il fonctionne, enfin, chez moi.

Merci de me redire,

capture

Leakim

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/translate_c?depth=1&hl=fr&prev=search&rurl=translate.google.fr&sl=en&sp=nmt4&u=https://stackoverflow.com/questions/3072356/what-are-the-differences-between-vba-6-0-and-vba-7-0&usg=ALkJrhgjh3wcBIXZsX7Px0MqlHutrvs-8w

eric

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

Pour ta demande sur le code... J'ai toujours dit que c'était Tatiak l'auteur du code initiale alors je ne serai te répondre

Cordialement,

Leakim

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

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

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

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

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

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.

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

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

bonjour leakim

je teste cela un tout grand merci pour l aide

Rechercher des sujets similaires à "calendrier autonome module microsoft"