Contenu récent par Rheeem

Les cellules se verrouillent par défaut lors de l'appel .Protect il faut enlever la protection pour les zones modifiables comme celles des croix, ou simplement sélectionner toutes les cellules de la feuille et les déverrouiller et après celles des signatures seront protéger après la fermeture du...

L'utilisation du presse-papiers reste imprévisible l'application n'a pas le contrôle total il peut être utilisé ou bloqué par une autre application ou par le système, l’antivirus . Utilise intersect dans SelectionChange pour détecter les plages dans lesquelles l'application du croix est valide...

Oui il est possible que le presse-papier échoue et c'est très contraignant de voir la fiche se fermer se qui oblige à refaire toute l'operation, bien qu'il soit possible de s'en passer de l'utilisation du presse-papier en recapturant les chemins et les tracer dans un shape mais le code sera plus...

Il y a deux méthodes pour partager des variales globales entre classeurs la première consiste a déclarer la variable dans le module ThisWorkbook du classeur ( Source) et pour pourvoir y accéder depuis l'autre classeur Msgbox Workbooks("Source.xlsm").denum la seconde méthode c'est de créer des...

ce qui pose problème c'est la taille de l'image qui déborde dans la majorité ds cas alors une mise en elle est nécessaire le positionnement de l'image peut être ajuster par les propriétés Left et Top dans ces lignes: pic.Left = .Left + 10 pic.Top = .Top + 5 '...

Il existe trois endroits ou le mot Visa est cité, dans les adresses suivantes AV7, K43, AL43 tu peux supprimer celle qui n'est pas valide Ajuster le code du l'événement double clics pour n'intercepter que ces adresses: If (Intersect(Target, Range("AV7, K43, AL43")) Is Nothing) = False Then...

Regarder dans l'exemple suivant, Tu n'indiques pas les cellule dans lesquelles la signature sera insérée. Dans l'exemple faites double-clique sur les cellules vertes pour afficher le dialogue de saisie de la signature. Espérons que cela fonctionne.

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)...