Contenu récent par Rheeem

Je ne pense pas que ce soit possible ,on ne peut pas survoler les éléments qui ne sont pas visibles ce qui empêche de les sélectionner, la solution c'est de placer un label invisible au-dessus du frame et lorsqu'on survole le label on décrémente ListBox2.ListIndex sinon tu peux essayer ce code...

En fait la listbox2 n'a pas de scrollbar et le premier élément est toujours 0 par contre pour listbox1 qui contient un scrollbar il faut tenir compte de l'indice du premier élément visible TopIndex, Private Sub ListBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As...

Le problème reste flou , Comment défiler une listebox par mouse move Expliquez comment cette opération devrait se dérouler

Ce n'est pas le même code le dernier concerne les modifications à apporter au code du message #10 spécialement ListBox2_Click et ListBox2_MouseMove

Pour sélectionner un élément affecter son indice à la propriété ListBox2.ListIndex Attention il ne faut pas supprimer ListBox2_Click ce code maintient la sélection dans la partie visible puisque le défilement est fait par le Frame la listbox n'a pas de scrollbar. Private Sub ListBox2_Click()...

La hauteurs des éléments est en point pas en pixel et change selon le font utilisé pour la calculer automatiquement utiliser IAccessible pour mesurer la hauteur et accHitTest pour récupérer l'élément sous la souris . pour la hauteur: Dim acc As IAccessible, d As Long, h As Long Set acc...

Placez la listbox et ses lignes dans un frame et utiliser le scrollbar de ce dernier pour défiler la liste. Ta méthode qui consiste à créer des listboxes pour marquer certaines lignes a des limites car on ne peut pas les créer à l'infini, Dans l'exemple j'ai remplacé les listboxs par des frame...

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