Contenu récent par Rheeem

Parfait, le dernier code fonctionne correctement, J'ai trouvé qu'on peut convertir localement les coordonnés de la souris sans passer par GetCursorPos et MapWindowPoints pour simuler le clic: Dans la prochaine mise à jour changer le code MouseDown: hit.pt.X = X * AppDpi / 72 hit.pt.Y...

Bonsoir, Cette version c'est mieux on laisse le style du système par défaut car il y aura peu qui vont changer cette configuration, j'ai un autre remarque dans cette version et la précédente tu as ré-introduits un bug qui concerne la position du dialogue au lancement actuellement...

Selon Gemeni pour accélérer la recherche il faut substituer les lettres par les nombres primaires ,Cela semble bien fonctionner si le but est de test la présence d'une liste de caractères dans n'importe quel ordre et n'importe quelle position: Avant de lancer le test, j'ai placé la liste des...

Un lien sur les mots leurs fréquences syllabes et pleins d'autres informations http://www.lexique.org/

Bonsoir, L'idée est bonne comme pas mal d'autres personnalisation qui sont envisageables concernant la validité des dates la possibilité de changer l'année / le mois pour restreindra la sélection , à mon avis c'est un mouvais choix que le jeu de couleur par défaut soit basé sur le gris ...

La valeur du MCHT_CALENDARDATE est incorrecte elle doit être = &H20001 (corrigé) , la déclaration initial était composée deux constants et pour éviter la redondance j'ai supprimé le premier sans corriger la valeur MCHT_CALENDARDATE : Private Const MCHT_CALENDAR = &H20000 Private Const...

Regarde dans la dernière version que j'ai postée

Quelques corrections dans le code: La taille du Frame qui contient le calendrier aussi doit etre modifiée,la forme est redimensionnée mais certains calendriers sont partialement masqués par le frame alors qu'il y a suffisamment d'espace. Petits remarques: DestroyWindow a été retirer pas...

Bonsoir, Maintenant je pense qu'il faut améliorer la taille du calendrier et la rendre automatique puisque elle peut varier selon la région et la langue , essaie avec un autre pays dans les options régionales tu verras que la largeur du calendrier dépend de la taille des noms des jours et...

Un code pour nettoyer les données Sub reconvert() Dim v, s For Each v In ActiveSheet.UsedRange If VarType(v) = vbString Then s = Replace(v, ChrW(&H202F), "") s = Replace(s, ".", ",") v.Value = CDbl(s) End If Next End Sub

Benjour, On peut s'en passer du hook et même de la boucle en utilisant MCM_HITTEST qui peut renvoyer la date sur laquelle le clic a eu lieu dans la zone des jours sinon elle renvoie la zone du clic: les flèches, la zone de l'année ou le label d’Aujourd’hui ..du coup si une date est renvoyée on...

Bonjour, L'effet que tu cherches est disponible dans SysDateTimePick32 qui correspond au DatePicker de l'ocx et qui se ferme automatique aspes la sélection, j’espère qu'il sera facile à adapter

@patricktoulon Le code tel quel est fonctionnel bien qu'il se se limite au strict minimum, les fonctionnalités les plus basiques afficher le contrôle lire et écrire une date et rien d'autre.

La solution la plus simple c'est d'utiliser le contrôle du calendrier de windows et comme tu as des Apis dans ton exemple ça ne devrait pas poser problème. Ajouter un Frame dans lequel le calendrier sera placer et ajouter le code suivant: Option Explicit Private Declare PtrSafe Function...

Si c'est l'aspect visuel qui t’intéresse et tu souhaites avoir un contrôle avec un look moderne il est possible de dessiner le style sans créer le contrôle ce qui est le plus important. Option Explicit Private Declare PtrSafe Function GetDC Lib "user32" (ByVal hwnd As LongPtr) As LongPtr...