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 !!

motus · 7 Décembre 2020

Bonjour,
ça m'interesse mais j'ai une autre erreur, je joint le classeur tel je je l'ai modifié

patricktoulon · 7 Décembre 2020

bonjour
tu pourrais tester celui ci
tu n'a rien a faire dès que la souris est dans le périmètre de la frame ta mollette doit fonctionner
des qu'elle n'est plus dans le périmètre le Contrôle de la mollette est arrêté
et la fonction fonctionne a l'identique pour les listbox, frame,combobox

motus · 7 Décembre 2020

Merci pour ce post,
mais dès que je clique sur le bouton ouvrant le usf j'ai ce message d'erreur
que faire ?

patricktoulon · 8 Décembre 2020

bonjour
tu veux bien me faire plaisir et tester le mien post#17
je pense que tu sera moins ennuyé

motus · 8 Décembre 2020

Merci, j'avais déjà essayé et c'est pareil, je ne sais pas pourquoi
32bytes et 64bytes je crois

patricktoulon · 8 Décembre 2020

tu a quoi comme version excel?

motus · 8 Décembre 2020

patricktoulon · 8 Décembre 2020

32 ou 64 ?

motus · 8 Décembre 2020

patricktoulon · 8 Décembre 2020

étonnant je vais vérifier si j'ai pas fait une erreur dans les déclarations vb7/win64

patricktoulon · 8 Décembre 2020

re
heu... faut que j'arrete la kronembourg moi c'est pas bon pour mon regime
remplace ceci

VB:

Private Declare PtrSafe Function SetWindowLong Lib "USER32" Alias "SetWindowLongPtrA" (ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr

par

VB:

Private Declare PtrSafe Function SetWindowLong Lib "USER32" Alias "SetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr

purée

Scrollbar

breeze

XLDnaute Occasionnel

motus

XLDnaute Nouveau

Pièces jointes

patricktoulon

XLDnaute Barbatruc

Pièces jointes

motus

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

motus

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

motus

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

motus

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Discussions similaires