J'ai cr=E9e un userform dont la largeur est sup=E9rieure =E0=20
celle de l'=E9cran.
Comment faire pour faire apparaitre la partie cach=E9e du=20
userform a l'aide de la scroll bar ?
(code qui fait mouvoir l'=E9cran en fonction du d=E9placement=20
de la scroll bar)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Michel Pierron
Bonsoir Dan; par exemple:
Private Sub UserForm_Initialize() Me.ScrollBars = 1 Me.KeepScrollBarsVisible = 3 Me.ScrollLeft = 0 Me.ScrollWidth = Me.Width + 100 End Sub
MP
"dan" a écrit dans le message de news:0a1301c3c969$9fe993e0$ Bonjour à tous,
J'ai crée un userform dont la largeur est supérieure à celle de l'écran. Comment faire pour faire apparaitre la partie cachée du userform a l'aide de la scroll bar ? (code qui fait mouvoir l'écran en fonction du déplacement de la scroll bar)
Merci d'avance
Bonsoir Dan; par exemple:
Private Sub UserForm_Initialize()
Me.ScrollBars = 1
Me.KeepScrollBarsVisible = 3
Me.ScrollLeft = 0
Me.ScrollWidth = Me.Width + 100
End Sub
MP
"dan" <dan.2@libertysurf.fr> a écrit dans le message de
news:0a1301c3c969$9fe993e0$a301280a@phx.gbl...
Bonjour à tous,
J'ai crée un userform dont la largeur est supérieure à
celle de l'écran.
Comment faire pour faire apparaitre la partie cachée du
userform a l'aide de la scroll bar ?
(code qui fait mouvoir l'écran en fonction du déplacement
de la scroll bar)
Private Sub UserForm_Initialize() Me.ScrollBars = 1 Me.KeepScrollBarsVisible = 3 Me.ScrollLeft = 0 Me.ScrollWidth = Me.Width + 100 End Sub
MP
"dan" a écrit dans le message de news:0a1301c3c969$9fe993e0$ Bonjour à tous,
J'ai crée un userform dont la largeur est supérieure à celle de l'écran. Comment faire pour faire apparaitre la partie cachée du userform a l'aide de la scroll bar ? (code qui fait mouvoir l'écran en fonction du déplacement de la scroll bar)
Merci d'avance
Bonsoir Michel et merci pour ta réponse, je vais tester et te tiendrai au courant.
-----Message d'origine----- Bonsoir Dan; par exemple:
Private Sub UserForm_Initialize() Me.ScrollBars = 1 Me.KeepScrollBarsVisible = 3 Me.ScrollLeft = 0 Me.ScrollWidth = Me.Width + 100 End Sub
MP
"dan" a écrit dans le message de news:0a1301c3c969$9fe993e0$ Bonjour à tous,
J'ai crée un userform dont la largeur est supérieure à celle de l'écran. Comment faire pour faire apparaitre la partie cachée du userform a l'aide de la scroll bar ? (code qui fait mouvoir l'écran en fonction du déplacement de la scroll bar)
Merci d'avance
.
Bonsoir Michel et merci pour ta réponse, je vais tester et
te tiendrai au courant.
-----Message d'origine-----
Bonsoir Dan; par exemple:
Private Sub UserForm_Initialize()
Me.ScrollBars = 1
Me.KeepScrollBarsVisible = 3
Me.ScrollLeft = 0
Me.ScrollWidth = Me.Width + 100
End Sub
MP
"dan" <dan.2@libertysurf.fr> a écrit dans le message de
news:0a1301c3c969$9fe993e0$a301280a@phx.gbl...
Bonjour à tous,
J'ai crée un userform dont la largeur est supérieure à
celle de l'écran.
Comment faire pour faire apparaitre la partie cachée du
userform a l'aide de la scroll bar ?
(code qui fait mouvoir l'écran en fonction du déplacement
de la scroll bar)
Bonsoir Michel et merci pour ta réponse, je vais tester et te tiendrai au courant.
-----Message d'origine----- Bonsoir Dan; par exemple:
Private Sub UserForm_Initialize() Me.ScrollBars = 1 Me.KeepScrollBarsVisible = 3 Me.ScrollLeft = 0 Me.ScrollWidth = Me.Width + 100 End Sub
MP
"dan" a écrit dans le message de news:0a1301c3c969$9fe993e0$ Bonjour à tous,
J'ai crée un userform dont la largeur est supérieure à celle de l'écran. Comment faire pour faire apparaitre la partie cachée du userform a l'aide de la scroll bar ? (code qui fait mouvoir l'écran en fonction du déplacement de la scroll bar)
Merci d'avance
.
Bonjour Michel,
J'ai testé, le code insère bien la scrollbar, il y juste un problème : la largeur du userform est de 1400, comment ajuster la scrollbar pour que le curseur se trouve à gauche ?
Merci d'avance
-----Message d'origine----- Bonsoir Michel et merci pour ta réponse, je vais tester et
te tiendrai au courant.
-----Message d'origine----- Bonsoir Dan; par exemple:
Private Sub UserForm_Initialize() Me.ScrollBars = 1 Me.KeepScrollBarsVisible = 3 Me.ScrollLeft = 0 Me.ScrollWidth = Me.Width + 100 End Sub
MP
"dan" a écrit dans le message de news:0a1301c3c969$9fe993e0$ Bonjour à tous,
J'ai crée un userform dont la largeur est supérieure à celle de l'écran. Comment faire pour faire apparaitre la partie cachée du userform a l'aide de la scroll bar ? (code qui fait mouvoir l'écran en fonction du déplacement de la scroll bar)
Merci d'avance
.
.
Bonjour Michel,
J'ai testé, le code insère bien la scrollbar, il y juste
un problème : la largeur du userform est de 1400, comment
ajuster la scrollbar pour que le curseur se trouve à
gauche ?
Merci d'avance
-----Message d'origine-----
Bonsoir Michel et merci pour ta réponse, je vais tester
et
te tiendrai au courant.
-----Message d'origine-----
Bonsoir Dan; par exemple:
Private Sub UserForm_Initialize()
Me.ScrollBars = 1
Me.KeepScrollBarsVisible = 3
Me.ScrollLeft = 0
Me.ScrollWidth = Me.Width + 100
End Sub
MP
"dan" <dan.2@libertysurf.fr> a écrit dans le message de
news:0a1301c3c969$9fe993e0$a301280a@phx.gbl...
Bonjour à tous,
J'ai crée un userform dont la largeur est supérieure à
celle de l'écran.
Comment faire pour faire apparaitre la partie cachée du
userform a l'aide de la scroll bar ?
(code qui fait mouvoir l'écran en fonction du déplacement
de la scroll bar)
J'ai testé, le code insère bien la scrollbar, il y juste un problème : la largeur du userform est de 1400, comment ajuster la scrollbar pour que le curseur se trouve à gauche ?
Merci d'avance
-----Message d'origine----- Bonsoir Michel et merci pour ta réponse, je vais tester et
te tiendrai au courant.
-----Message d'origine----- Bonsoir Dan; par exemple:
Private Sub UserForm_Initialize() Me.ScrollBars = 1 Me.KeepScrollBarsVisible = 3 Me.ScrollLeft = 0 Me.ScrollWidth = Me.Width + 100 End Sub
MP
"dan" a écrit dans le message de news:0a1301c3c969$9fe993e0$ Bonjour à tous,
J'ai crée un userform dont la largeur est supérieure à celle de l'écran. Comment faire pour faire apparaitre la partie cachée du userform a l'aide de la scroll bar ? (code qui fait mouvoir l'écran en fonction du déplacement de la scroll bar)
Merci d'avance
.
.
Michel Pierron
Bonjour Dan; Normalement, il devrait être déjà à gauche; sinon essaie avec l'instruction Me.Scroll(5) MP
a écrit dans le message de news:021f01c3ca0d$0f8b7850$ Bonjour Michel,
J'ai testé, le code insère bien la scrollbar, il y juste un problème : la largeur du userform est de 1400, comment ajuster la scrollbar pour que le curseur se trouve à gauche ?
Merci d'avance
-----Message d'origine----- Bonsoir Michel et merci pour ta réponse, je vais tester et
te tiendrai au courant.
-----Message d'origine----- Bonsoir Dan; par exemple:
Private Sub UserForm_Initialize() Me.ScrollBars = 1 Me.KeepScrollBarsVisible = 3 Me.ScrollLeft = 0 Me.ScrollWidth = Me.Width + 100 End Sub
MP
"dan" a écrit dans le message de news:0a1301c3c969$9fe993e0$ Bonjour à tous,
J'ai crée un userform dont la largeur est supérieure à celle de l'écran. Comment faire pour faire apparaitre la partie cachée du userform a l'aide de la scroll bar ? (code qui fait mouvoir l'écran en fonction du déplacement de la scroll bar)
Merci d'avance
.
.
Bonjour Dan;
Normalement, il devrait être déjà à gauche; sinon essaie avec l'instruction
Me.Scroll(5)
MP
<anonymous@discussions.microsoft.com> a écrit dans le message de
news:021f01c3ca0d$0f8b7850$a001280a@phx.gbl...
Bonjour Michel,
J'ai testé, le code insère bien la scrollbar, il y juste
un problème : la largeur du userform est de 1400, comment
ajuster la scrollbar pour que le curseur se trouve à
gauche ?
Merci d'avance
-----Message d'origine-----
Bonsoir Michel et merci pour ta réponse, je vais tester
et
te tiendrai au courant.
-----Message d'origine-----
Bonsoir Dan; par exemple:
Private Sub UserForm_Initialize()
Me.ScrollBars = 1
Me.KeepScrollBarsVisible = 3
Me.ScrollLeft = 0
Me.ScrollWidth = Me.Width + 100
End Sub
MP
"dan" <dan.2@libertysurf.fr> a écrit dans le message de
news:0a1301c3c969$9fe993e0$a301280a@phx.gbl...
Bonjour à tous,
J'ai crée un userform dont la largeur est supérieure à
celle de l'écran.
Comment faire pour faire apparaitre la partie cachée du
userform a l'aide de la scroll bar ?
(code qui fait mouvoir l'écran en fonction du déplacement
de la scroll bar)
Bonjour Dan; Normalement, il devrait être déjà à gauche; sinon essaie avec l'instruction Me.Scroll(5) MP
a écrit dans le message de news:021f01c3ca0d$0f8b7850$ Bonjour Michel,
J'ai testé, le code insère bien la scrollbar, il y juste un problème : la largeur du userform est de 1400, comment ajuster la scrollbar pour que le curseur se trouve à gauche ?
Merci d'avance
-----Message d'origine----- Bonsoir Michel et merci pour ta réponse, je vais tester et
te tiendrai au courant.
-----Message d'origine----- Bonsoir Dan; par exemple:
Private Sub UserForm_Initialize() Me.ScrollBars = 1 Me.KeepScrollBarsVisible = 3 Me.ScrollLeft = 0 Me.ScrollWidth = Me.Width + 100 End Sub
MP
"dan" a écrit dans le message de news:0a1301c3c969$9fe993e0$ Bonjour à tous,
J'ai crée un userform dont la largeur est supérieure à celle de l'écran. Comment faire pour faire apparaitre la partie cachée du userform a l'aide de la scroll bar ? (code qui fait mouvoir l'écran en fonction du déplacement de la scroll bar)
