Contenu récent par Rheeem

Si on dispose d'un Rnd qui génère des positions uniques alors la question ne se pose plus on peut s'en passer de mélange et appliquer les indices directement dans le code, l utilisation de collection est un peut lourde si on doient vefiier l'existence d'un élément et çà a se complique au fur et...

En effet avec une boucle qui s’exécute qu'à moitié il faut que les indices pointent sur deux sections différents pour couvrir l’ensemble des éléments ex : pair/impaire c'est une méthode adéquate : pivot = tl \ 2 For a = 1 To tl Step 2 b = Int(Rnd * pivot) * 2 + 2 ... Mais cela ne...

Voila mon test sur le nombres déplacement pour chaque éléments , on constate que les deux algos proposés font un mélange partiel vu le nombre d'éléments ignorés 15000 pour la pemiere et 12000 la seconde : l'idéal il ne devrait avoir qu'un seul déplacement pour chaque élément, Mélange 1 Dép...

Les deux fonctions sont utilisés (DoEvents et Sleep) Sleep est appelé avec la plus minimum délai possible pour éviter que le cpu s'emballe sinon on peut envisager d'appeler DoEvent que lorsque la progression avance d'un pas (ici un degré) il y aura au max 360 appels quel que soit le délai

Une amélioration visuelle avec un chrono plus dynamique et sans l instruction Wait.

Cependent enregistrer sous ce format peut entraîner une confusion dans l'ordre des fichiers générés dans l'exploreur vaux mieux utiliser "yyyy-mm" 2026-02

Le code de la page saisie n'a pas été copié (le raz ne fonctionne pas ) Pour me débarrasser de l'ancien code vba j'ai enregistré sous format xlsx (sans macros )puis j'ai ajouté les modules. Essaie cette nouvelle copie.

Essaie cette copie , j'ai retiré thisworkbook1 du projet vba je ne sais pas pourquoi il y a deux variables pour le classeurs

Essaie cet exemple Une partie des paramètres sont dans la page Config : la plage de la date à générer et la liste des congés des agents Dans la page planning tu peux placer les noms des agents , le champ décalage est pour ajuster les plages travail afin qu'elles correspondent a celles...

L'horaire renseigne l'heure du rdv et doit être entré sous ces formats: soit uniquement l 'heure pour faciliter la saisie ex 10 ou 15.. soit en format temps complète 10:00 ou 14:30 ..

Bonjour, Il y a des erreurs de syntaxe donc tes modifications rdv > "" en plus l' ajout d'une variable locale "jourj" qui masque le champ de la date du formulaire . Dans cette nouvelle version le bouton de validation va clignoter pour indiquer que l'enregistrement a eu lieu, cela pour...

Essaie ce code pour le bouton d'enregistrement Private Sub CommandButton1_Click() Dim pos As Long, NewHorr As Long Dim Heur As Long Dim j As Long If rdv = "" Then MsgBox "vous n'avez pas Renseigné le Motif du R.d.V." rdv.SetFocus Exit Sub ElseIf Not IsNumeric(horaire) Then MsgBox...

Voila comment appliquer le code sur la colonne A, pour lancer l'opération appeler ExtraireList Dans ce genre d'opération qui touche le traitement interne du texte il faut s'attendre que certains caractères ne s'affichent pas correctement car GetCharacterPlacement ne fait pas de substitution...

Regarde dans l'exemple suivant, en grande partie grâce Gemeni: Pour tester lance la macro ExtraireEtAfficherGlyphes Option Explicit Private Declare PtrSafe Function CreateFontW Lib "gdi32" (ByVal nHeight As Long, ByVal nWidth As Long, ByVal nEscapement As Long, ByVal nOrientation As Long, ByVal...

Alors tu peux utiliser une marco pour ouvrir l'objet en l'affectant à OnAction de cet objet Sub OpenOle() Dim o As OLEObject Set o = Me.OLEObjects(Application.Caller) o.Verb xlVerbPrimary 'ou o.Activate .. End Sub