XL 2010 Super résolu devinez par qui ? Calendrier de Roland

arthour973

XLDnaute Barbatruc
Supporter XLD
Bonsoir Roland, Le Forum,

J'ai vu sur un fil récent une version nouvelle de ton calendrier.
Le fait de mettre le code dans le ThisWorkbook me convient mieux que de le mettre dans le code de chaque feuille.

J'ai tenté de modifier ton code pour qu'il fonctionne sur plusieurs feuilles (feuil1-feuil2 etc.) mais je n'y suis pas arrivé.

C"est-ti possible ?
Grands remerciements habituels que je ne sais même plus comment formuler ;)
Je joins le classeur.
Bonne et douce nuit à toutes et à tous,
Amicalement,
Lionel,
 

Fichiers joints

Roland_M

XLDnaute Barbatruc
Bonsoir,

tu veux qu'il fonctionne sur n'importe quelle feuille !?
tu ne précises pas sur quelles cellules, je suppose que c'est sur toute la feuille !?

si tu pouvais répondre avant que je te fasse les modif !?
 
Dernière édition:

Roland_M

XLDnaute Barbatruc
re

j'ai fais selon le choix des feuilles avec des colonnes dates soit Feuil1/Feuil2
qui ont des colonnes destinées à recevoir des dates apparemment !? (je n'ai rien vu dans feuil3 !?)
j'ai vu que tu avais mis un test> If Target.Row < 3 Then Exit Sub , ne sachant pas je l'ai laissé !?
si tu veux rajouter des feuilles il te sera facile avec cet exemple.

EDIT: IMPORTANT !
si tu veux bien supprimer le classeur que tu as mis car il y avait une petite erreur(pas mêchante mais quand même) que j'ai rectifié aussitôt mais tu l'as chargé à ce moment là !
je voudrais pas que quelqu'un le télécharge avec cette erreur, merci !
 

Fichiers joints

Dernière édition:

herve62

XLDnaute Barbatruc
Bonjour , Slt Roland
Je m'incruste car c'était à ce sujet que voulais te contacter
Celui que tu m'avais fourni en début d'année tournait avec W7 et Office 2010
Maintenant nous sommes W10 et office 2016 : j'ai créé une nouvelle appli et j'ai voulu m'en servir en faisant des copié/collé par morceau puisque apparemment on ne peut copier l'ensemble USF , code ...etc en 1 seule fois et cela ne marche plus ?
Qu'en est-il ? pour ne pas déranger ici on peut passer en MP !!
 

arthour973

XLDnaute Barbatruc
Supporter XLD
Bonjour Roland, le Forum,

Encore Merci Roland d'être là et pardon de mon retard pour la réponse.
C'est exactement ça et la modif n'était pas si compliquée.
Je m'étais embarqué sur je ne sais koi qui ne marchait pas.
C'est tout bon.
Ce nouveau calendrier est encore mieux que les précédents, validation au clic sur la date, présentation couleurs etc...
Simplicité d'utilisation et pas besoin de le mettre dans toutes les feuilles du classeur.

Allez, j'abuse en ajoutant une requête (mais si c'est trop de modifs, ne le fait pas, c'est déjà super comme ça).
Tu l'as compris, mon travail est de fixer des RdV
Ce qui implique :
1 - que je sélectionne une date avec ton calendrier,
2 - dans la cellule d'à côté, je saisis l'heure (de 8 à 20 h),
3 - dans la cellule d'à côté, je saisis si besoin les minutes (15-30 ou 45)

Ce serait encore plus super génial si en affichant ton calendrier, je pouvait sélectionner l'heure et les minutes pour afficher dans la même cellule avec la date :
- les heures (sélection d'heure en heure,
- les minutes (sélection 15-30-45).

Oui, je sais c'est certainement trop demander mais j'ose quand même LOL
Voici un exemple en pièce jointe voir Feuil1.
Amicalement,
Lionel,
 

Fichiers joints

Dernière édition:

Roland_M

XLDnaute Barbatruc
Bonsoir,

je ne sais pas si c'est trop demander mais j'ai l'impression que c'est du no limit !
j'espère qu'un jour ton "truc" va servir à qq chose !?

pour faire simple, dans thisworkbook, en dessous de cette ligne:
fmSTD_Calendrier.SelectDateCalendrierCELL IIf(IsDate(Target.Value), Target.Value, Date)

tu rajoutes ceci:
M$ = InputBox("Veuillez introduire l'heure sous format 00 h 00 ?", Target.Value & " à quelle heure ?", "")
If M$ > "" Then Target.Value = Target.Value & " - " & M$

à toi d'entrer la donnée comme il faut car je n'ai pas fais de test pour la saisie !
 

arthour973

XLDnaute Barbatruc
Supporter XLD
Bonsoir Roland,

C'est vrai que peut-être je t'ai donné cette impression.
Ton calendrier est déjà en utilisation depuis longtemps et je t'en remercie encore.
Cette dernière demande ou suggestion, m'est venu en lisant le fil et c'est vrai que ce serait plus pratique et allègerait de 2 colonnes mon fichier.
je n'irai pas plus loin LOL.
je vais tester ton code.
Encore merci,
Amicalement,
Lionel,
 

Roland_M

XLDnaute Barbatruc
Bonjour,

voir modif ! j'ai pris le temps faire une saisie heure/minute par liste dans un userform !
j'en ai profité pour faire une adaptation pour le calendrier de façon à ce qu'il reconnaisse la date
car une fois que l'on a rajouté heure - minute la cellule n'est plus reconnue par la fonction IsDate() !

EDIT: modif demandée ci-après faite !
 

Fichiers joints

Dernière édition:

arthour973

XLDnaute Barbatruc
Supporter XLD
Ah Roland, tu es super, comme moi un méticuleux.
Je regard.
Soit assuré mon cher Roland que ton travail est plus qu'utile et je m'en sert.
LOL, je commence à te connaître et je me doutais que ma demande allait "déclencher" quelque chose chez toi ;)
Amicalement,
Lionel,
 

arthour973

XLDnaute Barbatruc
Supporter XLD
LOL, je reviens vers toi.
Puisqu'on est dans la précision.
Est-il possible que si un RdV est, par exemple à 10 h (donc sans minutes),
que l'on ai pas à sélectionner le 0 des minutes et que 2 zéros (00) s'affichent ?
Amicalement,
Lionel,
 

Haut Bas