Scrollbar

breeze · 7 Avril 2011

Bonjour à tous,
comme je suis débutant, J'ai un problème .
J'ai créé une scroll bar dans une feuille avec une macro pour me déplacer plus vite dans ma feuille.
J'ai procédé comme suit:

Sub Barrededéfilement4_QuandChangement()

If ActiveSheet.Range("a4").Value = 1 Then
ActiveWindow.ScrollColumn = 3
ElseIf ActiveSheet.Range("a4").Value = 2 Then
ActiveWindow.ScrollColumn = 18
ElseIf ActiveSheet.Range("a4").Value = 3 Then
ActiveWindow.ScrollColumn = 32
ElseIf ActiveSheet.Range("a4").Value = 4 Then
ActiveWindow.ScrollColumn = 46
ElseIf ActiveSheet.Range("a4").Value = 5 Then
ActiveWindow.ScrollColumn = 60

Else
ActiveWindow.ScrollColumn = 3

End If
End Sub
J'ai attribué A4 comme cellule liée
Ça fonctionne très bien.

Je voudrais améliorer le tout et faire une userform dans laquelle il y aurait la même scrollbar. Mais je n'arrive pas à trouver le bon code à inscrire.
Quelqu'un peut-il m'aider??

Merci !!

youky(BJ) · 7 Avril 2011

Re : Scrollbar

Salut Breeze,
propriété de l'userform
scrolbar=2
scrolheight=1000 ou plus règle en hauteur

Si tu veux te servir de la molette de la souris j'ai le code mais dur,dur
Bruno

breeze · 7 Avril 2011

Re : Scrollbar

Mille Mercis
C'est en plein ce que je voulais.
Autre chose peut on le faire pour se déplacer de gauche à droite?

Merci

youky(BJ) · 7 Avril 2011

Re : Scrollbar

Re,
Tu aurais du trouver tout seul ! ! !!
C'est bien de tritouiller un peu dans les propriétés, ensuite on sait ou il faut aller (ou pas aller hihi)
scrolbar=3 au lieu de 2 et idem
Bruno

breeze · 8 Avril 2011

Re : Scrollbar

Ouin c'est vrai tu as raison.
Merci

motus · 7 Décembre 2020

youky(BJ) à dit:
Re : Scrollbar

Re,
Tu aurais du trouver tout seul ! ! !!
C'est bien de tritouiller un peu dans les propriétés, ensuite on sait ou il faut aller (ou pas aller hihi)
scrolbar=3 au lieu de 2 et idem
Bruno

motus · 7 Décembre 2020

Bonjour, j'arrive 10 ans après cette discution mais... sait-on jamais
j'ai aussi un probleme de scrolbar mais dans un userform
j'ai mis le height à 600 et le scrolheight à 700, le scroltop à 0
pourtant le usf ne s'affiche pas en haut mais avec un scroll vers le bas de 2cm on va dire..
quelqu'un pourrait-il m'aider pour qu'il s'affiche completement en haut ?
Merci pour votre aide

youky(BJ) · 7 Décembre 2020

Bonjour Motus,
Oui toujours là . . .
Je pense que tu as un control en bas de l'userform qui prend le focus.
Mettre en propriété TabIndex en fonction et commence à 0 en incrémentant chaque fois sur chaque control ou l'on doit passer.
De cette façon avec la touche Tab on passe sur le bon control sans passer par la souris.
Bruno

motus · 7 Décembre 2020

Bonjour youji et merci de me répondre
mais il ne s'agit pas de l'ordre des focus des contrôles
mais que la barre d'ascenseur soit positionnée en haut du usf à l'ouverture de celui-ci

youky(BJ) · 7 Décembre 2020

Si un control en bas prend le focus l'ascenseur va suivre.
Voici un fichier exemple
Bruno

motus · 7 Décembre 2020

Autant pour moi !
Ca marche impeccablement
je jouait avec le height et le scrollheight des propriétés du usf, mais sur celui là, rien à faire....
ravi que ce soit aussi simple en plus !
Encore merci youki

motus · 7 Décembre 2020

Tant que j'y suis...
j'ai un autre problème :
comment activer la molette de la souris au survol du usf ?

youky(BJ) · 7 Décembre 2020

Je viens de retrouver un vieux fichier mais je vois que le scroll ne fonctionne plus sur les nouvelles versions d'excel.
Je joins tout de même le fichier exemple.
Bruno

motus · 7 Décembre 2020

Merci mais je suis en 64bits et pas assez fort pour adapter ce code
du coup j'ai un bug
Merci quand même youki

CHALET53 · 7 Décembre 2020

Bonjour,
il me semble que rajouter PtrSafe entre Declare et Function suffit :
Public Declare PtrSafe Function

a+

Scrollbar

breeze

XLDnaute Occasionnel

youky(BJ)

XLDnaute Barbatruc

breeze

XLDnaute Occasionnel

youky(BJ)

XLDnaute Barbatruc

breeze

XLDnaute Occasionnel

motus

XLDnaute Nouveau

motus

XLDnaute Nouveau

youky(BJ)

XLDnaute Barbatruc

motus

XLDnaute Nouveau

youky(BJ)

XLDnaute Barbatruc

Pièces jointes

motus

XLDnaute Nouveau

motus

XLDnaute Nouveau

youky(BJ)

XLDnaute Barbatruc

Pièces jointes

motus

XLDnaute Nouveau

CHALET53

XLDnaute Barbatruc

Discussions similaires