utiliser la scrollbar

[Amo]

Bonjour à tous je vous ai joint le fichier qui explique ce que je n'arrive pas à faire.
Merci de votre aide.
Amo [file name=formulaire_20051005154608.zip size=13029]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/formulaire_20051005154608.zip[/file]

 

[Jeannot45]

Bonjour Amo

Voici une petite partie de code que tu pourras ajouter à ton module

Private Sub UserForm_Initialize()

Range('B8').Select
Do While ActiveCell = '' Or Not IsNumeric(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop

Me.ScrollBar1.Min = ActiveCell.Row - 1
Me.ScrollBar1.Max = 25
Me.ScrollBar1.Value = Me.ScrollBar1.Min
End Sub

ce code fait boucler la cellule active pour retrouver la dernière cellule occupée. Une fois trouvée, le code récupère le numéro de la ligne et initialise la Scrollbar

Bon courage

A+

Jeannot45

 

[Creepy]

Bonjour le Forum, Amo,

Regarde en PJ, j'ai fait un bout de code qui test la dernière NON à 0.

@+

Creepy [file name=formulaire_20051005163005.zip size=13014]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/formulaire_20051005163005.zip[/file]

 

[Amo]

Ok merci les gars !!!
Amo.