Barre de défilement Macro

amorapa

Nouveau membre
Bonjour,

Je souhaite mettre une macro à une barre de défilement.

J'ai intégrer la barre de défilement.

ensuite, j'ai fait affecter une macro.

Après, j'ai cette page qui s'affiche avec un début de code
"Sub Barrededéfilement3_QuandChangement()

End Sub"

Mais j'ai cherché un code macro, mais ca ne fonctionne pas
 

amorapa

Nouveau membre
Le code que j'ai trouvé est :
#rivate Sub UserForm_Initialize()
With ScrollBar1
.Min = 0 'Valeur mini
.Max = 100 'Valeur maxi

'Spécifie la distance de déplacement intervenant lorsque l'utilisateur
'clique entre le curseur de défilement et la flèche de défilement.
.LargeChange = 10

'Spécifie le déplacement se produisant lorsque l'utilisateur clique sur
'les flèches de défilement dans le contrôle ScrollBar
'(La valeur par défaut = 1)
.SmallChange = 5
End With
End Sub


Private Sub ScrollBar1_Change()
Label1 = ScrollBar1.Value
End Sub#

Mais je ne sais pas comment l'adapter.

Je cherche à ce que je puisse gérer la valeur maximale, pour que la barre de défilement s'adapte aux nombre de lignes de mes données.

Merci de votre aide
 
Vous devez vous inscrire ou vous connecter pour répondre ici.
Derniers messages publiés
Statistiques globales
Discussions
730 098
Messages
6 717 060
Membres
1 586 286
Dernier membre
petitangebleu1977
Partager cette page
Haut