VBA - Scroll en Controls ActiveX & UserForm (ListBox, ComboBox, TextBox, UserForm, Frame, MultiPage) V16

Dudu2

XLDnaute Barbatruc

• 25 Mars 2025

• #91

En fait, je viens de publier la version 15B qui corrige des lacunes de la version 15. Et ça n'est pas simple !
Scroll Up & Down sont maintenant 100% gérés en décalage de ScrollBar.
Le mode mixte est conservé: si on clique au milieu de la TextBox on passe en mode décalage ligne.
Le retour sur la 1ère ou la dernière ligne de la TextBox annule le mode décalage ligne et réactive donc le décalage de ScrollBar.

 

patricktoulon

XLDnaute Barbatruc

• 25 Mars 2025

• #92

c'est ça et la formule est simple
je vais regarder ce que tu a fait

 

Dudu2

XLDnaute Barbatruc

• 25 Mars 2025

• #93

c'est ça et la formule est simple

Cliquez pour agrandir...

Essaie de le coder en partant de zéro et tu verras si c'est simple !

Je me suis brulé les neurones sur ce truc qui m'a pris plusieurs heures de mise au point.
Je suis d'abord parti sur des calculs génériques de lignes à décaler avec des Modulo et autres Int() de divisions.
Mais ce n'était pas la bonne approche.
Si tu regardes le code résultant, tu auras sans doute du mal à rentrer dedans.
Pour moi c'est progressivement que je suis arrivé à ce résultat.

 

patricktoulon

XLDnaute Barbatruc

• 25 Mars 2025

• #94

le truc est simple
nbligne= le height / par le fontsize*1.2(c'est approximatif)
la current ligne visible =curline mod nbligne
parti de la puisque tu a nbligne de sais de combien il faut descendre ou monter selon le sens du scroll avant de scroller
dans mon calcul j'utilise le Int pour avoir que l'entier

 

Dudu2

XLDnaute Barbatruc

• Lundi à 17:35

• #95

Pour @abdououbale,

ComboBoxes dynamiques et Scroll selon le Tag.
Le Tag est "SCROLL" pour les ComboBoxes créées avec un indice impair.

 

Pièces jointes

• Comboboxes dynamiques et Scroll selon TAG.xlsm

  71.6 KB · Affichages: 2

Dudu2

XLDnaute Barbatruc

• Lundi à 20:21

• #96

Pour @abdououbale et toute personne intéressée,

ComboBoxes dynamiques et Scroll selon le Tag.
Le Tag est "SCROLL" pour les ComboBoxes créées avec un indice impair.

Cliquez pour agrandir...

Une version un peu plus sophistiquée qui gère tous les Controls Scrollables (**) et, à titre de gadget, ajoute les titres des ComboBoxes dans les ComboBoxes en utilsant cette ressource.

(**) Et plus simple aussi puisque l'appelant (le UserForm) n'a pas à gérer un tableau des instances de classe mais une seule car c'est la classe qui gère la Collection de toutes les instances.

 

Pièces jointes

• UserForm Controls dynamiques et Scroll.xlsm

  85.5 KB · Affichages: 2
• UserForm Controls Statiques & Dynamiques avec Classe de Scroll.xlsm

  90.2 KB · Affichages: 1