image et ascenceur

bonjour Fred et le forum

tu vas dans la propriété de l'USF tu vas dans:
scrollbars et tu choisi le 3
scrollheight:1000
scrollleft:1000

@ plus
petchy

tres bonne technique, je te remercie Petchy.
Toutefois, elle ne semble s'appliquer qu'a l'USF tout entier ,
et je ne desire scroller que l'image.
Mais je ne manquerais pas de le réutiliser (usf trop grand, image de la taille de l'usf)
je suis parvenu a mes fins avec l'objet scrollbar (c'est assez simple en fait)
meme si quelquefois il a pas l'air de reagir.

le code pour ceux que ça pourrait interesser

Private Sub ScrollBar1_Change()
Worksheets("Echeancier").Range("A" + CStr(3 + CDec(ScrollBar1.Value)) + ":I" + CStr(43 + CDec(ScrollBar1.Value))).CopyPicture xlScreen, xlPicture
Set ImageEcheance.Picture = PastePicture(xlPicture)
End Sub

Private Sub UserForm_Initialize()
ScrollBar1.Min = 0
ScrollBar1.Max = 120
ScrollBar1.Value = 0
Worksheets("Echeancier").Range("A3:I43").CopyPicture xlScreen, xlPicture
Set ImageEcheance.Picture = PastePicture(xlPicture)
End Sub

ce qui donne un tableau excel de taille fixe (9 colonnes , 40 lignes) sous forme d'image qui se deplace de la ligne 3 a 123 (voir ScrollBar1.Max)

++Fred