Contenu récent par Rheeem

Essaie le code suivant , si le but est de trier sans réellement intéressé à la valeur des dates donc pas besoin d'effectuer les conversions par FileTimeToSystemTime et FileTimeToLocalFileTime, remplacer FILETIME par Currency et comparer les valeurs directement Private Declare PtrSafe...

Avec WMI c'est Creationdate et pas StartTime mais je ne sais pas comment convertir vers date .. Sinon avec windows API Private Declare PtrSafe Function GetProcessTimes Lib "kernel32" (ByVal hProcess As LongPtr, lpCreationTime As FILETIME, lpExitTime As FILETIME, lpKernelTime As FILETIME...

Il semble que la fonction utf-8 ne fonctionne pas correctement elle contient deux graves erreurs la première AscW renvoie un Integer pour couvrir une plage de 65536 chars donc la moité sont renvoyé négatifs (les chars au delà de 32767) ce qui fausse le test dans la fonction de codage mais ce...

Les apis sont pour la création de l'image on peut les retirer et dessiner directement sur la feuille ou créer des shapes ,la seule api utile est WideCharToMultiByte qui fait la conversion du texte vers utf8:

La technique la plus répandue est assez simple c'est de creer une fenêtre cachée pour recevoir les notifications même celles des applications externes mais en Excel cette méthode souffre du même problème que les hooks car on doit lui fournir l'adresse d'une fonction qui va recevoir tous les...

Pour le userforme il est possible de déclencher l'évenement Resize par le message WM_SIZE Sendmessage h, WM_SIZE, 0, 0 d'autres astuces sont possibles mais cela implique l'utisation des contoles ayant handle et supportent le message WM_SETTEXT qui déclenchera l'evenment change cette derniere...

Les petites comparaisons sont trompeuses essaie avec un module de taille moyenne tu verras que le résultat est sans appel, c'est normal un code qui utilise la concaténation caractère par caractère promet d’être lent au fur et à mesure la taille du code à traité augmente . à titre d'exemple j'ai...

Essaie ce code, mais comme le reste des codes il ne faut pas qu'il ait des commentaires dans le code Function MarkString(aTxt As String) As String Dim s As String, tb, n As Long tb = Split(aTxt, """") n = UBound(tb) If n < 1 Then MarkString = aTxt Exit Function End If tb(0) = tb(0)...

La seule fonction que j'avais modifiée et qui pourrait interférer avec le fonctionnement interne du jeu c'était la fonction Descendre , c'&tait pour détecter l'arrivée à la fin de la grille pour pouvoir appeler NouvellePiece par la suite dans la boucle du timer. J'ai mis à jour mon fichier tu...

Regarder cette version.. le code est basé sur le fichier initial . J'ai également accelerer la fonction AfficherFileAttente qui contenait des boucles extrêmement lourdes donc je les supprimer .

Le déplacement des shapes est plus fluide que le dessin direct sur la feuille et produit moins de scintillement

"cela ne copie pas le format de la cellule de depart?" Non elle ne fait que calculer la date du mois suivant Si elle n'est pas affichée correctement il faudrait ajuster le format d 'affichage

SetTimer comme le reste des api si elle n'est pas fermé correctement l'application plante il y a une technique qui consiste à placer le code du callback dans une zone de mémoire et pas dans le module pour éviter le débogage https://github.com/thetrik/VbTrickTimer

Ajouter la formule suivante dans la cellule BW2 et après étirer vers le reste =FIN.MOIS(BV2;1)

Utiliser Offset pour les indices basées 0 et Cells pour celles basées sur 1 , Référencer la première cellule de ton tableau Range("A2").Cells(j,k) = alimentation(j, k).Value Et bien sur il est préférable d’utiliser un tableau temporaire pour accélérer la copie