masquer une barre de défilement dans UserForm

Bonjour,

Je voudrais masquer les barres de défilement de mon UserForm quand celles ci ne sont pas utiles.
J'ai essayé avec les paramètres suivants (dans la procédure Activate du UF), mais ça ne fonctionne pas.

Code:

---

1 2 3 4 5 6 7 8

With Me .ScrollBars = fmScrollBarsBoth .KeepScrollBarsVisible = fmScrollBarsNone .ScrollHeight=.Height .ScrollWidth=.Width .ScrollLeft=0 .ScrollTop=0 End With

---

Je ne vois pas où ça pêche,j'ai du mal comprendre l'aide...

Merci d'avance.

Bonjour à tous,

Ne mettre que :

Code:

---

ScrollBars = fmScrollBarsNone

---

dans la Sub Activate

Cordialement.

Dans ce cas là, elles ne s'affichent plus du tout.

Bonjour Issoram,

Ce n'est pas ce que vous vouliez, au départ lors de l'affichage du formulaire ?

S'il faut les rendre visible, déterminer à quel moment et utiliser l'instruction :

Code:

---

ScrollBars = fmScrollBarsBoth

---

avec les autres paramètres ScrollWidht et ScrollHeight renseignés.

Sinon, je ne sais pas.

Je viens de lire l'aide de la propriété KeepScrollBarsVisible, votre 1er post serait bon, je ne vois pas ...

Par contre l'instruction ScrollRight n'existe pas à ma connaissance, ce ne serait pas plutôt ScrollTop

J'ai fait des essais pour comprendre le principe du masquage des ScrollBars, et ça fonctionne, code :

Code:

---

1 2 3 4 5 6 7 8 9 10

With Me .KeepScrollBarsVisible = fmScrollBarsNone .ScrollBars = fmScrollBarsBoth .ScrollHeight = 300 .ScrollWidth = 300 .ScrollLeft = 0 .ScrollTop = 0 .Width = 100 .Height = 100 End With

---

Si la taille du formulaire est suffisante pour afficher tous les controls, alors elles seront masquées, sinon elles seront visibles.

Merci HopPopPop,

Effectivement le .right n'existe pas (je pensais au .top) , je corrige dans le post.

Citation:

---

Si la taille du formulaire est suffisante pour afficher tous les controls, alors elles seront masquées, sinon elles seront visibles.

---

Oui c'est ce que j'avais compris, mais chez moi ça ne marche pas...
Je vais fouiller.

J'ai trouvé d'où vient le problème mais je ne l'ai pas résolu.

En fait j'ai une image de fond dans mon UserForm qui s'étire en fonction des valeurs que je mets dans .ScrollWidth et .ScrollHeight. Du coup l'image ne peut jamais être affichée en entier et les barres de défilement apparaissent tout le temps.

Je ne comprends pas pourquoi la taille de l'image s'adapte à la taille des ScrollBars et pas à celle du UF????

Citation:

---

Envoyé par HopPopPop

Bonjour Issoram,

Ce n'est pas ce que vous vouliez, au départ lors de l'affichage du formulaire ?

S'il faut les rendre visible, déterminer à quel moment et utiliser l'instruction :

Code:

---

ScrollBars = fmScrollBarsBoth

---

avec les autres paramètres ScrollWidht et ScrollHeight renseignés.

Sinon, je ne sais pas.

Je viens de lire l'aide de la propriété KeepScrollBarsVisible, votre 1er post serait bon, je ne vois pas ...

Par contre l'instruction ScrollRight n'existe pas à ma connaissance, ce ne serait pas plutôt ScrollTop

J'ai fait des essais pour comprendre le principe du masquage des ScrollBars, et ça fonctionne, code :

Code:

---

1 2 3 4 5 6 7 8 9 10

With Me .KeepScrollBarsVisible = fmScrollBarsNone .ScrollBars = fmScrollBarsBoth .ScrollHeight = 300 .ScrollWidth = 300 .ScrollLeft = 0 .ScrollTop = 0 .Width = 100 .Height = 100 End With

---

Si la taille du formulaire est suffisante pour afficher tous les controls, alors elles seront masquées, sinon elles seront visibles.

---

If Me.Width > 100 Or Me.Height > 100 Then
Me.KeepScrollBarsVisible = fmScrollBarsNone
End If