Scrollbar

[breeze]

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]

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

 

[patricktoulon]

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]

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]

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

 

[motus]

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

 

[patricktoulon]

tu a quoi comme version excel?

 

[motus]

2016

 

[patricktoulon]

32 ou 64 ?

 

[motus]

64

 

[patricktoulon]

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

 

[patricktoulon]

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

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

par

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 🤪 😳😜🤪😎😤