VBA - Vertical Scroll en ComboBox, ListBox et TextBox (ActiveX en Feuille et en UserForm) V11

A

Alain 79

XLDnaute Junior

Supporter XLD

• 23 Novembre 2022

• #46

Bonsoir,
Après divers essais, toujours le même problème aléatoire. Tout fonctionne bien et au bout de trois ou quatre utilisations successives, ça plante.
Effectivement, il n'y a rien à comprendre.
Avant d'installer la combo box, j'utiliser une zone de liste déroulante (contrôle de formulaire) moins intéressant à plusieurs titres car on ne peut pas modifier la taille de l'écriture et on ne peut pas utiliser le scroll. A part cela ça fonctionnait bien, mais avec une liste de plus de 700 noms, tout système serait impeccable.

 

Dudu2

XLDnaute Barbatruc

• 23 Novembre 2022

• #47

@Alain 79,
Es-tu à jour de tes mises à jour Windows Update ?
Je te suggère d'inclure les mises à jour facultatives, parfois des NetFrameWork viennent corriger des bugs.
Par exemple, chez moi avant que j'installe le KB5018202 j'avais des plantages.

 

Dudu2

XLDnaute Barbatruc

• 23 Novembre 2022

• #48

@Toubabou, @Usine à gaz,
La tentation était trop forte...
J'ai implémenté (et bien testé) le mécanisme de prévention du Scroll Down qu'Excel génère en activation initiale des TextBoxes.
Donc maintenant, le survol des TextBoxes évite ce phénomène surprenant et tout devient transparent pour l'utilisateur, celui pour lequel Dudu...cros se décarcasse .

Version V4 mise à jour en Ressource.

 

A

Alain 79

XLDnaute Junior

Supporter XLD

• 23 Novembre 2022

• #49

Je fais toujours toutes les mises à jour. Je suis sous Windows 11 avec Office 365 - 64 bits. Par contre quand je regarde les mises à jour installées, je ne vois pas cette mise à jour.

 

Dudu2

XLDnaute Barbatruc

• 23 Novembre 2022

• #50

@Toubabou,

Le module que tu as est archi-faux. Je ne comprends pas d'où il sort, tu as fais une compilation du code ?
- Reprends la V4 dans la ressource.
- Vire de Module_Scroll_ListBox_ComboBox
- Utilise le Module_ScrollListComboTextBoxes

 

Dudu2

XLDnaute Barbatruc

• 23 Novembre 2022

• #51

@Alain 79,
Alors il y a peut-être un truc lié à Windows 11. Je n'ai pas de plateforme pour tester.
Si tu ne vois pas cette mise à jour c'est que Windows 11 n'en a pas besoin.
C'est Windows Update qui décide et il faut le laisser faire.

 

A

Alain 79

XLDnaute Junior

Supporter XLD

• 23 Novembre 2022

• #52

J'ai un PC sous windows 10 (qui ne peut pas passer sous windows 11) dont les mises à jour sont faites, j'essaierai d'ouvrir le fichier avec pour voir ce que ça donne.

 

T

Toubabou

XLDnaute Impliqué

• 24 Novembre 2022

• #53

Dudu2 à dit:

@Toubabou,

Le module que tu as est archi-faux. Je ne comprends pas d'où il sort, tu as fais une compilation du code ?
- Reprends la V4 dans la ressource.
- Vire de Module_Scroll_ListBox_ComboBox
- Utilise le Module_ScrollListComboTextBoxes

Cliquez pour agrandir...

Je fais un essai, merci

 

T

Toubabou

XLDnaute Impliqué

• 24 Novembre 2022

• #54

Toubabou à dit:

Je fais un essai, merci

Cliquez pour agrandir...

Bon là cela ne fonctionne pas, la TextBox s'agrandit (trop) mais impossible de la Scroller. Je vais voir depuis le début demain.
Merci

 

Dudu2

XLDnaute Barbatruc

• 24 Novembre 2022

• #55

Fait déjà un essai avec le fichier tel que téléchargé de la ressource.
Est-ce que les TextBoxes (feuille, Userform) scrollent quand on passe le curseur dessus et qu'on fait bouger sa molette ?
Si oui, je ne vois pas de raison que ça ne marche pas chez toi.

 

T

Toubabou

XLDnaute Impliqué

• 24 Novembre 2022

• #56

Dudu2 à dit:

Fait déjà un essai avec le fichier tel que téléchargé de la ressource.
Est-ce que les TextBoxes (feuille, Userform) scrollent quand on passe le curseur dessus et qu'on fait bouger la molette ?
Si oui, je ne vois pas de raison que ça ne marche pas chez toi.

Cliquez pour agrandir...

Oui oui ton fichier fonctionne parfaitement

 

T

Toubabou

XLDnaute Impliqué

• 24 Novembre 2022

• #57

Toubabou à dit:

Oui oui ton fichier fonctionne parfaitement

Cliquez pour agrandir...

Download

Click to download the files for this transfer with TransferNow

www.transfernow.net

 

Dudu2

XLDnaute Barbatruc

• 24 Novembre 2022

• #58

J'ai téléchargé ton fichier mais je m'y perds.
Comment met-on en évidence que le Scroll ne fonctionne pas dans une TextBox ?
Que dois-je faire ? Quel bouton ? Quel emplacement ?

 

T

Toubabou

XLDnaute Impliqué

• 24 Novembre 2022

• #59

A l'ouverture de l'UserForm, cliques sur LEXIQUE, choisie TEST D'EFFORT et la TextBox apparait

 

Dudu2

XLDnaute Barbatruc

• 24 Novembre 2022

• #60

A l'ouverture de l'UserForm

Cliquez pour agrandir...

Désolé, je ne sais pas à quoi correspond "ouverture du UserForm". Il y a plusieurs UserForms dans ton fichier.
STP donne-moi un scénario compréhensible.

Le scénario que j'utilise:
A l'ouverture du fichier je clique sur le bouton "ON COMMENCE".
Ensuite je clique LEXIQUE.
Ensuite je déploie la ComboBox et je cherche TEST D'EFFORT mais je ne trouve pas.
Alors en cherchant, je trouve Epreuve d'effort. C'est ça ?


Si oui, où se trouve la TextBox correspondante dans le design ? Dans un UserForm ? Dans une feuille ?

Si tes TextBoxes changent de taille, c'est peut-être que tu les as mises en AutoSize.
En AutoSize, je ne vois pas l'utilité de Scroller dedans puisque, à priori, tout le texte va s'afficher.